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PREFACE 



This Prograir. Logic Manual (PLM) is a 
detailed guide to the IBM DCS/VS error 
recovery and recording transient programs. 
It supplements the program listings by 
providing descriptive text and flowcharts. 



The lists that follow give the titles of 
companion system control PLKs and 
prerequisite publications. 

For overall system control logic 
description, this PLM is to be used with 
the following PLMs: 

• DCS/VS Supervisor Logic, 3^33-8551. 

• DCS/VS Logical Transients, SY33-8553. 

• DCS/VS Serviceability Aids, SY33-8554. 

• DCS/VS IPL and Job Control, SY 33-8555. 

• DCS/VS Linkage Editor, SY 3 3- 8 55 6. 

• DCS/VS Librarian, SY33-8557. 



Prerequisite to the effective use of the 
PLMs are the following puhlicaticns: 



• IBM Sys te m /370 Principles cf Operation, 
GA22-7000. 



• IBM System/360 Principles cf Operation 
GA22-6821 



• Introduction to DOS/VS, GC 33-5370. 

• DCS/VS System Manaqei rent Guide, 
GC33-5371. 

• D CS /VS Data Mana gement Guide, GC 33-5372. 

• Guide tc the DOS/VS Assembler, GC 33-4024, 

Titles and abstracts of other related 
putlicaticns are listed in the IBM 
Sys tem/ 360 and Sys teK/37C Bib liography , 
GA22-6 82 2 and the IBM System/370 Advanced 
Function Bibliography , GC20-1763. 
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CHAPTER 1: INTRODUCTION 



This manual describes all physical 
transients, or A-transients, and Recovery 
transients, or R-transients, with the 
exception of $$AEERRZ and $$ABERZ1. The 
I physical attention transient $$AEERRZ and 
the delay cancel transient $$AEERZ1 are 
described in the DQS/VS Supervisor Logic 
manual, 



.^.-TRANSIENTS 



A-transients are also referred to as 
physical transients. These infrequently 
used sections of the supervisor reside in 
the core image library and are fetched by 
the resident supervisor only when needed- 
Each program phase name begins with the 
prefix characters $$A. These phases are 
loaded singly into the A-transient or 
Physical Transient Area (PTA>, The 
A-transients' functions within DOS/VS are: 



Exit from A-Transients 



Tc relinquish control, an A-transient may: 

• Issue an SVC 5 tc fetch ancther 
A-transient. 

• Branch to ERPEXIT in the supervisor for 
cancel, ignore, or retry. Depending on 
the address in register 15, this results 
in a branch to the resident cancel 
rcutine (fcr cancel), cr tc the I/O 
interrupt handler (for ignore cr retry) « 
A iracrc called SUPRET is used to 
generate the required code in the 
transient. 

If an exit is to be taken to ignore the 
error, the CSW and the interrupt 
information are first restored tc the 
status that prevailed befcre the error was 
detected. The I/O interrupt handler is 
then re-entered tc continue ncriral 
processing from the point where it was left 
when the error condition was detected. 



• Provide device-dependent Error Recovery 
Procedures (ERP) . See chapter 2 
"Device-Dependent Error Recovery 
Procedures" . 

• Issue messages associated with ERP 
operations (ERP message writer) . See 
chapter 2. 

• Process console printer keyboard 
attention requests (Physical Attention 
Routine, $$ABERRZ) . See DQS/VS 
Supervisor lo gic • 

• Update statistical data counters in PUB2 
table, and build and write I/O device 
records on the Recorder File (IJSYSRC) . 
See chapter 4 "Recovery Manageirent 
Support Recorder". 

• Issue Error Volume Analysis (EVA) 
messages, and message regarding the 
status of the recorder file. See 
chapter 4. 

When the supervisor supports Relocating 
Load, the physical transient area iray be 
used as an RID Read-In Area. This is the 
case when the user has not specified an 
Independent Directory Read-In Area (which 
would be included in a Independent RLD 
Read-In Area). Because of this possible 
use of the PTA, A-transients will not be 
relocated and they must not issue a LOAD or 
FETCH for a relocatable phase. 



If an exit is to be taken tc retry the 
operation, the I/O request is left in the 
channel queue to be restarted. Any 
outstanding request for another device on 
the same channel has priority ever this 
request. A byte in the relevant PUB holds 
the number of retries attempted. 

Ncte: All general registers may be used by 
error recovery phases, and all registers 
are returned on the cccurrence cf an 
interruption. 



R-TRANSIENTS 



R-transients (Machine Check and Channel 
Check Handling Transients) reside in the 
core image library and are fetched by the 
RAS Konitcr, which is part cf resident 
supervisor, only when needed. Each program, 
phase name begins with the characters 
$$RAST. These phases are loaded singly 
into the R-transient Area (RTA) . The 
R-transients' functions within DOS/VS are 
tc: 

• Attempt recovery from machine checks and 
channel checks. See chapter 3 "Machine 
Check and Channel Check Handling" . 

• Issue messages associated with machine 
check and channel check recovery 
operations. See chapter 3. 
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Attempt recording on recorder file of 
irachine check and channel check records. 
See chapter 3 and chapter 4 "Recovery 
Management Support Recorder", 

Issue messages regarding the status of 
the recorder file (IJSYSRC) . See 
chapters 3 and 4, 



J^ND R-TRANSIENT SUPERVISOR Ci^LLS 



SVC is detected by raicroprograiriring, which 
loads the SVC nev< PSW from storage location 
96. Certain SVCs are involved in 
processing A- and R-transient operations . 
This section describes those supervisor 
calls which are directly used cr handled in 
the A- and R-transients. 

For reference purposes^ Figure 1 
contains a list of all SVCs used in the 
system. Refer to D OS/VS S u|:erviscr Logic 
for an explanation of the SVCs cutside the 
scope of this manual. 

SVC 0; Execute the channel program 
(EXCP). The address of the user's command 
control block (CCB) must be supplied in 
general register 1 before this SVC is 
issued. If POWER is supported^ control is 
transferred to POWSVCOO before executing 
the channel program. 

S VC 5: When issued by a user through the 
MVCCM macro ^ modifies the supervisor 
communication region. It supplies the 
supervisor support for the KVCCM macro. 
The seguence of events is: 

1. MVCOM macro issues a SVC 5. 

2. The resident routine alters the 
supervisor communicaticn regicn as 
specified by the parameters of the 
MVCOM macro. 

Return is to task selection. 

When a physical transient issues a SVC 
5^ another physical transient program, 
(phase name prefix $$A) is loaded into the 
physical transient area (PiA) , and is 
entered at its load address plus 10 bytes. 

The calling transient sets up the 
physical transient name in the error block. 
The storage address of the physical 
transient phase name is loaded in general 
register 1 before the fetch is made. 

The physical transient is loaded at the 
origin of the physical transient area (PTA) 
and this address is put into general 
register 11 which may then be used by the 
transient as a base register. 



SVC 7; Waits for the ccmpleticn cf an I/O 
operation cr for a tim.er interruption to 
cccur. It supplies the supervisory support 
for the WAIT macro. 

If the traffic bit (CCE) cr event bit 
(TECB) has been posted, SVC 7 tranches 
directly to task selection. 

If the traffic bit or event bit has not 
been posted and the task was a: 

• System task, the system task is 
deactivated and its PIE flag is set to 
I/0-bound. 

• User task, the PIE of the interrupted 
program is set to SVC 7-bcund (not ready 
to run) . 

If a page fault occurs during execution 
cf a SVC 1, the SVC 7 is reissued after the 
page fault has been handled. 

SVC 33; When issued by a user task, 
immediate exit is taken to task selection. 

When issued by a system task, it results 
in deactivation of this system task (the 
select byte in the system comm.unications 
regicn is set to zerc) . The deactivated 
system task is posted ready to run (X'83'). 
This procedure allows task selection to 
give control to any higher priority system 
task that is ready to run. 

SVC 34; Reserved for the GETIME macro. 
SVC3a updates the date field in the 
communications region of the active 
partition. Upcn return general register 1 
contains the time of day in timer units 
(1/300 sec.) 

SVC U4; Supplies support fcr specific 
reguests to write records on the recorder 
file. The SVC 44 routine checks fcr an 
available error queue entry. If ncne is 
available, the SVC is reissued until an 
entry beccmes available. The error queue 
name is then set to call $$AEERA3, and the 
task select exit is taken. 

$$AEERA3 writes the record and takes the 
supervisor ignore exit. A second $$A 
transient is called to write messages, if 
necessary, before returning to the 
supervisor ignore exit. 



SVC 54: 



This superviser call provides 



supervisory support for the FREEREAL macro 
to release page frames to the main page 
pool. These page frames may be released 
frcm a real partition, the PDAID alternate 
area, or the SDAID buffer area. 

When the request is issued by the 
terminator (the page frames belonging to a 
real partition are freed), the lower and 
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upper addresses (on page boundary) of the 
real partition are passed to the SVC 54 
routine in the registers 2 and 3. 

A zero value in register 2 indicates 
that the request is issued by SEAIE or 
PDAID. In this case the Ic^^er and upper 
limit of the area to be released are 
obtained froir the boundary bcx. Ccntrcl is 
passed immediately to task selection if no 
SDAID buffer area or PDAID alternate area 
exists. 

The page frames are freed, one after the 
other, by updating the corresponding page 
frame table entries as follows: 

• Bits 14 and 15 are reset (page frame 
returned to the selection peel; 
temporarily fixing in it allc\fved). 

• Eytes 4 and 5 are set tc X'FFFF' (page 
frame not in use) . 

The released page frames are added to 
QOO (see "Selection Pool Queues" in Page 
Managem.ent DQS/ys Supervisor Logic ) . 

If SVC 54 is called by the teririnatcr, 
the number of active virtual partitions 
(entry in SYSCCM) is increased by cne. 

If SVC 54 is called by SBAID or PDAID, 
the boundary box is updated as follows: 

• The end of real storage address is 
inserted in the entry for the 
SDAID/PDAID area address. 

• The entry for the number cf page fram.es 
in the main page pool is incremented by 
the number of freed page frames. 

The SVC 54 routine posts the Page 
Manager system task ready tc run (it may 
have been fix-bound) . It also posts any 
tasks that are waiting for a page frame 
ready to run. 

SVC 60; This SVC uses the real address to 
calculate the virtual address cf a location 
within the data area of an I/O request. 



Eefore issuing the SVC, general register 8 
must contain the address cf the CCW, and 
general register the displacement of the 
desired address from the start cf the I/O 
area. 

Using the data address or the address of 
the Indirect Addressing list, specified in 
the CCW, the supervisor calculates the 
virtual address and returns it in general 
register 15. This register will contain 
when the real address is beycnd the end of 
real stcrage, or when it corresponds tc an 
unused page frame. 

SVC 70: Returns the virtual address of the 
real address specif led in the VIRTAD macro. 
Cn entry tc the routinV. the real address 
must be contained in reg3>^ter 1, and 
register must contain zeVc. The virtual 
address is returned in register 0. No 
address is returned (register contains 
zero) if 

• The address is contained in a page that 
is not used; 

• the read address is invalid; 

• the address is within a page that is not 
fixed. 

SVC 76; Initiates the recording of a RMSR 
record on the system recorder file 
(IJSYSRC). If DOS/VS runs under Vjyi/370, 
net all information in the record may be 
valid. VlX/370 gains control to perform, the 
recording function. When not running under 
VF/370, the effect cf this SVC is the same 
as that of SVC 15 (SYSIO). 



The address of the user's 
Ccntrcl Eleck (CCB) must be 
general register 1 before th 
issued. The data address mu 
in general register 0. Regi 
have the high-order hit en t 
VM/370 that the interrupt is 
intercepted. After having i 
interrupt, VM/370 zeros out 
that cn return, the issuing 
check whether VM/370 handled 



Command 
supplied in 
is SVC is 
St be supplied 
ster 1 must 
e indicate tc 

to be 
ntercepted the 
register 1, so 
program can 

the I/O. 



Chapter 1: Introduction 15 



SVC i 


Kacrc 
Supported 


Function 


Dec 


Hex 


*cpti 




onal ; 





EXCF 


Execute Channel Prograrr 


1 


1 


FETCH 


Fetch any phase 


2 


2 , 




Fetch a Icgical transient (E-transient) 


3 


3 




Force dequeue 


4 


4 


LOAD 


Load any phase 


5 


5 


MVCOM 


Modify supervisor ccirirunicaticn region (if issued ty jyvcci^ iracrc) 
Fetch another physical transient (if issued by a physical 
transient) 


6 


6 


CANCEL 


Cancel a prcbleir prograir cr task 


7 


7 


WAIT 


wait for a CCE cr TECE 


8 


8 




Transfer control to the prctleir prograrr frorr a logical transient 
(E-transient) 


9 


9 


LERET 


Return to a logical transient (E-transient) frorr the probleir 
prograrr after an SVC 8 


10* 


A 


SETI^^E 


Set tirrer interval 


11 


B 




Return frorr a logical transient (E-transient) 


12 


C 




Reset svvitches in partition ccrrirunications region 


13 


D 




Set s\«iitches in partition coirirunications region 


la 


E 


ECJ 


Terminate job and go to jot control for end of job step 


15 


F 


SYSIC 


Headqueue and execute channel prograrr 


16* 


10 


STXIT(PC) 


Provide supervisor vvith linkage to user's PC routine for prograrr 
check interrupts 


17* 


11 


EXIT(FC) 


Return frorr user's PC routine 


18* 


12 


STXIT(IT) 


Provide supervisor with linkage to user's IT routine for interval 
timer interrupt 


19* 


13 


EXIT (IT) 


Return frorr user's IT routine 


20* 


14 


STXIT(OC) 


Provide supervisor with linkage to user's CC routine for external 
or attention interrupts (operator ccmrrand) 


21* 


15 


EXIT (CO 


Return frorr user's OC routine 


22 


16 


SEIZE 


Seize/release system; enable/disable for external and I/O 
[interrupts; set key in user's PSW 


23* 


17 




|Load phase header. Phase load address is stored at user's addres 


24* 


18 


1 SETIME 


|Set tirrer interval and provide supervisor with linkage to user's 
TECB, if any 



-i 



I 



X 



J 



Figure 1. Supervisor Calls (Part 1 of 4) 
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r 

1 SVC 

L 


Kacrc 
Supported 

^_ 


r ■ ' — ■ ' ■ ^ ■ ■ 

Function 


r 

|Dec 

L 


Hex 


r 

|25* 


19 




Issue HALT I/C en a teleprocessing device, or HALT I/C on any 
device if issued by OLTEP, With irultiprogramiring, dequeue an 
unstarted CLTEP I/O request to a shared device 


|26* 


Ih 




Validate address lirr.its 


127* 


IB 




Special rfIC on teleprocessing devices 


|28* 


IC 


EXIT (MR) 


Return frorr user's stacker select routine (MICR type devices only) 


|29* 


ID 


Wi^ITK 


Provide support for multiple vvait rracro WAITM 


|30* 


IE 


QWAIT 


Wait for a QTAM element 


|31* 


IF 


iGPCST 


Post a QTAiyi element 


|32 


20 




Reserved 


|33 


21 




Reserved for internal macro CCI^RG 


|34 


22 


IGETIKE 


Provides Time-of-Day and updates the DATE field 


|35* 


23 


HCLD 


Hold a track for use by the requesting task only 


|36* 


24 


EKEE 


Free a track held by the task issuing the FREE 


|37* 


25 


iSIXIT(AB) 


Provide supervisor with linkage to user's AE routine for abnormal 
termination of a task 


|38* 


26 


A1TACH 


Initialize a subtask and establish its priority 


1 39* 


27 


DETACH 


Perform normal terminatior of a subtask. It includes calling the 
FREE routine to free any tracks held by the subtask 


1 40* 


28 


PCST 


Inform the system of the termination of an event and ready any 
waiting tasks 


|ai* 


29 


DEQ 


Inform the system that a previously enqueued resource is now 
available 


|42* 


2A 


ENQ 


Prevent tasks from sim.ultaneous manipulation of a shared data area 
(resource) 


! 43 


2B 




Reserved 


1 44* 


2C 




Provide supervisor support for external creaticn of unit check 
records by specific request 


|45* 


2D 




Provide emulator interface 


146* 


2E 




Provide OLTEP with the facility to operate in supervisory state 


|47* 


2F 


WAITF 


Provide support for multiple wait macro WAITF for KICR type devices 


|48* 


30 




Fetch a CRT transient 


|49 


i 
31 




Reserved 



X X 



^ J 



Figure 1. Supervisor Calls (Part 2 of 4) 
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r 

1 SVC 

1 ^__ J 




Macro 
Supported 




Function 


r — 

1 Dec 

L 


Hex 


r 

|50 


32 


, 


Reserved fcr LIOC error recovery 


|51 


33 




Return phase header 


|52* 


34 


TTIKjER 


Return the reiraining tiire interval, or cancel a tirre interval 


1 53 


35 




Reserved 


1 54 


36 


EREEREAL 


Release page frarres tc selection peel 


|55 


37 


GETREAL 


Provide interface betvveen SDAID and PDAID initialization routine 
and page rranagement routine, to create the PDAID alternate area or 
the SDAID buffer area 


|56* 


38 


GETPUB 
EREEFUB 


Occupy or free PUB of the device used by POWER 


|57* 


39 




Make POWER-supported partition dispatchable 


|58 


3A 




Provide interface betvveen job control and the supervisor. Get real 
storage for real jobs 


|59 


3B 




Provide interface betvveen ECJ and the supervisor. Initialize 
specified page table entries 


|60 


3C 


GETADR 


Provide virtual address of location within I/O areas for ERP and 
CRT routines 


1 61* 


3D 


GETVIS 


Get storage in virtual partition 


1 62* 


3E 


EREEVIS 


Free storage in virtual partition 


|63 


3F 


USE 


Use a resource 


1 64 


40 


RELEASE 


Release a resource 


1 65* 


41 


CDLOAD 


Load VSAM or CI phase 


1 66 


42 


RUNWCDE 


Return node in which prcgrair is running 


1 67* 


43 


PEIX 


Fix page(s) in real storage 


1 68* 


44 


PEREE 


Free page (s) in real storage 


1 69* 


45 


REALAD 


Return real address corresponding tc a given virtual address 


|70* 


46 


VIRTAD 


Return virtual address corresponding to a given real address 


|71* 


47 


SETPFA 


Establish or terminate the linkage between the supervisor and a 
user page-fault appendage routine 


|72* 


48 


GETCEUF 
FREECBUF 


Get or free copy buffer fcr IDAL or tape ERP 


|73* 


49 


SETAPP 


Allow linkage to channel and appendage routines 


|74* 


4A 




Fix page(s) in real storage for restart 



.JL X 



J 



Figure 1. Supervisor Calls (Part 3 of 4) 
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SVC 



Dec 



-I Kacrc 

Hex I Supported 



function 



75 



76 



^B 



4C I 



77 - 4D ITRANSCSW 

I 

78-84 I 

I 

85 55 IRELFZ^.G 

I 

86 56 IFCEFGOUT 

I 

87 57 IFAGEIN 



Reserved 

Initiate recording of an RI^SR I/O error 

Returns the virtual address of a copied CCW 

Reserved 

Release contents of one or rrore pages 

Force a page-cut for one or ircre pages 

Pagein one or rrore pages 



Figure 1. Supervisor Calls (Part 4 of 4) 
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CHAPTER 2: DEVICE-DEPENDEKT ERROR RECOVERY PROCEEURES (ERP) 



Upon occurrence of a unit check, the 
resident supervisor usually does net 
inuTiediately load one of the ERP transients 
into the physical transient area (PTA) . 
Instead, one or more Rl^SR transients are 
loaded consecutively for recording 
purposes. Then the required ERP phases are 
loaded in proper sequence. For hard 
errors, exit is taken to the ERP iressage 
writer, although not iirirediately . Before 
the ERP message writer is actually entered, 
one or more RMSR phases are loaded 
consecutively for recording purposes. (See 
chart 01). iSiote that for the l^cdel 125 
recording is performed only if RMSR was 
generated into the system. 



ERP transient in terms cf phase name, 
function, and program level chart 
identification . 

Tc understand the errcr recovery 
procedures, you should be familiar with the 
sense information that corresponds to the 
individual I/O devices supported by DOS/VS . 
Figure 5 illustrates the equipment 
supported ty ERP and also indicates the 
sense tits associated with each device. 



INTERFACE KITH ERP MESSAGE WRITER 



Cn a Model 115 or 125 without RMSR, the 
supervisor loads $$AEERRA immediately into 
the PTA. The RMSR phases which are usually 
loaded and entered, are in this case 
bypassed. When ERP detects an 
irrecoverable error, an RMSR phase is 
fetched, as usual. This phase detects that 
the system does not support RMSR and passes 
control immediately to the ERP message 
writer. Also for devices which are 
recorded by hardware, the normal RMSR flow 
is maintained, but these devices are net 
recorded on SYSREC. This is controlled by 
a bit in the PUB2. 

This chapter covers only the ERP 
transient routines, including the ERP 
message writer. Figure 2 illustrates each 



Tc ccmmunicate with the ERP nessage writer, 
the ERP transients use the following flags 
cf the flag byte in the error queue entry 
(Figure 3) : 

Eit 1 - Intervention Required. 

Eit 2 - Passback requested by user. 

Eit 3 - Allow error to be ignored. 

Eit 5 - Allow error to be retried. 

In addition, the message code byte in 
the errcr queue entry certains the message 
code, to indicate to the message writer 
which errcr message is tc be printed. 



Chart 01. General Overview cf the Interrelaticnship cf ERP Phases, RMSR Phases and 
Resident Routines 



Resident 
Routines 



Model 115 or 125. 
RMSR not generated 
into the system 



Chart 06&07 



RMSR 

Recovery 

Manage nnent 

Support 

Recorder 

Transients 

Update 

Statistical 

Data 

Counters 



Chart 02 



ERP 

Error 
Recovery 
Procedure 
Transients 



Note 3886 error handling constitutes an exception to this 

(See sections '3540 Diskette I/O Unit Error Recovery', and 
'3886 OCR Reader Error Recovery' in Chapter 2) 





Chart 06 &07 




Chart 03 
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p y 

Phase name 



1-- 



Functicn 



T 1 

Program 
level 
Chart ID I 



H 



$$AEERAB 
$$AEERAC 

$$i^EERAD 
$$ABERAE 

$$AEERAF 

$$AEERAG 

$$ABERAH 

$$AEERAI 

$$ABERAN 

$$AEEREE 

$$AEERPl-9 

$$AEERRA 

$$AEERRE 

$$AEERRC 

$$ABERRD 

$$AEERRE 

$$AEERRF 

$$AEERRG 

$$AEERRH 

$$AEERRI 

$$AEERRL 

$$AEERRiyi 

$$AEERRN 

$$AEERRO 

$$ABERRS 
$$AEERRT 
$$AEERRU 
$$AEERRV 
$$AEERRW 
$$AEERRY 

$$AEERR1 
$$AEERR2 
$$AEERR3 
$$AEERR4 
$$AEERR5 
$$AEERR7 



Seccnd Read Cpfcsite 
Ccntin. recovery action 
Provides supfort for 
Set up for Read 



2400, 3410, and 3420 tape error recovery. First tape ERP phase 

loaded. Handles data check on read and write commands. 

2400, 3410, and 3420 tape error recovery. Handles data check on 

Erase Gap command, IE burst check, and errors during recovery from 

data check. 

2400, 3410, and 3420 tape error recovery. First Read Opposite 

Recovery phase. 

2400, 3410, and 3420 tape error recovery. Handles all errors 

except data check, ID burst check, and errcrs during 

repositioning. 

2400, 3410, and 3420 tape error recovery 

Recovery phase. 

2400, 3410, and 3420 tape error recovery 

initiated by $$ABERAE. 

2400, 3410, and 3420 tape error recovery 

the OS/DOS emulator. 

2400, 3410, and 3420 tape error recovery 

Opposite Recovery when Indirect Address lists are used. 

3886 OCR reader ERF. 

5425 card machine feed checking 

BTAM error handling. (See DQS/VS ETAl^ Logic.) 

ERP monitor for unit record and direct access devices. 

2311, 2314, 3330, and 3340 disk ERP. Determine message code. 

2560 card machine Message Writer/ERP phase. 

2560, and 5425 card machine repositioning ERP. 

5425 card machine message writer. 

3211 printer ERP. 

3504, 3505, 3525 punched card device ERP. 

2245 printer ERP. 

2495 tape cartridge reader ERP. 

ERP message writer. Euilds error message. 

ERP message writer. Euilds error message. 

ERP message writer. Issues the message. 

ERP message writer. Analyzes operator response. Handles message 

writer error ccnditicns. 

1412, and 1419 KICR ERP. 

1287, and 1288 CCR ERP. 

1017, and 1018 paper tape reader ERP. 

2671 paper tape reader ERP. 

Console printer-keyboard and display operator console ERP. 

1403, 1443, 3203 and 5203 printer, 3881 optical mark reader, 1442, 

2596, 2501, 2540, 2560, and 5425 Punched Card device ERP. 

2321 data cell ERP. 

2321 data cell ERP. 

2321 data cell ERP. 

2321 data cell ERP. 

2321 data cell ERP. 

3540 Diskette Input/Output Unit ERP. Determines message code and 

recovery action. 



02 
02 

02 
02 

02 

02 

02 

02 

02 

03 

02 

02,06,071 

02,06 

03 

02 

03 

02 

02 

02 

02 

03 

03 

03 

03 

02 
02 
02 
02 
02 
02 

02 
02 
02 
02 
02 
02 



Figure 2. ERP Transient Programs 
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ERBLOC 










tRRQI 






7 


8 9 


10 11 


12 13 


14 15 


First error queue entry 




Last error queue entry 


Name of phase 
to be fetched 


Branch address 
to retry the 
failing 
operation 


Branch address 
to ignore the 
error 


Branch address 
to cancel the 
task 


Return address 
for A-transient 






> 


\ 


Error 


queue entries (44 bytes each). 



The A-transient loads one of these addresses in 
register 14 before branching to the return address 
{see bytes 14-15} 



Ldyout of any Error Queue entry 

Bytes 0- 7: CSW 

Bytes 8- 9" Address of PUB for device in error 

Byte 10: Flag byte: 



Byte 



Bit 0:1 No record found on DASD 

1 : 1 Intervention required 

2 : 1 Passback (Set by device ERP) 

3 : 1 Allow ignore 

4 Not used 

5 : 1 Allow retry 

6 Not used 

7 : 1 Active entry 



Message code: may refer to a device error 
recovery message generated by physical 
IOCS or: 



Byte 
(Cont'd) 



The number of entries is determined 
at supervisor generation. 



1 1 This location may contain one of the following: 
X'E2' The error is recoverable 

X'AE' A record is to be recorded on the system recorder file for SVC44 or < 
BTAM appendage routine, and a physical transient is to be fetched (last two 
characters of phase name are in bytes 20-21). 



Bytes 12-15 Disk seek address 



Bytes 16-19: Address of CCB 



Bytes 20 



• 43: Sense data: The number of sense bytes generated depends on the options 
specified; the minimum is 24 bytes. 

Alternate entry name: If byte 1 1 contains X'AE', bytes 20-21 contain the 
last two characters of the phase name of the psysical transient to be fetched 
for SVC44 (A3) or BTAM (AS). X'AF' in byte 22 indicates that the I/O 
area associated with an alternate entry has been fixed temporarily. 



Note: The address of the Error Block can be found in SYSCOM at displacement (X'OO'). 



Figure 3. Fcrirat of Error Recovery Block and Error Queue Entry 
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^ 

iTrans- 
I mission 

Count I Inf orira- 
j tion 

112 



— T 

iType 
I and 
|Lcgi 
[Unit 
516 

— -L 



T' 

Code I 

I 
cal I 

I 
7| 



I 
i 

jccw 

|Z\ddress 
19 



csw 
status 
Bits 
4 



Reserved 
for 

Logical 
IOCS 



jReserved 
[for 

iPhysical 
I IOCS 
111 12 



|CCW 

lAddress 
jin CS^ 
|13 



j Optional 
I Sense 
I CCW 
15|16 23 



-i 



Eyte(s) 



Description 



0-1 Used for re- 
sidual count. 



1-- 



2-3 Transmitting 
information 
between Phy- 
sical IOCS 
and Problem 
Programi 



h- 



Byte 2 



|Set on by 



Bit 0: Traffic Bit (Wait) (Note 5). 

Bit 1: End-of-File (/* or /£) 3211-UCSB Parity Check 
(line Ccirplete) (Note 2) . 

Bit 2: Irreccverable I/O errcr. 

Bit 3: Accept Irrecoverable I/C errcr- 

Bit 4: Return CASD Data Checks, 354C Diskette Data Checks, 
2671 errors, or 1017/1018 errors to the user; 
indicate action-type messages for DOC; return 5425 
net ready. 

Bit 5: Pest at Device End (Note 5). 

Bit 6: Return Tape Read Data Check; 1018 or 2560 Data 

Check; 2520, 2540, 2560, 3881, or 5425 Equipment 
Check; Accept 3504, 3505, or 3525 Permanent Errcr; 
DASD Data Checks on Read cr Verify Command en 3211 
or 2245 Passback Requested. (Notes 3, 6, and 8) 

Bit 7: User Error Routine (Note 10). 



Byte 3 



Bit 0: DASD Data Check in Count Area; Permanent Error for 
3330, cr 3340; MICR-SCU Net Operational; 1287/1288 
Data Check; 3211 Print Check/Equipment Check; 3540 
Special Record Transferred. 

Bit 1: DASD Track Overrun; MICR Intervention required; 
1287-Keyboard Correction in Journal Tape Mode; 
1017-Eroken Tape; 3211-Print Quality/Equipment 
Check. 

Bit 2: DASD End-of -Cylinder ; MICR- (Note 4) 1287/1288- 
Hcpper Empty in Document Mode; 3211/2245 Line 
Position Error (Ncte 7) . 

Bit 3: 2520, 2540, 3881-Equipment Check; 2560, 3203, 5203, 
5425 Data Check/Equipment Check; Tape-Read Data 
Check; DASD-Any Data Check; 1287-Equipment Check; 
1017/1018-Data Check; 3211-Print Check/Data Check; 
3504, 3505, 3525 Permanent Error (Note 8); 3540 
Diskette Data Check. 

Bit 4: Ncn-Recovery Questionable Condition: Card-Unusual 
Command Sequence; DASD-No Record Found; 
1287/1288-Document Jam cr Torn Tape; 3211-UCSB 
Parity Check (Command retry) ; 5425 not ready. 



PIOCS* 
PIOCS 

PIOCS 
Pr.Pr.** 

Pr.Pr . 



Pr.Pr. 



Pr.Pr, 



Pr.Pr. 



Set on by 
PIOCS 



PIOCS 



PIOCS 



PIOCS 



Figure 4. Command Control Block (COB) (Part 1 of 3) 
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^ 

iTrans- 
Imission 

Count I Inf orrra- 
I tion 

1|2 3 



I Reserved | | 

I I for \CCVi iCpticnal 

|CCW I Physical [Address | Sense 

(Address | IOCS jir CSW |CCW 

|9 111 12 |13 15|16 23 



ccw 

status 

Bits 



I Type Code I Reserved | 



land 
ILcgical 
junit 
5|6 



, for 
j Logical 
I IOCS 
7| 8 



Byte(s) 

2-3 (continued) 



Description 



I Set on ty 



Bit 5: No Record Found Condition (Retry on 2311, 2314, 

2319, 3330, or 3340). 
Bit 6: Carriage Channel 9 Overflow or Verify Error for 

CASD; 1287-Docuirent F.ode-Iate, Stacker Select; 

1288-End of Page, 
Bit 7: Coirirand Chaining, Retry froir the next CCW to fce 

executed. 



|Pr.Pr. 

I 
JPIOCS 

I 
I 
n 

I 



iPr.Pr. 



-T ^- 

I Byte 5 



4-5 CSW Status 
Bits 



Byte 

Bits 2 

0(32) : 
1(33): 
2(34) ; 
3(35); 
4(36): 
5(37): 
6(38): 
7(39) 



4 (Note 1) 



h 



I Bits 2 

I 
Attention |0(40) 
Status Modifier |1(41) 
Control Unit End | 2(42) 

Busy 

Channel End 
Device End 
Unit Check 
Unit Exception 



|3(43) 

|4(44) : 

|5(45) 

16(46) 

|7(47) : 

-X ^. 



Prograrr Controlled Interruption 
Incorrect Length 
Prograrr Check 
Protection Check 
Channel Data Check 
Channel Control Check 
Interface Control Check 
Chaining Check 



6/7 Type Code and 
Logical Unit 



h 



Byte 6 



X'Ou' Original CCB (Bytes 9-11 and 13-15 contain virtual addresses) 
X'2u' Translated CCB (Bytes 9-11 contain real address, tytes 13-15 

virtual address) 
X'4u' BTAM request original CCB (Bytes 9-11 and 13-15 ccntain virtual 

address) 
X'6u' BTAM request translated CCB (Bytes 9-11 ccntain real address, 

bytes 13-15 virtual address) 
X'8u' User-translated CCB in virtual partition (Bytes 9-11 and 13-15 

contain real addresses) 

Note: Any one of the above increirented by X'lO* (bit 3 on) indicates 
automatic switching to the beginning cf the next cylinder at 
End-of -Cylinder condition. 

u: = The address in byte 7 refers to a Systeir Logical Unit. 

1 = The address in byte 7 refers to a Prograrrirer Logical Unit. 



Byte 7 



Hexadeciiral representation cf SYSnnn: 



SYSRDR 


= 


CO 


SYSCLB = 


OE 


SYSIPT 


= 


01 


SYSVIS = 


OC 


SYSPCH 


= 


02 


SYSCAT = 


OD 


SYSLST 


= 


03 


SYSOOO = 


00 


SYSLOG 


= 


04 


SYSOOl = 


01 


SYSLNK 


= 


05 


SYS002 = 


02 


SYSRES 


= 


06 


, 




SYSSLB 


= 


07 


. 




SYSRLB 


= 


08 


a 




SYSUSE 


= 


09 


SYSnnn 




SYSREC 


= 


OA 


(Note 9) 





Figure 4. Command Control Block (CCB) (Part 2 cf 3) 
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y ^ 

[Trans- | 

I mission jCCW 

Count jinforira- | Status 
jtion jBits 

1|2 3|a 



-^ y -P 

I Type Code [Reserved | 
land I for | 
[Logical [Logical [CCW 
[Unit [IOCS (Address 



--J. ^ 

[Reserved | 
[for [CCW 
[Physical [Address 
[ IOCS (ir. CSV^ 



"T 

I 

[Cptional 

[Sense 

[CCW 



5[6 



7[ 

— X- 



8 



|9 
-X 



111 

X, 



12 



[13 
-X 



15|16 
X, 



23 



Byte(s) 



Description 



h 



8 Reserved for [Buffer Offset: 

Logical IOCS [ASCII Input Tapes 

[ASCII Output Tapes Fixed 

[Variable 

[Undefined 



X'OO" - X'63' 

X'OO' 

X'OO' or X'OU' 

X'OO' 



h 



9-11 CCW Address [Virtual or real address of CCW associated with this CCB depending on 
[ byte 6 : 

I 

[Real address if byte 6=X'2u', X'6u', or X'8u'; 

[Virtual address if byte 6=X'0u", or X'4u'. 



h 



12 Reserved for [X'80' CCB being used by ERP 

Physical IOCS [X*40' Channel Appendage Routine present for TP device, VSAM or POWER. 

[X'20' Sense Information desired (Note 10) 

[X'lO* Message \vriter 

[X'08' EU Tape Error 

[X'04' OLTEP Appendage available 

[X'02' Tape ERP Read Opposite Recovery 

[X'Ol' Seek Separation 



h 



13-15 CCW Address [Virtual Address of CCW pointed to by CSW at Channel End (if 

in CSW [byte 6 = X'8u', it is the real address) or address cf the Channel End 
[Appendage Routine for TP devices, VSAN or POWER. 



H 



16-23 Optional 
Sense CCW 



[8 bytes appended to the CCB v^hen Sense Inforiration is desired. 

I 

-X 



Figure 4. Command Control Block (CCB) (Part 3 cf 3) 

Notes : 

1. Bytes 4 and 5 contain the status bytes of the Channel Status Wcrd (Bits 32-47). If 
byte 2, bit 5 is on and device end results as a separate interrupt, device end will 
be ORed into CCB byte 4. 

2. Indicates /* or /& statement on SYSRDR or SYSlPT. E^^te 4, bit 7 (unit exception) is 
also on. 

3. BASD data checks on count net returned. 

4. For 1255/1259/1270/1275/1419, disengage. For 1275/1419D, I/O Error is external 
interrupt routine (Channel data check or bus-out check) . 

5. The traffic bit (Byte 2, bit 0) is normally set on at channel end tc signify that the 
I/O was completed. If byte 2, bit 5 has been set on, the traffic bit and bits 2 and 
6 in byte 3 will be set en at device end. Also see Note 1. 

6. 1018 ERP does not support the Error Correction Function. 

7. This error occurs as an eguipment check, data check cr FCB parity check. For 2245, 
this error occurs as a data check or FCB parity check. 

8. For 3504, 3505, 3525 input cr cutput files using ERRCPT, byte 3, bit 3 is set on if a 
permanent error occurs. Byte 2, bit 6 is set en tc allow ycu tc accept permanent 
errors. 

9. SYSnnn=255 - (Number of partitions times 14). 

10. If User Error Routine is specified and the uger needs the sense information to 
further process the error, byte 12, bit 2 must alse be set. Otherwise, the 
supervisor error routine will mask off the status on return and the sense information 
is not available. - 
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Chart 02. Device ERP Functional Flow (Part 1 of 3) 



PRTPRG 



UNIT CHECK ROUTINE 



If Seek Separation was being executed 
return to I/O Int. Handler to restart I/O 

If Error Queue Overflow: go, cancel task ERR 31 

Move CSW into error queue entry and 
initialize ERQFLG. 

Device not operational. Program or 
Protection Check 

If user desires Sense Infornnation, execute 
user's Sense CCW and return to user. 

If user has Error routine; return to user. 

Get Sense bytes (not for T/P devices) 

Device in error is disk 



For all other devices (except printer 
when channel 9 overflow) exit 
to the A-transient Exit Routine 



EXTRAN 



A-TRANSIENTEXIT ROUTINE 



Complete Error Queue Entry 

If error on Page I/O or on fetch 
from SYSRES: go for Hard Wait 

Initiatize ERP task 



TASK SELECTION 



QUISIO 



INITIAL SELECTION OF A-TRANSIENT 



Set up to fetch proper transient. 
If SVC 44 request fetch $$ABERA3 
If BTAM request fetch $$ABERA5 



Otherwise 



02-2 
RMSR 



* Unit Check in CSW 

* Program, Protection, Channel Data or Chaining Check in CSW 

* Repositioning required on 2560. 



DISKERR 



RESIDENT DISK ERP 



Update Retry Counter in PUB 

Get user's seek address (virtual) 
and move it into Error Queue Entry. 

Determine error type and recovery action 
(recalibrate in certain cases) 

If failing command is to be retried, and 
recording is not required, branch to 
INITRG for retry. 

If an error condition can be ignored, restore 
original CSW and branch to NOATTENT 
If an error cannot be retried, or ignored, 
'or has been retried max. number of times, 
exit to the A-transient exit routine. 



If failing command is to be retried, but 
^recording is required: post soft error in 
error queue entry, branch to EXTRAN 
(only initial errors, not on SYSRES, are 
recorded, before retry is attempted) 



In some cases the disk ERP re-executes 
user's channel program. Exit is then taken 
to TESTCE in the I/O interrupt handler to 
evaluate the CSW. 
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chart 02. Device ERP Functional Flow (Part 2 cf 3) 



I02.1J From 
QUISIO 



If Model 115 or 125 (RMSR not generated 



into the system), the RMSR phases are bypassed 



RMSR (Charts 06 & 07) [ Subsequent loads of one or more RMSR phases to perform the 

statistical Uodate/Recordlng function. 
Non-tape (2400, 3400) 321 1 Tape (2400, 3400) 

devices (after recording) d evices 



G> 



I From 
a)2.a$$ABERRD 



$$ABERRA 



MW 



Error on recovery ,device 
_not operational, program 
or prot. check, 

3211- 



console Printer-Keyboard 
Display Operator Console 

3504,3505,3525- 
1403, 1443,3203,5203,3881, 
1442, 2596, 2501 , 2520, 2540, 
2560, 5425 (If repositioning 
req, on 2560, see below) 

2495 

231 1, 2314, 3330, 3340 Disk- 

2671 

1017/1018 

2321 

MICR 

1287-1288 OCR— 
(BTAM) T/P device 



:? 



2245- 



2560 repositioning 
required 



3886 



3540 ■ 



Device type not determined. 
Set up to cancel. *~ 



^ $$ABERRF TK 



1^02.3 ^ $$ABERRW 
4$$ABERRG TU "" 



$$ABERRY RA 



j-n 



$$ABERRI 



TC 



•-# ^$$ABERRB MW ""H - 

-ta j $$A3£RRV RJ U 



H ^ $$ABERRU TG | ^ 



ru 



- U $$ABERRS RF i - 



$$ABERRT TA 



$$ABERP 1 §ee 

$$ABERP5 BTAM 

PLM 



$$ABERRH UA 



I 02.3 J 



02.3 I 
$$ABERAN $$ABERRD 



I O2.3J 
$$ABERR7 



From $$ ABE RRW 
I 02.3 



Disk (soft errors) 



TAPE ERP 



NA-PF 



$$ABERAB 
(phase 1) 

$$ABERAC 
(phase 2) 

$$ABERAD 
(phase 3) 
$$ABERAE 
(phase 4) 

$$ABERAF 
(phase 5) 
$$ABERAG 
(phase 6) 
$$ABERAH 
(phase 7) 
$$ABERA I 
(phase 8) 



First tape ERP phase loaded. Handles 

data check on read and write type 

commands 

Handles data check on ERG, PE ID burst 

check, and errors during recovery 

from data check 

First Read Opposite Recovery phase 

Handles all errors except data check, 

PE ID burst check, and errors during 

repositioning. 

Second Read Opposite Recovery phase 

Continues recovery action initiated 

by$$ABERAE 

Provides support for DOS/OS emulator 

Sets up for Read Opposite Recovery 
when Ind.Addr. Lists are used. 



UbATA^ELLEftfi 



PJ-PV 



RMSR (Charts 06 & 07) 



Subsequent loads of RMSR phases to perform 
the Unit Check Recording function 



From 

$$ABERRD, 
$$ABERRW, 
$$ ABE RAN 
$$ABERR7 



ERP MESSAGE WRI TER (Charts 03) 



Subsequent loads of message writer phases to issue 
message and analyze operator response. 
Normal exit to supervisor 




$$ABERR1 
(phase 1) 



$$ABERR2 
(phase 2) 
$$ABERR3 
(phase 3) 

$$ABERR4 

(phase 4) 
$$ABERR5 
(phase 5) 



Determine type of error and perform ERP 

for channel data check, equipment check, 

command reject, intervention required, 

overrun, end of cylmder, 

chainmg check and file protect. Fetch 

$$ABERR2 - $$ABERR4 for other error 

conditions as indicated. 

Perform ERP for track condition check 

Perform ERP for data check and missing 
address marker. If 225 retries are 
exceeded, fetch $$ABERR5 
Perform ERP for no-record-found 
address marker 

Complete for data check and missing 
address marker. 



^ From $$ ABE RRD, 
02.3 I $$ABERAN 

and$$ABERR7 






If operator intervention condition on console 
Printer Keyboard, exit to $$ABEf{RA 



ERPEXIT 



Dequeue Error Queue Entry, and 
take appropriate branches for 
retry, ignore or cancel 



<D 
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Chart 02. Device ERP Functicnal Flew (Part 3 cf 3) 



From$$ABERRA 
2560 repositioning 
required 



$$ABERRD 



QP 



Perform any repositioning 
required for recovery. 
Device not 



operational 

Error on repositioning 
attempt 

No repositioning 
required or successful 
repositioning 



I — *- — I 
I 02.3 J 



From$$ABERRA 
02.3 J Console Printer-Keyboard 
or DOC error. 



$$AfieRRA 



ERP 
Message 
Writer 



ERPEXIT 



$$ABERRW 



RE 



Determine error condition 

If persistent operator 
intervention required 
condition 



Other conditions 



From$$ABERRA 
3886 error 



To ERP Message 
Writer ($$ABERRO) 



Test whether Message 
writer is to be fetched 



$$ABERAN 



TW 



Determine error condition 

If recording is required 
before passing control to 
ERP message writer or 
supervisor 



Otherwise 



From$$ABERRA 
3540 error 



$$ABERR7 



PX 



Determine error condition. 

If recording is required __ 

before passing control to 

ERP message writer or 

supervisor 

Otherwise 



RMSR Chart 06 & 07 



Subsequent loads of 
RMSR phases to record 
the error on the 
Recorder File 



>■ 




ERPEXIT 
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ERQUE DEVICE 


SENSE BYTE 

BITS : 

12 3 4 5 6 7 




DASD 


2311,2314 
2319, 3330 
3340,2321 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


OVERRUN 


TRACK 
CONDI- 
TION 
CHECK 


SEEK 

CHECK 




DISKETTE 
I/O UNIT 


3540 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


N/A 


N/A 


N/A 




TAPES 


2400T7, 2400T9 
3410T7, 3410T9 
3420T7. 3420T9 


COMMAND 
REJECT 


INTERVEN 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


OVERRUN 


WORD 
COUNT 
ZERO 


© 




READER 
PUNCH 


1442,2501,2520 
2540, 2596,3504 
3505, 3525 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


© 


© 


© 




PRINTERS 


1403,1404 
1443 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


© 


N/A 


CHANNEL 9 
OVERFLOW 




2245 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


FCB PARITY 
CHECK 


LOAD 
CHECK 


CHANNELS 
OVERFLOW 




3211 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


BUFFER 
PARITY 
CHECK 


LOAD 
CHECK 


CHANNEL 9 
OVERFLOW 




PRINTER 
KEYBOARD 


3210,3215 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


N/A 


N/A 


N/A 


N/A 




PAPER 

TAPE 

READERS 


2671 
1017 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


N/A 


N/A 


© 




PAPER 

TAPE 

PUNCH 


1018 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


© 


N/A 


N/A 


N/A 




OPTICAL 
READER 


1285,1287 
1288 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


OVERRUN 


NON-RE- 
COVERY 


KEYBOARD 
CORREC- 
TION 




3886 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


N/A 


N/A 


NON- 
INITIALIZED 


RCP 
ERROR 




3881 


COMMAND 
REJECT 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


N/A 


N/A 


UNUSUAL 
COMMAND 
SEQUENCE 


N/A 




MICR 


1412, 1419 
1255, 1259 
1270, 1275 


O 


INTERVEN- 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


OVERRUN 


AUTO 
SELECT 


© 




TCR 


2495 


COMMAND 
REJECT 


INTERVEN 
TION RE- 
QUIRED 


BUSOUT 
CHECK 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


N/A 


PARTITION 
CHECK 


N/A 




MFCM 


2560 


COMMAND 
REJECT 


INTERVEN 
TION RE- 
QUIRED 


N/A 


EQUIP- 
MENT 
CHECK 


DATA 
CHECK 


= EED CHECK 
VIACH CHECK 


NO CARD 
AVAILABLE 


N/A 





/ 



Notes: 



N/A=Not Applicable 



1 Command Reject or Disengage Failure (1412/1419); Command Reject or Control Command (1270/1275) 

2 Only if Error Correction Feature present. 

3 N/A for 2596, 3404, 3505 and 3525. Overrun for 1442, 2501, 2520, and 2540 

4 UCB parity check (1403 only). 

5 Unusual Command Sequence (2540 read only). Abnormal Format Reset (3505 and 3525 only) 

6 Data Converter Check (341 0T7 and 3420T7 only) 

7 Permanent Error for 3404, 3505 and 3525. N/A for 1442, 2501, 2520, 2540, and 2596. 

8 Applies to 101 7 only, Broken Tape. 



Figure 5. Sense Inforrraticn fcr Devices Supported ty Device Errcr Recovery (Part 1 cf 2) 
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ERQUE DEVICE 


SENSE BYTE 1 

BITS: 

12 3 4 5 6 7 


DASD 


2311,2314 
2319, 3330 
3340, 2321 


® 


© 


END-OF- 
CYLINDER 


N/A 


NO RECORD 
FOUND 


FILE 
PROTECTED 


© 


@ 


DISKETTE 
I/O UNIT 


3540 


PERMANENT 
ERROR 


AUTOMATIC 
RETRY 


MOTION 
MALFUNC- 
TION 


RETRY 
AFTER 
INTERVEN- 
TION 


SPECIAL 
RECORD 
TRANS- 
FERRED 


N/A 


N/A 


N/A 


TAPES 


2400n, 240019 
34iar7,3410T9 
34201 y,3420T9 


NOISE 


TU STATUS A 


TU STATUS B 


SEVEN 
TRACK 


AT LOAD 
POINT 


SELECTED 
AND 
WAITE 
STATUS 


FILE 

PROTECT 
RING 
MISSING 


TAPE NOT 
COMPATIBLE 


READER 
PUNCH* 


1442,2501,2520 
2540, 2596,3504 
3505, 3525 


© 


© 


o 


© 


N/A 


SELECTED 
AND 
WAITE 
STATUS 


N/A 


N/A 


PRINTERS 


1403, 1404 
1443 


o 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


2245 


O 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


3211 


COMMAND 
RETRY 


PRINT 
CHECK 


PRINT 
QUALITY 


LINE 
POSITION 


FORMS 
CHECK 


COMMAND 
SUPPRESS 


MECHANICAL 
MOTION 


N/A 


PRINTER 
KEYBOARD 


3210,3215 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


PAPER 

TAPE 

READERS 


2671 
1017 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


PAPER 

TAPE 

PUNCH 


1018 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


OPTICAL 
READER 


1285, 1287 
1288 


© 


N/A 


N/A 


N/A 


INVALID 
FONT0 


N/A 


N/A 


N/A 


3886 


N/A 


LINE MARK 
STATION 
TIMING MARK 
CHECK 


INVALID 
FORMAT 


N/A 


INCOMPLETE 
SCAN 


N/A 


NON- 
RECOVERY 


OUTBOARD 
RECORD 


3881 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


MICR 


1412, 1419 
1255, 1259 
1270, 1275 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


TCR 


2495 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


N/A 


MFCM 


2560 


COVER 
INTERLOCK 


JAM BAR 
CHECK 


CORNER ST'N 
CHECK 


CELL 8 TO 9 
FEED CHECK 


PRINT ST'N 
FEED CHECK 


PUNCH ST'N 
FEED CHECK 


READ ST'N 
FEED CHECK 


NPUTST'N 
FEED CHECK 



Notes: N/A=:Not Applicable 

*For the 2596, the second sense byte contains the coded information of the error logged m the error log. 

9 SIO-Batch numbering switch off; TIO Document Spacing Error (1287), 

1 Data Check Count for 231 1, 2314, 2319, and 2321. Permanent Error for 3330. 

1 1 Permanent Error for 3404, 3505 and 3525. N/A for 1442, 2501, 2520, and 2540 

1 2 Applies for 1287 to indicate tape (set to 1) or document (set to 0) mode, 

1 3 Automatic Retry for 3404, 3505 and 3525. N/A for 1442, 2501, 2520 and 2540. 

1 4 Motion Malfunction for 3404, 3505 and 3525. N/A for 1442, 2501, 2520, and 2540. 

1 5 Retry after required intervention is complete for 3404, 3505 and 3525. N/A for 1442, 2501, 2520, and 2540. 

1 6 Applies to 1287 in the document mode only. 

1 7 Track Overrun (2311, 2314, 2319). Invalid Track Format (3330), operation incomplete (3340) 

18 Write inhibited (3340), missing address marker (others) 

19 Invalid track format (3340), overflow incomplete (others) 



Figure 5, Sense Inforiraticn for Devices Supported by Device Error Reccvery (Part 2 of 2) 
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I/O ERROR RECOVERY PROCEDURES J^ND SENSE 



When the device in error is a tape 
(excluding 2U95 tape-cartridge reader) the 
first ERP phase that gets ccntrcl is 
$$AEERAB (see Chart 02), 

For all other devices, $$AEERRA (see 
Chart 02) gets control. This transient 
analyzes the error type and the type of 
device in error and passes ccntrcl to the 
proper ERP fcr the device in error, or to 
the ERP message vvriter (via RMSR) . 

The remainder of this section contains 
descriptions of the ERP phases vvith their 
corresponding messages. 

Note; Although the disk error recovery 
procedure is not an A-transient, the sense 
data and action-taken information is 
included here to consolidate the sense data 
in this manual. The disk ERF is part cf 
the supervisor nucleus. 



CONSOLE PRINTER-KEYBOARD AND DISPLAY 
OPERATOR CONSOLE (DOC) ERROR RECOVERY 
($$AEERRW) 



Control is passed to this transient by the 
ERP monitor $$AEERRA. The following is a 
list of the conditions tested fcr. The ERF 
message writer prints any messages on 
SYSLST (if possible) and in the case of 
decision- or action-type messages displays 
message information in low real storage. 
The operator's reply to a decision-type 
message is to be entered in byte 4. 



CSW Bit 44 - Channel Data Check. 

Action; One retry. If errcr persists, 
exists to ERP message writer with the 
allow retry and allow ignore switches 
en. 

Message; OP 2 8 CHAN DTCHK. 



• Sense Eyte 0, Bits 4, 5, 6, and 7. 



Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 



^ 



Message; 0P19 UNDETR ERR. 



• Sense Eyte 0, Bit 3 - Equipment Check, 



Action: 



If error on DOC or en read 



command on Console Printer-Keyboard, 
exits to ERP message writer with the 
allow retry and allow ignore switches 
on. Otherwise, first one retry. 

Message; OPIO EQUIP CHK. 



• Sense Eyte 0, Bit 1 - Intervention 
Required. 

Action ; Executes audible alarm command 
and exits to ERP message writer. 
Ccntrcl is returned tc $$ABERRW (via 
$$AEERRA) if the device is not yet 
readied, to execute the alarm ccmmand 
again. If this occurs $$ABERRW, after a 
time interval of two seconds, passes 
ccntrcl directly tc the ERP message 
writer phase $$ABERRO. (On the initial 
intervention required condition, exit is 
taken to the ERP message writer in the 
ncrmal way via RMSR). When the device 
is readied, the message writer exits to 
the supervisor for retry. 



• Sense Eyte 0, Bit 2 - Bus-Out Check. 

A cti on; One retry. If errcr persists, 
exits tc ERP message writer with the 
allow retry and allow ignore switches 
on. 

Message; 0P0 9 BUSOUT CHK. 



• Sense Eyte 0, Bit - Command Reject. 

Action ; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 



• CSW Bit 47 - Channel Chaining Check. 

Action; Exits to ERP message writer 
with the allow retry and allow ignore 
switches on. 



Message; OP 19 UNDETR ERR. 



Message : 



0P18 COMM REJCT. 



None of the above. 

Action; Exits to ERP message writer 
with the allow retry switch en. 

Message; 0P19 UNDETR ERR. 
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2400, 3410, AND 3420 TAPE ERROB FECOVERY 



• Sense E^te 0, Bit ~ Ccirirand Reject. 



2400, 3410, and 3420 tape error recovery 
consists of eight A-transients : 2400, 
3410, and 3420 tape error recovery consists 
of eight A-transients: $$AEERAE, $$ABERAC, 
$$AEERAD, $$ABERAE, $$ABERAF, $$AEERAG, 
$$AEERAH and $$ABERAI. Control is first 
given to $$AEERAE after RMSR has performed 
its statistical counter update function. 
The following list gives the conditions 
tested for. 



Action; If at load point and file 
protect, rewinds and unloads. 

t^essa^e: 0P17 FILE PRCT. 

Acticn: Exits tc ERP iressage writer to 
issue iressage, after which the task is 
canceled. 

Message: 0P18 COMM REJCT. 



• Sense Byte 0, Bit 3 - Equipment Check, 



Action; Exits to ERP message writer to 
issue message, after which the task will 
te canceled. 



Message: OPIO EQUIP CHK. 



• Sense Byte 0, Bit 2 - Bus Gut Check. 

Action; If at initial selection, retry. 



Device end in unit status 
condition occurs during a 
tape is repositioned and 
reissued. If this condit 
during another type of cc 
command is reissued. Thi 
followed until five retri 
attempted; if recovery is 
successful, exits to ERP 
to issue message, after w 
will be canceled. 



If this 
write, the 
the ccirmand 
ion occurs 
irmand , the 
£ procedure 
es have been 

net 
message writer 
hich the task 



is 



Message: 0P09 BUSOUT CHK. 



Sense Byte 0, Bit 1 
Required. 



Intervention 



Action: No device end in unit status: 
TU Status B (sense byte 1, bit 2) is 
tested. If TU Status B is off, the 
device is non-existent. No retries are 
attempted. If TU Status E is on, an 
operator intervention required message 
is provided and, when the unit is made 
ready, the command is reissued. 



Message : 
INTERV. 
opened) . 



0P08 INTERV REQ. cr CP47 UNX 
(for tapes that have been 



Action: Device end in unit status: If 
the command was a rewind-unload, 
processing continues; otherwise, 
continues to check for a seccnd errcr. 
Waits for tape to be mounted. 

Message: 0P19 UNDETR ERR. 



• Sense Byte 0, Bit 5 - Overrun. 

Action: The tape is repositioned and 
the ccirirand is reissued. This procedure 
is followed until five retries have been 
attempted. If recovery is net 
successful, exits to ERP message writer 
tc issue message, after which the task 
is canceled. 

Message; 0P14 OVERRUN. 

Ncte that a data check during overrun 
suppresses the overrun condition. 



• Sense Byte 1, Bit 4 - lead Point 

Acticn ; If net caused by read backward 
operation, exits to ERP message writer 
te issue message, after which the task 
is canceled. 

Message: 0P29 EK INTO LP (Backspace 
into Load Point command) . 



• Sense Byte 0, Bit 4 - Data Check. 

Action: If the operation is read or 
read backward, and if the ncise bit 
(byte 1, bit 0) is on, or if more than 
11 bytes were read, the tape is 
repositioned and the read or read 
backward is retried. If the ncise bit 
is on and the blecksize is less than the 
minimum requirement, recovery is not 
attempted and a data check is pcsted. 
If the noise bit is off and the 
blecksize is less than 12 bytes, anether 
block is read and operaticn centinues. 
This procedure is fellewed until forty 
retries have been attempted. Every 
fourth retry is fellewed by a tape 
cleaner action. A TIE (Track-In-Error) 
command is issued before every reread to 
send sense byte 2, which centains 
track-in-error information, to the tape 
centrel unit. 

If the above procedure does net recover 
the errcr, the errcr rcutine tries to 
recover by reading the opposite 
direction. If any ef the fellcwing 
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conditions exists, however r the routine 
does not attempt opposite-direction 
recovery: 

• Data chaining is being perfcrrrcd. 

• Data conversion rrode and 7-track tape 
are being used, 

• The original CCW count is less than 
the physical block size en the tape. 

• "Suppress data transfer" is specified 
in the original CCW, 

In attempting opposite-direction 
recovery, the error routine first 
prepares to read without repositioning 
the tape. The routine then issues a 
Read or Read Backward coirrrand as its 
first retry. On subsequent retries, it 
repositions the tape, issues a 
Track-In-Error command, and then a Read 
or Read Backward command. After every 
fourth retry, the routine causes a 
tape-cleaner action. The routine 
continues to retry until it either 
succeeds (no unit check cccurs) cr has 
made 40 unsuccessful retries. The 
read-opposite CCW has the "suppress data 
transfer" bit set until the first 
successful retry. The rcutine then 
alters the read-oppcsite CCW so that it 
can transfer data. The alteration 
consists cf clearing the "suppress data 
transfer" bit and placing the "exact" 
count and the data address in the CCW. 
The "exact" count equals the blccksize 
to be read. If successful, the rcutine 
issues a Forward Space Record command tc 
reposition the tape past the block being 
read. 



If all fcrty read-opposite 
attempts are unsuccessful, 
makes one final retry, this 
attempting to read in the o 
direction. Note that the r 
the final read attempt if e 
permanent bus-out check ccc 
repositioning command is is 
equipment check occurs. If 
will not accept the data ch 
the ERP message writer (all 
after the specified number 
If the user will accept the 
exits to ERP message writer 
switch in ERQFLG on. 



recovery 
the routiine 

time 
riginal 
cutine avoids 
ither a 
urs vvhen the 
sued or an 

the user 
eck, exits to 
cw ignore) 
cf retries. 

data check, 

with PASSBK 



If the operation is a write cr write 
tape mark, the tape is repositioned, an 
Erase Gap command is issued, and the 
Write or Write Tapemark command is 
reissued. This procedure is followed 
until fifteen retries have been 
attempted. For 3410 and 3420 tape 
units, a loop-write-to-read is issued 
between the 14th and 15th retries. If 
recovery is not successful, exits tc ERP 
message writer to issue message, after 
which the tasH will be canceled. 



If the operation is an erase gap, the 
command is reissued. This procedure is 
followed until three retries have been 
attem.pted; then exits to ERF message 
writer tc issue iressage. after which the 
task is canceled. 



Message; OPll DATA CHECK. 



• CSW Bit 44 - Channel Data Check. 



^ 



Action : 
a read cr 
reposition 
reissued 
during a c 
reissued, 
until five 
then exits 
issue mess 
canceled. 



f this condition cccurs during 
write cperaticn, the tape is 
ed and the command is 

If this ccnditicn cccurs 
cntrcl command, the command is 

This procedure is followed 

retries have been attempted; 

to ERP message writer to 
age, after which the task is 



Message; 0P2 8 CHAN DTCHK. 



• Sense Byte 0, Bit 7 - Data Converter 
Check. 

Action: Exits to ERP message writer to 
issue message, after which the task is 
canceled. 



Message: 0P3 CONVRT CHK . 



• Sense Byte 1, Bit 7 - Not Capable. 

Action: Rewinds and unloads tape. 
Waits for a new tape to be mounted. 

Message: 0P3 2 NON COMPAT. 



• CSW Bit 47 - Channel Chairing Check. 

Action : The tape is repositioned and 
the command is reissued. This procedure 
is fcllcwed until five retries have been 
attempted; then, if recover^/ is without 
success, exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message: 0P14 OVERRUN. 



• Sense Byte 5, Bit 3 - PE ID Burst Check. 

Action; The tape is repositioned at the 
lead point and retried fifteen times. 
If the fifteenth retry is also without 
success, the tape is unleaded. Waits 
for a new tape tc be mounted. 

Message; 0P44 ID CHK. 
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Sense Byte 1, Bit 4 - Unit Check (Data 
Security Erase Failed) . 



^ction: ISo retries are atteirpted. 
Exits to ERP message writer tc issue 
iressage, after which the task is 
canceled. 



Message: OP 42 DSE FAILED. 



Sense Byte 1, Bit 6 - File Prctect. 

Action; No retries are attempted. 
Rewinds and unloads tape. Waits for 
file protect ring. 

Message: 0P17 FILE PROT. 



None of the above. 

Action: Ko retries are attenpted. 
Exits to ERP iressage writer tc issue 
iressage, after which the task is 
canceled. 

Message: OP 19 UNDETR ERR. 



1403, 1443, 3203, AND 5203 PRINTER ERROR 
RECOVERY ($$ABERRY) 



• CSW Bit 47 - Channel Chaining Check. 

Action: Exits to ERP rressage writer 
with allow retry switch cr. . 

Message: 0P19 UNDETR ERR. 



• Sense Byte 0, Bit 2 (32C3, 5203U), Bit 
2,4, 5 (5203), Bit 4, 5 (1403) cr Bit 6 
(1403U, 1443) . 

Acticn : Exits tc ERP iressage writer tc 
issue iressage, after which the task is 
canceled. 

Message: 0P19 UNDETR ERR 



• Sense Byte 0, Bit 3 - Equipnent Check. 

Action: Exits to ERP nessage writer 
with the allow ignore switch en. 

Message: OPIO EQUIP CHK. 



• Sense Byte 0, Bit 5 - Cede General 
Storage Parity Error (1403U, 3203, 
5203U) . 

Action: If not channel end, exits to 
ERP rressage writer to issue iressage, 
after which the task is canceled. DCS 
buffer irust be reloaded. Otherwise, 
first cne retry. 

Message; 0P33 BUF PARITY. 



Control is passed to this transient by the 
ERP monitor $$ABERRA. The fcllcwing list 
gives the conditions tested for. For the 
1443, bits 4 and 5 of sense byte are set 
to zero. 

• Sense Byte = X*01' - Channel 9 
Overflow. 

Action: Posts CCB and exits tc continue 
processing. 

Note: This test is resident in real 
storage. 



CSW Bit 44 - Channel Data Check, 



Action: If initial selection, cne 
retry. If error persists exits to ERP 
iressage writer. If Initial selection 
with the allow retry switch and if 
Channel end with both allow retry and 
allow ignore switches on. 



Sense Byte 0, Bit 1 
Required. 



Intervention 



Acticn: If device end without channel 
end, ignores this conditicn. Otherwise, 
exits tc ERP iressage writer fcr operator 
intervention. 

Message: 0P0 8 INTERV REQ . 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

Acticn: If initial selection, cne 
retry. If error persists, exits to ERP 
iressage writer. If Initial selection 
with the allow retry switch and if 
Channel end with tcth allow retry and 
allcw ignore switches on. 



Message: 0P0 9 BUSCUT CHK. 



Sense Byte 0, Bit 4 
3203, 5203U). 



Data Check (1403U, 



Message; OP 2 8 CHAN DTCHK. 



Acticn; If byte 0, bit is on see 
Coirirand Reject. Otherwise, exits to ERP 
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iressage writer with the allow ignore 
switch on. 

Message: OP 11 DATA CHECK. 



• Sense Byte 0, Bit - Ccirirand Reject. 



• Sense Byte 0, Bit 3 - Equipirent Check. 

Action: Checks the following bits of 
sense tyte 1 in the order indicated; if 
a bit is on when tested, the systeir 
takes the action indicated in the 
discussion of these tits. 



Action; If comroand code is a UCS block 
data check or reset block data check 
conirand, this condition is igncred and 
processing continues. Otherwise^ exits 
to ERP message writer to issxje iressage, 
after which the task is canceled. This 
procedure allows UCS-oriented prcgrarrs 
to operate on non-UCS hardware. 

Message; 0P18 COMM REJCT. 



Bit - Cortmand retry 
Bit 6 - Mechanical ncticn 
Bit 1 - Print check 
Bit 2 - Print quality 
Bit 3 - Line position. 



If none of the preceding conditions 
occurred, then a transparent sync check 
or a train overload condition occurred. 



Sense Byte = X'OO'. 

Action; If not initial selection, exits 
to ERP iressage writer with the allow 
retry switch on. If initial selection, 
first one retry. 



Action: Exits to resident routines (via 
RKSR transients) to ccntinue processing. 

Message: OPIO EQUIP CHK. 



Mes sage : 



0P19 UNDETR ERR. 



3211 PRINTER ERROR RECOVERY ($$AEERRF) 



Control is norrnally passed to this 
transient by the ERP monitor $$AEERRA. 
When counter overflow or CE mode recording 
has taken place, the RKSR transients 
$$AEERA1 and $$AEERA2 nay pass control to 
this phase. The following list gi\/es the 
conditions tested for. 

• Sense Byte 0^ Bit 7 - Channel 9 
Overflow. 

Action: Posts CCB and ccntinues error 
testing* 



Sense Byte 0, Bit 1 - Intervention 
Required. 

Action; Exits to ERP iressage writer for 
operator intervention (Intervention 
Required bit in ERQELG on) . The 
operator should make the device ready to 
continue processing. 

A Fcrms Check or an Interlock Condition 
has occurred on the 3211. The probable 
causes are: 

Carriage Detent Switch off 
Paper jammed or fcrms tern 
Out of paper 
Stacker full 
Gate not latched 
Train net positioned 
Stop key active 
Vacuum low 
Train overload. 



Note; There is also a main storage 
resident test for Channel 9 Overflow 
(with no other bits posted in sense byte 
0). 



CSW Bit ^^ - channel Data check. 

Action; If initial selection, one 
retry. If error persists, exits to ERP 
message writer to issue message, after 
which the task is canceled. If Channel 
end, exits to ERP message writer with 
the allow ignore switch en. 



Message: 0P0 8 INTERV REQ, 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

Acticn; If not with ECB parity check 
Tsense byte 3, bit 2), cne retry. If 
error persists, exits to ERP message 
writer to issue message, after which the 
task is canceled. 

If with FOB parity check, exits to ERP 
message writer with the allow retry 
switch on. 



Message; 0P28 CHAN DTCHK. 



Message; 0P0 9 EUSOUT CHK. 
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• Sense Byte 0, Bit 4 - Data Check. 



Sense Byte 0, Bit 6 - Load Check. 



Action: Checks the follcv^iing bits cf 
sense byte 1 in the order indicated; if 
a bit is on when tested^ the systeir 
takes the action indicated in the 
discussion of these bits. 



Acticn ; An error ccnditicn occurred 
vvhen either the UCSE cr the FCE was 
loaded. Exits to ERP iressage writer to 
issi:e iressage^ after which the task is 
canceled. 



Bit 1 - Print check 
Bit 3 - Line position. 



Message; OPUl LOAD CHECK. 



If neither of the preceding conditions 
occurred, takes the following action: 



Action; Exits to ERP rressage writer 
with the allow ignore switch en. 



Ncne cf the above. 

Action : Exits to ERP nessage writer 
with the allow retry switch on, 

Message: 0P19 UNDETR ERR. 



$?J§ssa£e: OP 11 DATA CHK. 



• Sense Byte 0, Bit 5 - Buffer Parity 
Check. 

Action; Checks the following bits of 
sense byte 1 in the order indicated; if 
a bit is on when tested, the systeir 
takes the action indicated in the 
discussion of these bits. 

Bit 3 - Line position 
Bit - Coinirand retry. 

If neither of the preceding ccnditicns 
occurred, takes the following action: 

Action; If the error occurred en a 
write coirirand, posts it in the 
associated CCB. If return is specified 
in the CCB (byte 2, bits 5 and 6 on), 
turn on the PASSBK switch in ERQFLG and 
exits to ERP iressage writer to issue 
iressage, after which control will be 
returned to user. If return is not 
specified, exits to ERP iressage writer 
with the allow ignore switch in ERQELG 
on, to provide a message that allows the 
operator to respond with IGNORE or 
CAiNICEL. 

If the error occurred on a Buffer Read 
cortiirand, returns (via RMSR transients) 
to resident routines to continue 
processing. 

Message: OP 3 3 BUF PARITY. 



• Sense Byte 0, Bit 3 - Coirirand Reject. 

Action; Exits to ERP rressage writer to 
issue message, after which the task is 
canceled. 

Message; OP 18 COMM REJCT. 



• Sense Byte 1, Bit - Coirirand Retry. 

Action; For message OPIO, a print line 
buffer parity check occurred. The 
recovery procedure depends on the user's 
errcr cpticn for Coirirand Retry (CCB byte 
2, bit 5). 

a. If the Command Retry option is 
specified, reissues the failing CCVJ . 
If the retry is unsuccessful, the 
errcr is considered uncorrectable. 
Issues a Skip to channel (X"83») 
ccirirand to allcw the carriage to 
perform the suppressed carriage 
motion command. Then exits to ERP 
m.essage writer to issue message, 
after which the task is canceled. 

b. If the Command Retry option is not 
specified, issues a Skip to channel 
(X'83') command to allow the 
carriage tc perform the suppressed 
carriage motion command. Then exits 
tc ERP message writer tc issue 
message, after which the task is 
canceled. 

Fcr message 0P33, a UCSB parity check 
occurred. If return is specified in the 
CCB (byte 2, bits 5 and 6 on), turns on 
the PASSBK switch in ERQFLG and exits to 
ERP message writer to issue message, 
after which ccntrcl will be returned tc 
user. If return is net specified, 
issues a Skip tc channel C (X'83') 
command to allow the carriage tc perform 
the suppressed carriage mctien command, 
then exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Note; Vvhen control is returned to the 
user, the acticn depends en the user's 
errcr reutine tc relcad the UCS buffer. 
After the UCS buffer is reloaded, the 
failing CCW can be reissued. 
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• Sense Byte 1, Bit 1 - Print Check. 

Action; for message OPIO, a print check 
occurred for one or irore cf the 
following reasons: 

Hamirer fire check 

Sync check 

Coil protection. 

For message OPll, a print check occurred 
because of an unprintable character. In 
both cases (OPIO and OPll) the fcllcvving 
action is taken: 



If return is not specified, exits to ERF 
message writer with the allcw igncre 
switch en (OPlO and OPll). Fcr message 
0P33, the task is canceled eventually. 



• Sense Byte 1, Bit 6 ~ Mechanical Motion. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 






Posts the error in the CCE. If return 
is specified in the CCB (byte 2, bits 5 
and 6 on) , turns on the PA.SSEK switch in 
ERQFLG and exits to ERP message writer 
to issue message, after which ccntrcl 
will be returned to user. If return is 
not specified, then exits to ERF message 
writer with the allow igncre switch on. 



• Sense Byte 1, Bit 2 - Print Quality. 



Action: A print qu 
because the platen 
retract, cr because 
motion or ribbon sk 
detected. Posts th 
If return is specif 
2, bits 5 and 6 on) 
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message writer to i 
which control will 
If return is not sp 
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ignore switch on. 
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failed tc a 

excessive 
ew or both 
e errcr in 
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er with the 



occurred 
dvance cr 
ribbon 
were 
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CCE (byte 
the PASSBK 
ERP 
e, after 

to user, 
en exits 

allow 



• Sense Byte 1, Bit 3 - Line Fcsiticn. 

Action; For m,essage OPIC, the probable 
causes are: 

Carriage failed to move 
Carriage sequence check 
Carriage stop check. 

For message OPll, the probable cause is: 
Non-compare FCB. 

For message 0P33, the prcbable cause is: 
Parity check FCB. 

In each case, posts the error in the 
CCB. If return is specified in the CCB 
(byte 2, bits 5 and 6 on), turns on the 
PASSBK switch in ERQFLG and exits tc ERP 
message writer to issue message, after 
which control will be returned to user. 



2245 PRINTER ERROR RECOVERY ($$AEERRH) 



Control is passed tc this transient by the 
ERP monitor $$ABERRA. The fcllcwing list 
gives the conditions tested for. 

• Sense Byte 0, Bit 7 - Channel 9 
Overflew. 

Action: Post CCE and continue errcr 
testing. 

Note: There is also a main storage 
resident test fcr Channel 9 Overflow 
(with no other bits in sense byte on) , 



CSW Bit aa - Channel Data Check. 

Action; If initial selection, cne 
retry. If errcr persists exits tc ERP 
message writer to issue message, after 
which the task is canceled. Channel 
end: exits to ERP message writer with 
the allow ignore switch on. 



Message : 



0P2 8 CHAN DTCHK. 



Sense Byte 0, Bit 6 - load Check, 

Action: One retry. If error persists, 
exits tc ERP message writer tc issue 
message, after which the task is 
canceled. 

Message: 0P41 LOAD CHECK. 



• Sense Byte 0, Bit 3 - Equipment Check. 

Acticn: Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message: OPIO EQUIP CHK . 
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• Sense Byte 0, Bit b - FCE Parity Check. 



Action: If the comirand is 
retry. If error persists, 
iressage writer to issue ires 
vvhich the task is canceled, 
comirand is not load FCB, po 
Position' in the CCE and te 
for passback option (byte 2 
6). If on, posts PASSBK in 
flag byte and exits to ERP 
vvriter. If not on, exits t 
writer vvith allow ignore sw 

Message: OP 3 3 BUF PARITY. 



lead FCB, one 
exits to ERP 
sage, after 

If the 
sts 'Line 
sts the CCB 
, bits 5 and 

the ERQFLG 
iressage 
c ERP iressage 
itch on. 



• Sense Byte 0, Bit 1 ~ Intervention 
Required. 



Action; Exits to ERP iressage writer for 
operator intervention. 



^^ssage: OP 08 INTERV REQ, 



Sense Byte 0, Bit 2 



Bus-Out Check. 



Action: If initial selection, cr data 
transfer cf a load FCB ccirirand, one 
retry. If error persists, exits to ERP 
iressage writer to issue iressage, after 
which the task is canceled. If data 
transfer of a write coirirand , nc retry. 

B^essage: 0P09 BUSOUT CHK. 



• Sense Byte 0, Bit - Ccirnand Reject. 

Action; Exits to ERP iressage writer to 
issue message, after which the task is 
canceled. 



t^.essage: 0P18 COMM REJCT . 



• Sense Byte 0, Bit 4 - Data Check. 



Action: 



Posts *Line Position' in the 



CCB and tests the CCB fcr passback 
option (byte 2, bits 5 and 6). If en, 
posts PASSBK in the ERQFLG flag byte and 
exits to ERP message writer. If not on, 
exits to ERP message writer with allow 
ignore switch on. 

Message: OPll DATA CHECK. 



None of the above. 

Action: Exits to ERP message writer 
with the allow retry switch en. 

Message: OP 19 UNDETR ERR. 



1^^2 and 2596 punched card device ERROR 
RECOVERY ( $$AEERRY ) 



Ccntrel is passed to this transient by the 
ERP mcnitcr $$ABERRA. The fcllcwing list 
gives the conditions tested for. 



CSW Bit 44 



Channel Data Check, 



Action: If initial selecticn, cne 
retry. If error persists, exits tc ERP 
message writer with the allow retry 
switch en. If data transfer, exits tc 
ERP message writer for eperatcr 
intervention. 

Message: 0P28 CHAN DTCHK . 



• CSW Bit 47 - Channel Chairing Check 
(1442P cnly). 

Action; Exits to ERP message writer 
with the allow retry switch en. 



Message: 0P19 UNDETR ERR. 



• Sense Byte 0, Bits 6 and 7. 

Acticn: Exits to ERP message writer to 
issue message, after which the task is 
canceled. 



Message: 0P19 UNDETR ERR. 



• Sense Byte 0, Bit 3 - Equipment Check. 

Action: Exits to ERP message writer for 
operator intervention. 

Message; OPIO EQUIP CHK. 



• Sense Byte 0, Bit 1 - Intervention 
Required. 

Acticn: If device end without channel 
end, ignores this condition. Otherwise, 
exits to ERP message writer for operator 
intervention. 

Message OP 8 INTERV REQ. 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

Acticn; I'f initial selecticn, cne 
retry. If error persists, exits to ERP 
message writer with the allow retry 
switch en. If data transfer, exits tc 
ERP message writer for operator 
interverticn. 

Message; 0P09 BUSOUT CHK. 
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• Sense Byte 0, Bit 4 - Data Check. 

Action; Exits to EEP message writer for 
ccerator intervention. 



Sense Eyte 0, Bits 6 and 7 (2501); Bits 
5 and 7 (2540, 3881); Bits a, 5, and 6 4 
(2520, en Write coirirand) , Bit 6 (2520, (J 
net en V^rite ccirir.and) • 



Message; OPll DATA CHECK. 



• Sense Byte 0, Bit 5 - Overrun (1442 
only) . 

Action; Exits to ERP iressage writer for 
operator intervention. 

Message; OP 14 OVERRUN. 



• Sense Byte 0, Bit - Coirnand Reject. 

Action; Exits to ERP iressage writer to 
issue message, after which the task is 
canceled. 



Message : 



0P18 COMM REJCT. 



• Sense Byte = X'OO'. 

Action: Exits to ERP message writer 

with the allow retry switch en. 

Message; 0P19 UNDEIR ERR. 



Action ; Exits to ERP iressage writer to 
issue message, after which the task is 
canceled . 

Message; 0P19 UNDETR ERR. 



• Sense Byte 0, Bit 3 - Equipment Check. 

Acticn; Reader - Exits tc ERF message 
writer for operator intervention. Punch 
~ If initial selection continues testing 
sense tits. Otherwise, if Return 
Equipment Check bit in CCE is on, 
switches PASSBK on, pests CCE (Eq. 
Check) and exits tc ERP message writer. 
If Return Equipment Check bit is not on, 
exits tc ERP message writer with the 
allow ignore switch on. Eor 2520^ Byte 
0, Bit 7 indicates punch check. 



Message: OPIO EQUIP CHK . 



Sense Byte 0, Bit 1 
Required. 



Intervention 



Action: If device end without channel 
end, ignores this conditicn. Otherwise, 
exits tc ERP message writer fcr operator 
intervention. 



2501, 2520, AND 2540 PUNCHED CARD DEVICE 
AND 38 81 OPTICAL MARK READER ERROR RECOVERY 
($$ABERRY) 



Control is passed to this transient by the 
ERP m.onitor $$AEERRA. The fellcwing list 
gives the conditions tested for. 

• CSW Bit 44 - Channel Data Check. 

Action; If initial selectien, cne 
retry. If error persists, exits to ERP 
message writer with the allow retry 
switch on. If read data transfer, exits 
to ERP message writer fcr operator 
intervention. If punch data transfer, 
one retry. If error persists, exits to 
ERP message writer with the allow retry 
switch on. 

Message; OP 2 8 CHAN DTCHK 



Message; 0P0 8 INTERV REQ. 



• Sense Byte 0, Bit 2 - Bus-Cut Check. 

Acticn; If initial selectien, cne 
retry. If error persists, exits to ERF 
message writer with the allcw retry 
switch on. If the device is a 2540P, 
also one retry even when not initial 
selectien. 

Message; 0P0 9 BUSCUT CHK. 



Sense Byte 0, Bit 4 - Data Check (cannet 
occur on 2520 punch or 3881). 

Action; Exits to ERP message writer for 
operator intervention. 

Message: OPll DATA CHECK. 



• CSW Bit 47 - Channel Chaining Check 
(2540, 2520P and 3881 only). 

Action; Exits to ERP message writer 
with the allow retry switch en. 

Message; 0P19 UNDETR ERR. 



Sense Byte 0, Bit 5 - Cverrun (cannet 
occur on 2540 or 2520 punch or 3881). 

Action; Exits to ERP message writer for 
operator intervention. 

Message: 014 CVERRUN. 
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• Sense Byte 0, Bit - Ccirirand Reject. 



CSW Bit 44 - Channel Eata Check, 



j^ction; Exits to ERP ncessage writer to 
issue message, after which the task is 
canceled. 



Message: 0P18 COMM REJCT, 



• Sense Byte 0, Bit 6 - Unusual Ccirirand 
Sequence (2540 read comirand cr 3881). 



Acticn: Exits tc ERP iressage writer tc 
issue iressage, after which the task is 
canceled. 

Message; 0P2 8 CHi^.N DICHK. 



CSW Bits 32, 33, and 34 (unused status 
bits) - or not Unit Check in CSW status 
fcyte - cr Sense Byte C, Bit 5 (unused 
sense kit) . 



Action: Posts CCE and continues, 
ignoring the condition. 



Action: Exits to ERP iressage writer to 
issue iressage, after which the task is 
canceled. 



Message: 0P18 COMM REJCT. 



Message: 0P19 UNDETR ERR. 



• Sense Byte = X'OO' . 

Action: Exits to ERP iressage writer 

with the allow retry switch en. 

Message; 0F19 UNDETR ERR. 



• CSW Bit 47 - Channel Chaining Check (not 
2540, 252CP, or 3881). 

Action; Exits to ERP message writer for 
operator intervention. 

Message; 0P14 OVERRUN. 



None of the atove. 

Action; Exits to ERP m,essage writer 
with the allow retry switch en. 

Message ; 0P19 UNDETR ERR. 



3504, 3505, AND 3525 PUNCHED CARD DEVICE 
ERROR RECOVERY ($$ABERRG) 



Control is passed to this transient by the 
ERP monitor $$ABERRA. The fcllcwirg list 
g^ives the conditions tested for. 



Sense Byte 0, Bit 7 
(Error Bypass Key) . 



Permanent Error 



Action: Operator pressed the permanent 
error bypass key instead cf having 
recovery performed. If Return Permanent 
Error bit in CCB is on, switches PASSBK 
in ERQEIG en, posts CCB and exits to ERP 
message writer. Ctherwise, exits tc ERP 
message writer to issue message, after 
which the task is canceled. 

Message; 0P4 9 PERM ERROR. 



• Sense Eypte 0, Bit 3 - Equipment Check. 

Action; Checks the following bits cf 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action indicated in the 
discussion cf these bits. 

Bits 4, 5, 6, and 7 - unused bits 

Bit - Permanent Errcr 

Bit 3 - Retry after intervention 

complete 
Bit 1 - Automatic Retry. 

If none cf the preceding conditions 
occurred, exits to ERP message writer to 
issue message, after which the task is 
canceled. 



Message: OPIO EQUIP CHK . 



CSW Bit 45 and 46 - Channel cr Interface 
Control Check. 



Sense Byte 0, Bit 6 - Abnormal Format 
Reset. 



Action: Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message; 0P19 UNDETR ERR. 



Action; Checks the following bits of 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action indicated in the 
discussion cf these bits. 
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Eits 4, 5, 6, and 7 - unused hits 

Eit - Feriranent Error 

Eit 3 - jRetry after intervention 

complete 

Eit 1 - Autorratic Retry. 

If none of the preceding conditions 
occurred, exits to ERP rressage vvriter to 
issue message, after which the task is 
canceled. 



Eit 3 ~ Retry after intervention 

ccirplete 

Eit 1 - Automatic Retry. 



If Ecne cf the preceding ccnditions 
occurred, exits to ERF message writer to 
issue message, after v^hich the task is 
canceled. 



^ 



Message: 0P4 8 FORMAT RSI. 



Message: OPll DATA CHECK, 



• Sense Byte 0, Bit 1 
Required. 



Intervention 



Action; Checks the follcwing hits cf 
sense byte 1 in the order irdicated; if 
a bits is on when tested, the system 
takes the action indicated in the 
discussion of these bits. 



• Sense Eyte 0, Eit - Command Reject. 

Action; Checks the following bits of 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action indicated in the 
discussion cf these tits. 



Eits 4, 5, 6, and 7 - unused bits 

Eit - Permanent Error 

Eit 3 - Retry after intervention 

complete 

Eit 1 - Automatic Retry. 

If none of the preceding conditions 
occurred, exits to ERP message writer tc 
issue message, after which the task is 
canceled. 



Eits ^, 5, 6, and 7 - unused bits 

Bit - Permanent Error 

Eit 3 - Retry after irterverticn 

complete 

Eit 1 - Automatic Retry. 

If none of the preceding conditions 
occurred, exits tc ERP message writer to 
issue message, after which the task is 
canceled. 



Message; 0P08 INTERV REg. 



Message; 0P18 COMM REJCT. 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

Action: Checks the follcwing bits cf 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action indicated in the 
discussion of these bits. 

Eits 4, 5, 6, and 7 - unused bits 

Eit - Permanent Error 

Eit 3 - Retry after intervention 

complete 

Eit 1 - Automatic Retry. 

If none of the preceding conditions 
occurred, exits to ERP message writer to 
issue message, after which the task is 
canceled. 



Ncne cf the above. 

Action: Exits to ERP message writer to 
issue message, after which the task is 
canceled. 



Message : 



0P19 UNDETR ERR. 



Sense Eyte 1, Eits 4, 5, 6, and 7 - 
unused bits . 

Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message ; See correspcrdirg bits in Byte 
0. 



Message; 0P09 BUSOUT CHK. 



• Sense Byte 0, Bit 4 - Data Check. 

Action: Checks the follcwing bits cf 
sense byte 1 in the order indicated; if 
a bit is on when tested, the system 
takes the action of these bits. 



• Sense Eyte 1, Eit - Permanent Error. 

Action; If Return Permanent Error tit 
in CCE is on, switches PASSEK in ERQFIG 
on, pests CCB and exits tc ERP message 
writer. Otherwise, exits to ERP message 
writer tc issue message, after which the 
task is canceled. 



Eits 4, 5, 6, and 7 ~ unused bits 
Eit - Permanent Error 



Message: see corresponding bits in Byte 
0. 
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Sense Byte 1, Bit 3 - Retry after 
Intervention complete. 

Action; Exits to EEP rressage \^riter for 
operator intervention. (Intervention 
Required flag in ERQFLG on) . 

^es;sage ; see corresponding tits in Byte 
0. 



• Sense Byte 1, Bit 1 - Autciratic Retry. 

get ion; Retries failing CCW once. If 
successful^ continues ncriral prcgrair 
execution. If unsuccessful, and if 
Return Permanent Error bit in CCE is on, 
switches PASSEK in ERQFLG on, posts CCB 
and exits to ERP message vjriter. 
Otherwise, exits to ERP message writer 
to issue message, after which the task 
is canceled. 



K es s a^e : 
0. 



see corresponding kits in Byte 



• Sense Byte 0, Bit 3 - Equipment Check. 

Action: Posts CCE (byte 3, bit 3). 
Checks CCB whether user wants return. 
If this is the case, exits tc the ERP 
message writer with the Pi^SSEK flag in 
ERQFLG cn. 



If the user did not specify r 
is taker tc the ERP message w 
operator intervention (CPINT 
cn) . This causes the message 
phase $$ABERRM to fetch the s 
message writer phase $$i^BERRC 
provides the appropriate rest 
information in the message an 
repcsiticning information in 
Communication Region (SYSCCiyi) 
$$i\EERRE. The repcsiticning 
condition is indicated in the 
then passes control tc the ne 
message writer phase $$J\EERRN 
cperatcr intervention with th 
retry switch on. 

Message; OPIO EQUIP CHK. 



eturn, exit 
riter for 
in ERQFLG 

writer 
pecial 2560 
$$AEERRC 
art 

d stores 
the System 

for use by 
required 

PUB. It 
xt ERP 

for 
6 allow 



2560 CARD I^ACHINE ERROR RECOVERY ($$ABERRY, 
$$AEERRC, $$ABERRD) 



Control is passed to $$ABERRY by the ERP 
monitor $$AEERRA. The transients $$ABERRC 
and $$ABERRD are called only if operator 
intervention is required. $$AEERRC is 
called by $$ABERRM and $$AEERRE is called 
by the ERP monitor $$AEERRA. The following 
list gives the conditions tested for by 
$$AEERRY. 

• CSW Bit ^^ - channel Data Check. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. If initial selection, first 
one retry. 



Mes sa£e ; 



0P28 CHAN DTCHK. 



• CSW Bit 47 - Channel Chaining Check. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message; 0P19 UNDETR ERR. 



• Sense Byte 0, Bits 2 and 7. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message; OP 19 UNDETR ERR. 



Sense Eyte 0, Bit 1 - Intervention 
Required. 

Action ; Exits to ERP message writer for 
operator intervention. The operator 
intervention required flag (OPINT) in 
ERQFLG causes the ERP message writer 
phase $$ABERRM tc fetch the special 2560 
message writer phase $$ABERRC. $$AEERRC 
provides the appropriate restart 
information in the message and stores 
repositioning information in the System 
Communication Region (SYSCdy.) for use by 
$$ABERRE. The repositioning required 
condition is indicated in the PUB. It 
then passes control to the next ERP 
message writer phase $$ABERRN for 
operator intervention with the allow 
retry switch on. 

However, if $$AEERRC determines a 
Intervention Required condition, not at 
Initial Selection and not Cover or 
Feed/Machine Check, the error is 
ignored. 

Message; 0P0 8 INTERV REQ . 



• Sense Eyte 0, Bit 4 - Data Check. 

Action; Posts CCE (byte 3, bit 3). 
Checks CCE whether user wants return. 
If this is the case, exits to the ERP 
message writer with the PASSEK flag in 
ERQFLG cn. 

If the user did net specify return, exit 
is taken to the ERP m.essage writer for 
operator intervention (CPINT in ERQFLG 
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en) • This causes the message vvriter 
phase $$AEERRD{ to fetch the special 2560 
iressage writer phase $$AEERRC. 

If the data check is on a ccirrrand other 
than read, $$ABERRC returns ccntrcl tc 
the supervisor for cne retry. If the 
error persists, control is passed tc the 
supervisor to cancel the task. No 
iressage is issued. 

For other data checks, $$ABERRC provides 
the appropriate restart infcrrraticn in 
the message and stores repositioning 
information in the System Ccmmunicaticn 
Region (SYSCCiyi) for use by $$AEERRD. 
The repositioning required ccndition is 
indicated in the PUE. It then passes 
control tc the next ERP message \writer 
phase $$AEERRN for operator intervention 
with the allow retry switch en. 

Message: OFll DATA CHECK. 



• Sense Byte 0, Bit - Command Reject. 

Action: Exits to ERP message writer to 
issue message, after which the task is 
canceled . 

55essac[e: OF 18 COMM RE JCT . 



• Sense Byte 0, Bit 6 - Nc Card Available. 

Action: Posts CCB and exits tc ERP 
message writer with the allow ignore 
switch on. 

Kessa^e: 0F18 COMM REJCT. 



• Sense Byte = X'OO'. 

Action; Exits to ERP message writer 
with the allow retry switch en. 

Message: 0P19 UNDETR ERR. 



$$ABERRD is 
$$AEERRA when 
error is a 256 
(repositioning 
in the PUBCFTN 
$$AEERRD perfo 
necessary befo 
failing operat 
repositioning 
by $$AEERRC. 



called by the ERF Keniter 
it finds that the device in 
with the high-erder bit 

required, set by $$AEERRC) 

byte of the PUB en. 
rms any repositioning 
re an attempt to retry the 
ion can be made. It uses the 
information stored in SYSCOM 



If the device is not operational, 
control is passed to $$ABERRA, with the 
repcsitioning required bit reset. 
Eventually the task will be canceled. 

If an errer occurs during the 
repcsitioning attempt, control is passed to 



the ERF message writer with the CPINT 
(X'40') ard allow retry (X'Oa') flags in 
ERQFLG on. Eventually $$AEERRC receives 
cciiticl again and moves the restart number 
5 (error on recovery) into the message. 

After successful repositioning, the 
repcsiticring required flag is reset and 
control is passed to the supervisor to 
retry the failing cperaticn. 



5425 CARD KACHINE ERROR RECOVERY ($$ABERRY, 
$$ABERRE, $$AEEREE, $$AEERRD) 



Control is passed to $$AEERRY by the ERP 
mcnitcr $$AEERRA. The transients $$AEERRE, 
$$AEEREE, and $$AEERRD are called cnly if 
cperater intervention is required. 
$SAEERRE is called by $$AEERRM and $$AEERRD 
is called by the ERP monitor $$AEERRA. The 
fcllcwing list gives the conditions tested 
for by $$AEERRY. 

• CSW Bit 44 - Channel Lata Check. 

A ct i c n : Exits to ERP message writer to 

issue message, after which the task is 

cancelled. If initial selection, first 
cne retry. 

Message: 0P2 8 CHAN DTCHK. 



• CSW Bit 47 - Channel Chairing Check. 

Acticn ; Exits tc ERP message writer tc 
issue message, after which the task is 
cancelled. 

Messgae; 0P19 UNDETR ERR. 



• Sense Eyte 0, Bits 2, 4, 5, and 7. 

Acticn; Exits tc ERP message writer tc 
issue message, after which the task is 
cancelled. 

Message; 0P19 UNDETR ERR. 

N ote : This message is also issued if 
the equipment cheek bit is on (see 
below) and sense byte 1 is zerc. 



• Sense Byte 0, Bit 3 - Equipment Check. 

Action: Posts CCE (byte 3, bit 3). 
Checks CCB whether user wants return. 
If this is the case, exits to the ERP 
message writer with the PASSEK flag in 
EROFIG on. If the user did net specify 
return, exit is taken to the ERP message 
writer for cperater interventien (OPINT 
in ERQFIG on) . This causes the message 
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writer phase $$AEERRiy! tc fetch the 
special 5425 iressage writer phase 
$$AEERRE, $$ABERRE provides (1) the 
restart inforrration in the rressage and 
(2) the CCW operation cedes for the 
restart in the IJEMFCER area of the ERP 
SYSCOM; these operation cedes are later 
used by $$AEERRD. The Repositioning 
Required condition is indicated in the 
FUB. $$AEERRE then passes ccntrcl to 
the next ERF iressage writer phase 
$$AEERRN for operator intervention with 
the for operator intervention with the 
Allow Retry switch on. 

Message; OPIO EQUIF CHK. 



Sense Byte 0, Bit 1 
Required. 



Intervention 



Action: Exits to ERP message writer for 
operator intervention. The Operator 
Intervention Required flag (CPINT) in 
ERQFLG causes the ERP message writer 
phase $$AEERRM to fetch the special 5425 
message writer phase $$AEERRE. In case 
of Device Not Ready and CCE fcyte 2 bit 4 
en, d bit 4 on, $$AEERRE returns to user 
(PASSEK in ERQFLG on). Otherwise 
$$AEERRE provides (1) the restart 
information in the message and (2) the 
CCW operation codes for the restart in 
the IJBWFCER area of the ERP SYSCOM; 
these operation codes are later used by 
$$AEERRD. If a feed check has occurred, 
control is passed to $$AEEREE which 
completes the error message and 
generates the CCW operation codes for 
feed-check restart. The Repositioning 
Required condition is indicated in the 
FUB. $$AEERRE then passes control to 
the next ERP message writer phase 
$$AEERRN for operator intervention with 
the Allow Retry switch en. 

However, if $$ABERRE determines an 
Intervention Required ccnditicn, not at 
Initial Selection and not Hcpper or Feed 
Check, the error is ignored. 



Message; 0P18 COMM REJCT. 

$$AEERRB is called by the ERF Meritor 
$$AEERRA when it finds that the device in 
error is a 5425 with the high-order bit 
(Tepositioning Required, set by $$ABEREE or 
$§AEERRE) in the PUBCPTN byte of the PUB 
en. $$AEERRD performs any repositioning 
necessary before an attempt to retry the 
failing operation car be made. It uses the 
CCW operation codes stored in SYSCCM by 
$$AEEREE or $$ABERRE. 

If the device is ret operational, 
control is passed to $$AEERRA, with the 
Repositicring Required bit reset. 
Eventually, the task will be cancelled. 

If an error occurs during the 
repositicring attempt, centrel is passed to 
the ERF message writer with the OFINT 
(X'40') ar.6 Allow Retry (X'04M flags in 
the ERQFLG on. Eventually, $$AEERRE 
receives control again and mcves the 
restart number 6 (errcr en reccvery) into 
the miessage. 

After successful repositioning, the 
Repositioning Required flag is reset and 
control is passed to the supervisor to 
retry the failing operation. 



2671 ERRCR RECOVERY ($$AEERRV) 



Control is passed to this transient by the 
ERF monitor $$ABERRA. The following list 
gives the conditions tested for. 



CSW Bit 44 



Channel Lata Check. 



Action: If not initial selection, exits 
tc ERP message writer to issue message, 
after which the task is canceled. If 
initial selection, first one retry. 

Message; 0P2 8 CHAN DTCHK. 



Message: 0P08 INTERV REQ. 



• Sense Byte 0, Bit - Command Reject. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
cancelled. 

Message; 0P18 COMM REJCT. 



• Sense Byte 0, Bit 6 - No Card Available. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
cancelled. 



Sense Eyte 0, Bits 5, 6, and 7 (unused 
bits) - or Byte 0, Bit 2 (Bus-Cut) with 
channel End or device End. 

Action; Exits to ERP message writer to 
issi^e message, after which the task is 
canceled. 

Message; 0P19 UNCETR ERR. 



• Sense Eyte 0, Bit 3 - Equipment Check. 

Action; Tests CCE for ignore option 
(byte 2, bit 4) and if en, turns on byte 
3, tit 1 of the CCE and exits to the ERP 
message writer with both allow ignore 
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and allow retry switches en. Othervvise, 
exits to ERP message writer for operator 
intervention. 



Message; OPIO EQUIP CHK. 



Note; When an equipment check occurs, 
reposition the paper tape to the 
beginning of the record in errcr to 
perform the retry operation. The device 
must not be readied until this 
repositioning has been performed. If 
the ignore option is available, exercise 
this option by repositioning the tape to 
the beginning of the next record on the 
tape and then responding IGNORE on the 
console printer-keyboard. The ignore 
option is available to the operator 
whenever the user specifies any of the 
DTFPT ERRCPT entry options. 



Sense Byte 0, Bit 1 - Intervention 
Required. 

Action; Exits to ERP message writer for 
operator intervention. (Intervention 
Required flag in ERQFLG on) . 

Message; OF 08 INTERV REQ. 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

j^ction; One retry. If errcr persists, 
exits to ERP message writer with the 
allow retry switch on. 

Message; OF 09 BUSOUT CHK. 



To read the rest of the record, the 
problem program (Icgical IOCS) should 
add one to the CCW data address and 
subtract one frcm the byte ccunt to 
adjust for not reading the tad 
character. It should then reissue the 
EXCP. The operator must backspace the 
tape two character characters for retry 

(cpticn retry or en the A-type message 
when ignore is not allowed) . If the 
operator chooses the ignore option (the 
character in error is rot to be reread) , 
he must backspace the tape one character 
if the load key was pressed tc free the 
tape or if the character preceding the 
character under the read head is EOR 

(End-Cf-Record) . Otherwise, no manual 
intervention is required fcr the ignore 
option. The ignore option is available 
tc the operator whene-ver the user 
specifies any of the ETFPT ERROPT entry 
options. 

• Sense E;^te 0, Bit - Command Reject. 

Action ; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message: 0P18 COMM RE JOT . 

Note ; A record must not be partly on 
one tape and partly on another. 



None of the above. 

Action; Exits to ERP message writer 
with the allow retry switch on. 

Message; 0P19 UNDETR ERR. 






• Sense Byte 0, Bit 4 - Data check. 

Action; Tests CCB for ignore option 
(byte 2, bit 4) and if on, turns on byte 
3, bit 3 of the CCB and exits tc the ERP 
message writer with both allow ignore 
and allow retry switches on. Otherwise, 
exits to ERP message writer fcr operator 
intervention. 



2311 AND 2314 DASD ERRCR RECOVERY 



This routine is resident and entered at 
label CISKERR. The fcllcwing list gives 
the conditions tested for. 

• CSW Bit 44 - Channel Data Check. 



I^essa^e; OP 11 DATA CHECK. 

Note; When a data check occurs, the 
user's CCW is modified by the error 
routine to allow rereading cf the last 
character. The data address is the last 
character read (character in error) , and 
the byte count is decreased by the 
number of valid characters read. If the 
CCB ignore option is chosen and the 
operator responds IGNORE, the I/O 
operation is dequeued and posted with 
the unrecoverable error bit en (CCB byte 
2, bit 2) and 2671 data check bit on 
(CCB byte 3, bit 3) . 



Action; One retry. If error persists, 
exits tc disk ERP transient and ERP 
message writer with the allow retry 
switch on. 

Message; 0P28 CHAN DTCHK . 



• Sense Byte 0, Bit 3 - Equipment Check. 

Action; Exits to disk ERP transient and 
ERP message writer with the allow retry 
switch en. 



Message; OPIO EQUIP CHK. 



I 
I 
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• Sense Byte 1, Bit 4 - Nc Record Found. 



• Sense Byte 0, Bit 4 - Eata Check, 



Action: Tests for byte 1 
(Missing Address Marker) • 
executes restore coirroand 
retry the operation. If 
persists after 10 retries 
ERP transient and ERP mes 
with the allow retry swit 
present, reads Home Addre 
it to user's Seek Address 
posts No Record Found to 
exits to continue process 
equal, the condition is t 
Seek Check. 



bit 6 

If present, 
and exits to 
the errcr still 
, exits to disk 
sage writer 
ch en. If not 
ss and compares 

If equal, 
the CCE and 
ing . If not 
reated as a 



Action ; CCB options 
data check en read cr 
retry the operation . 
persists after 256 re 
disk ERI transient an 
writer with the allow 
After each 16 retries 
performed until the m 
retries is reached 
after 256 retries, po 
ccunt tc CCB, if pres 
posts data check. If 
verify (implied) , pes 
CCB. 



(all data checks, 
verify) . Exits tc 
If the error still 
tries, exits to 
d ERF message 
retry switch en. 
a recalibrate is 
aximum of 256 
If error persists 
sts data check on 
ent; etherwise, 

command code is 
ts verify errcr in 



Message: 0P21 NRF - MAEDMK (Ko Record 
Found/Missing Address Marker) , cr 0F15 
SEEK CHECK (Home Address unequal to Seek 
Address) . 

Note: Home Address is read, and the 
track address is provided for the error 
message. For other errors, the track 
address is obtained from the user seek 
address if error occurs during channel 
program execution. 



• Sense Byte 0, Bit 7 - Seek Check. 

Action; If byte 0, bit C (ccmmand 
reject) is on, exits to disk ERF 
transient and ERP message writer to 
issue message after which the task is 
canceled. Otherwise, executes restore 
command and exits to retry the 
operation. If the error still persists 
after ten retries, exits to disk ERF 
transient and ERP message writer with 
the allow retry switch en. 

Message; 0P26 INVAI SEEK (Seek 
Check/Command Reject), or 0F15 SEEK 
CHECK. 



• Sense Byte 0, Bit 1 - Intervention 
Required. 

Action; Exits to disk ERF transient and 
ERP message writer for operator 
intervention. 

Message; 0F08 INTERV REQ . 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

Action; Exits to retry the operation. 
If the error still persists after ten 
retries, exits to disk ERF transient and 
ERP message writer with the allcw retry 
switch on. 

Message ; 0P09 BUSOUT CHK. 



The verify command is implied under the 
following ccnditiens: 

The CCVi has a command code X'Ol' (Write 
- Special Ccunt, Key and Eata), and the 
skip and SLI flags are set en. 

The CCW has a command cede X • IE • (Read - 
Count, Key and Data), the skip and SLI 
flags are set en, and this CCW follows a 
CCW with a write comm.and code X'lD*. 

Message; 0P12 VERIFY CHK (Eata Check on 
Verify command), or OFll EATA CHECK 
(Eata Check/net Data Check en Ccunt or 
Verify), or 0P16 DTA CHK CT (Eata Check 
on Count) . 

Note; Home Address is read, and the 
track address is provided fcr the errcr 
message. For other errors, the track 
address is obtained frcm the user seek 
address if error occurs during channel 
program execution. 



• Sense Byte 0, Bit 5 - Overrun. 

Action: Exits tc retry the operaticn. 
If the error still persists after ten 
retries, exits to disk ERF transient and 
ERP message writer with the allcw retry 
switch en. 

Message; 0P14 OVERRUN. 



Sense Byte 1, Bit 6 - Missing Address 
Markers. 

Acticn; Exits to retry the operation. 
If the errcr still persists after ten 
retries, exits to disk ERF transient and 
ERP message writer w with the allow retry 
switch en. 

Message; 0P13 ADER MRKER . 

Note: Home Address is read, and the 
track address is prcvided fcr the error 
message. For other errors, the track 
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address is obtained froir the user seek 
address if error occurs during channel 
program execution. 



• Sense Byte 0, Bit - Ccirnand Reject. 

ifi.ction; Check for Byte 1, Bit 5 (File 
Protect) ; exits in either case to disk 
ERP transient and ERF message writer to 
issue message after which the task is 
canceled. 



Message: 0P14 CVERRUIS. 



Mete; If the errcr routine gets an 
error vvhile trying to execute a Restore 
ccirirand or Read Hcire i^ddress or RO, exit 
is taken to the ERP message writer with 
the allcw retry switch on. 

Message; 0P20 ERR ON REC (errcr during 
recovery) . 



.1 



Mess age : 
PROT. 



0P18 COMM REJCT, cr CP17 FILE 



Sense Byte 0, Bit 6 
Check. 



Track Ccnditicn 



jction; Reads Home Address and RO in 
the error recovery routine and Hcves 
CCHH frorr RO to Seek coirirand executed 
below. 



3330 DISK STORAGE ERRCR RECOVERY 



This routine is resident and entered at 
label DISKERR. The follcwing list gives 
the conditions tested for. 

• CSW Bit 44 - Channel Data Check. 



If alternate track: updates seek 
address to the next track address. If 
the track address equals ten, treats it 
as End of Cylinder; otherwise proceeds 
to next step. 

Sets up the channel program: Seek, Read 
Home Address (with skip bit en) , TIC to 
CSW address minus eight. Executes this 
channel program in error recovery. At 
channel end, exits to channel scheduler 
CSW processing routine. If EASE file 
protection is present, sets the 
appropriate file mask following Seek. 

• Sense Byte 1, Bit 1 - Track Overrun. 

Action: Posts track overrun to the COB 
and exits to continue processing. 



• Sense Byte 1, Bit 2 - End of Cylinder. 

Action: Posts End of Cylinder to the 
COB and exits to continue processing. 



• Sense Byte 1, Bit 5 - File Protect. 

Action; Exits to disk ERP transient and 
ERP message writer to issue message 
after which the task is canceled. 



Action: One retry. If errcr persists, 
exits tc disk ERP transient and ERP 
message writer with the allow retry 
switch en. 

Message: 0P28 CHAN DTCHK . 



• Sense Byte 1, Bit - Permanent Errcr. 
Action: Exits tc retry the operation . 

• Sense Byte 0, Bit 3 - Equipment Check. 

Action: Ten retries. If errcr 
persists, exits tc disk ERP transient 
and ERP message writer with the allcw 
retry switch on. 



Message; OPIO EQUIP CHK. 



• Sense Byte 0, Bit 2 - Bus-Out Check, 

Action: One retry. If errcr persists, 
exits tc disk ERP transient and ERP 
m.essage writer with the allow retry 
switch en. 

Message: 0P0 9 EUSOUT CHK. 



Message: 0P17 FILE PROT. 



• CSW Bit 47 - Chaining Check. 

Action; Ten retries. If error 
persists, exits to disk ERP transient 
and ERP message writer with the allcw 
retry switch on. 



• Sense Byte 0, Bit 1 - Intervention 
Required, 

Action; One retry. If error persists, 
exits tc disk ERP transient and ERP 
message writer with the allcw retry 
switch en. 

Message; 0P08 INTERV REQ . 



I 
4 
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Sense Byte 0, Bit - Ccirirand Reject. 

j^ction: Exits to disk ERF transient and 
ERP message v^riter to issi-e rressage 
after which the task is canceled. 



Message : 



0P18 COMM REJCT. 



• Sense Byte Ig Bit 4 - Nc Reccrd Found. 

j^ction; Retries nine tines. If 
condition persists, posts 
no-record-found to CCB and exits to 
continue processing. 

Message: OP 21 NRF-KADDMH. 



• Sense Byte 0, Bit 5 - Overrun. 

j^c tion ; Nine retries. If error 
persists, exits to disk ERP transient 
and ERP rressage writer with the allcw 
retry switch en. 

Wessa^e: 0P14 OVERRUN. 



Sense Byte 1, Bit 1 
Forir.at. 



Invalid Track 



Taction; Posts track overflew tc CCB and 
exits to continue processing. 

• Sense Byte 0, Bit 4 - Data Check. 

Action; If error is not correctable 
(Byte 2, Bit 1=0), then retries nine 
tiroes and if error persists, exits tc 
disk ERP transient and ERF iressage 
writer with the allcw retry switch en. 

If error is correctable and track 
overflow occurred (Byte 1, Bit 7), then 
exit is taken to retry the operation. 

If error is correctable with no track 
overflow, then the error correctien 
bytes are ORed to error bytes in the 
data area, channel end and device end 
are posted in the CCB, and exit is taken 
to continue processing. 

If the error correction functien detects 
incorrect length and the SLI flag bit is 
off, then incorrect length is also 
posted to the CCB before exit is taken. 

If chaining and end-of-record has been 
detected by error correction before the 
end of the user's channel prcgrair., then 
a Read Count CCW and TIC to user's next 
CCW is built, and exit is taken to 
restart the operation. 



If channel truncation exits, the 
equipirent check bit in sense byte is 
turned on and exit is taken tc retry the 
cperaticn. 

Message; OPll DATA CHECK. 



• Sense Byte 1, Bit 3 - End cf Cylinder. 

Action; Pests End cf Cylinder to the 
CCB and exits to continue processing. 



Sense Byte 1, Bit 5 



File Protect. 



Acticn; Exits tc disk ERP transient and 
ERP iressage writer tc issue iressage 
after which the task is canceled. 

Message; 0P17 FILE PROT. 



• Sense Byte 1, Bit 7 - Track Overflow. 
Acticn; Exits tc retry the cperaticn. 



• Sense Byte 2, Bit 3 - Envircnirental Data 
Present. 

Acticn; Decreirents errer count and 
exits tc retry the operation. 



• CSW Bit 47 - Chaining Check. 

Acticn; Ten retries. If error 
persists, exits to disk ERP transient 
and ERP iressage writer with the allow 
retry switch on. 

Message; 0P14 OVERRUN. 



3340 DASD ERROR RECOVERY 



This routine is resident and entered at 
label DISKERR. The following list gives 
the conditions tested for. 

• Sense Byte 0, Bit - CoKirand reject. 

Acticn; Periranent error - the existing 
supervisor permanent error routine will 
be used. 

Message; 0P18 COMM REJCT. 



• Sense Byte 1, Bit 1 - Invalid track 
forirat. 

Action; Post the track overflow bit in 
the CCB and continue. 
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• Sense Byte 0^ Bit 4 - Nc record found. 



Action: Post the no reccrd fcund bit in 
the CCB and take the continue exit. If 
user wants to retry, retry 10 tirres, 
then take a permanent errcr exit. 



K e s sa^e : 
retried) 



0F21 NRF - MAEDKK (If 



Sense Byte 0, Bit 1 - Intervention 
required. 

Action: The 2314 error rcutine will be 
used. The logging will be dene if a 
nonzero condition exists in byte 10, 
bits 1 - 3 of the error queue entry. 
Return is to the supervisor which calls 
the message routine. 

fjessa^e: 0F08 INTERV REQ . 



Sense Byte 0, Bit 2 
check. 



Bus out parity 



Action: Retry one time, then consider 
error permanent. The 2314 errcr routine 
will be used. The error logging bit 
will be turned on. 



Action: Retry 10 times, then consider 
errcr permanent. The 2314 errcr rcutine 
will be used. The logging bit will be 
turned cn^ 

Message: 0P14 CVERRUK. 



• Sense Byte 0, Bit 6 
check. 



Track ccnditicn 



Action: Read home 
If defective track, 
the alternate track 
to the alternate tr 
resume the operatic 
track, get the addr 
track from reccrd 
defective track plu 
resume the operatic 
rcutine will be use 
to allcw for 3340 c 
checkirg for end-cf 



address and 

get the add 

from reccrd 

ack, then se 

n. If alter 

ess of the d 

seek to th 

s 1, then se 

n. The 2314 

d with mcdif 

ylinder size 

-cylinder. 



record 0, 
ress of 

0, seek 
arch and 
nate 

ef ective 
e 
arch and 

error 
ications 

when 



• Sense Byte 0, Bit 7 - Seek check. 

Action: Execute a recalibrate CCW and 
issue a seek to the original address. 
Retry 10 times, then consider the errcr 
permanent. The 2314 errcr rcutine will 
be used. The logging bit will be turned 
on. 



Message: 0P09 BUSOUT CHK. 



Message: 0P15 SEEK CHECK . 



Sense Byte 2, Bit 3 
present. 



Environmental data 



Sense Byte 0, Bit 4, Byte 2 Bit 1 - Data 
check and correctable. 



Action: Decrement the error count by 
one and retry. The 3330 errcr rcutine 
will be used. The logging bit will be 
turned on. 



• Sense Byte 0, Bit 3 - Equipment check. 

Action: Retry 10 times, then consider 
error permanent. The 2314 error routine 
will be used. The logging bit will be 
turned on. 



Message: OPIO EQUIP CHK. 



• Sense Byte 0^ Bit 4 - Data check 

noncorrectable (byte 2 bit 1 is zero) . 

Action: Retry 10 times, then consider 
error permanent. The 2314 error routine 
will be used. The logging bit will be 
turned on. 



Message: OP 11 DATA CHECK. 



• Sense Byte 0, Bit 5 - Overrun. 



Action: The 3330 errcr ccrrection 
rcutine will be used with modifications 
to allcw for a 2-byte errcr ccrrection 
code for 3340 and a 3-byte error 
correction code for 3330. The logging 
bit will be turned on. The following 
action is taken depending on the type of 
error detected: 

a. If the error is correctable, OR the 
errcr correction bytes to error 
bytes in the data area, pest channel 
end and device end bits in the CCB 
and take the continue exit. 

b. If the errcr ccrrecticn rcutine 
detects the incorrect length and the 
SII flag bits are off, then post 
incorrect length bit in the CCB 
before taking the continue exit. 

c. If the chaining and end-cf-record 
conditions have been detected by the 
errcr correction rcutine before the 
g^^ ^£ ^j^g ^ggj^sg channel program, 
then build a read count CCW, TIC to 
the user's next CCW, and take the: 
restart exit. 
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If the channel truncation ccnditicn 
exists, turn on the equipirent check 
bit in the sense byte and take the 
retry exit. 



• Sense Byte 1, Bit 2 - End-of -cylinder . 

^ction: Post the end-of-cylinder bit in 
the CCB and continue. The 3330 error 
routine vvill be used. 



• Sense Byte 1, Bit 5 - File protected. 

^ction: The permanent error routine in 
the supervisor will be used. 

Message: 0P17 FILE PROT . 



2321 DASD ERBOR RECOVERY ( $$^.EERR1-R5) 



Control is passed to $$ABERR1 by the ERP 
rronitor $$AEERRA. The follovying list gives 
condition tested for. 



Messages: 0P15 SEEK CEECK (Nc Record 
Found/RC unequal to Seek Address). 
0P23 BIKK STRIP (Step 3, cannot read 
Home Address) . 
0P21 NRF - MADBWK (Step 4, 15 retries) 



• Sense Byte 0, Bit 7 — Seek check 

Action: If Byte 0, Bit (corrrrand 
reject) is present, take program check 
exit. If Byte 1, Bit 6 (missing Address 
Markers) is present, take operator 
intervention exit. Cther\%ise, issue a 
Seek to EBllll, a Seek to BB2222, and 
take retry exit. After ten retries, 
take equipm.ent error exit (cancel, 
retry) . 

Messages: 0P26 INVAL SEEK (Seek 

Check/Command Reject) . 

0P22 EALST CELL (Seek Check/Missing 

Address Markers) . 

0P15 SEEK CHECK (Seek Check alone). 



• CSW Bit U4 — Channel Data Check 
Action : One retry; then take equipment 
error exit (cancel, retry). 

Message: 0P28 CHAN DTCHK. 

• Sense Byte 0, Bit 3 — Equipment Check 

Action : Take equipment error exit 
(cancel , retry) . 

Message: OPlO EQUIP CHK. 

• Sense Byte 1, Bit ^ — No Reccrd Found 



Ac ti on : 

1. If Byte 1, Bit 6 (missi 
Markers) is present, go 
Otherwise, go to step 6 

2. If retry count is less 
a Restore command and g 

3. If retry count is equal 
a Read Home Address to 
last tracks of the cyli 
neither is successful ( 
take equipment error ex 
retry). Otherwise, go 

^. If retry count is equal 
equipment error exit (c 
retry). Otherwise, go 

5. Increment retry count a 
exit. 

6. Issue a Read RO and com 
user's Seek Address. I 
No Record Found to the 
continue exit. Otherwi 
routine for Seek Check 



ng Address 


to step 2. 


than 3, issue 


c to step 5. 


tc 3, issue 


the first and 


nder. If 


unit checks) , 


it (cancel. 


tc step 4. 


tc 15, take 


ancel. 


tc step 5. 


nd take retry 



pare CCH to 
f equal, pest 
CCB and take 
se, go tc 
(alone) . 



• Serse Byte 0, Bit 1--Irterventicn 

Required 

Action: Take operator intervention 
exit. 

Message: 0P0 8 INTERV REQ . 

• Sense Byte 0, Bit 2 — Bus Cut Check 

Acticn: Take retry exit. After 15 
retries, take equipment error exit 
(cancel, retry) . 

Message: 0P0 9 EUSCUT CHK. 

• Sense Byte 0, Bit ^--Cata Check 

Action : 

1. If retry count is less than eight, 
go to step 5. 

2. If retry count is equal tc 226, take 
equipment error exit (cancel, 
retry) . 

3. If retry count is an even number, 
issue a Seek to X-X-X-4-19 (last 
track of strip) and a Seek to 
X-X-X-0-0 (first track of strip), 
perform this operation eight times. 
Then proceed to step 4. 

4. If retry count is any multiple of 32 
(32, 64, 96, ...), issue a Seek tc 

next lower strip. (If this is the 
lowest strip - COCCO - seek the next 
higher strip.) Proceed tc step 5. 
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b. Increirent retry count and take retry 
exit. 



Messages; OPll DATi^ CHECK (Data 

Check/not Data Check on Ccunt cr 

Verify) . 

CP12 VERIFY CHK (Data Check en Verify 

Ccroirand) . 

0P16 DTA CHK CT (Data Check en Ccunt). 

Note: Hcire Address is read, and the 
track address is provided fcr the error 
iressage. For other conditions, the 
track address is obtained frcrr the 
user's initial Seek Address if the error 
occurs during channel prcgrarr execution. 



Set up the channel prcgrair: Seek, 
Read Hcrre Address (with skip tit 
on) , TIC tc CSW ccirirar.d address 
irinus eight (last CCW executed) . 
Execute this channel prcgrair in 
error recovery. At channel end, 
exit to channel scheduler CSW 
processing routine. If DASD file 
protection is present, set file mask 
(inhibit Icng Seeks) fcllcwing the 
seek. 



• Sense Eyte 1, Eit 1 — Track Overrun 

A cti on ; Pcst track overrun tc the CCB 
and take continue exit. 



• Sense Byte 0, Bit 5 — Overrun 

Action: Take retry exit. After 15 
retries, take equipirent errcr exit 
(cancel, retry). 

Message: OFia OVERRUN. 



• Sense Eyte 1, Eit 2 — End of Cylinder 

Action: Post End of Cylinder to the CCB 
and take continue exit. 



• Sense Eyte 1, Eit 5 — File Protect 



• Sense Eyte 1, Eit 6 — Missing Address 
Markers 

Action: Perform action indicated under 
Data Check just described. 

Message: OP 13 ADDR MRKER. 

Note; Hcrre Address is read, and the 
track address is provided fcr the errcr 
iressage. For other conditions, the 
track address is obtained frcrr the 
user's initial Seek Address if the error 
occurs during channel prcgrair execution. 



• Sense Byte 0, Bit — Coirirand Reject 

Action: Check for byte 1, bit 5 (file 
protect) ; in either case, take program 
check exit. 

Messages: 0P17 FILE PRCT (Ccirirand 

Reject/File Protect). 

Opis COMM REJCT (Command Reject alone). 



Action: Take program check exit. 
Message; 0P17 FILE PRCT. 

• CSVi Eit 47 — Chaining Check 

Action: Take retry exit. After 15 
retries, take equipment errcr exit 
(cancel, retry) . 

Message: 0P14 OVERRUN. 

Kcte: If the 2321 Error Routine gets an 
error while trying to execute a Restore 
ccmmand, a Seek command (data-check 
procedure) , or a Read Home Address or a 
Read RO, equipment error exit is taken with 
retry and cancel options with the 
message; CP20 ERR ON REC (Errcr During 
Recovery) . 



3540 DISKETTE INPUT/OUTPUT UNIT ERROR 
RECOVERY ( $$ABERR7 ) 



Sense Byte 0, Bit 6 — Track Condition 
Check 

Action; 

1. Read Home Address and RO and miove 
CCHH from RO to Seek command 
executed below. 

2. If alternate track: Update Seek 
Address to the next track address. 
If track address equals 20, treat it 
as End of Cylinder; otherwise, 
proceed to step 3. 



Control is passed to this transient by the 
ERP Monitor $$ABERRA. This phase performs 
three functions: 

1) Determines the proper ERP acticn tc be 
taken; 

2) Determines proper message code for the 
message writer; 

3) Updates the Statistical Data Records 
(SDR) counters in the PUB2 Table entry 
fcr the device. 
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The following list gives the ccrditicns 
tested for. 



• CSW Bits 45 and 46 - Channel cr 
Interface Control Check, 

gction; Exit to ERF message writer via 
EMSR recording phase, to issue rressage; 
then the task is canceled. 

^^essage: 0P19 UNDEIR ERR. 

• CSW Bit 44 - Channel Data Check. 

j^ctipn: Exit to ERF message writer to 
issue message, then the task is 



canceled. 
Mess age : 



0P28 CHAN DTCHK. 



checking the hits in Sense Byte 1 (see 
S;ysteir Action) . 

Message: 0P0 9 EUSCUT CHK 



• Sense E:^te 0, Bit 4 - Cata Check. 

Action: Deteririne further action fcy 
checking the bits in Sense Byte 1 (see 
Systeir Action) . 

Message: OPll DATA CHECK. 



• Sense Eyte 0, Bit - Ccirnand Reject. 

A c t ic n : Set on the allow ignore flag 

and exit tc message writer. 

Message; 0P18 CQKM REJCT. 



CSW Bit 38 - Unit Check 

Action; If this bit is 0, exits to ERF 
message writer to issue message, then 
the task is canceled. 

Message: 0F19 UNDETR ERR. 



• Sense Byte 0, Bits b, 6 and 7 ~ unused 
bits. 

Action; Exits to ERP message writer 
with retry and allow ignore flags off. 
Exit to message writer is via RMSR phase 
for recording of an GBR record. 

Message; 0P19 DNDETR ERR. 



• Sense Byte 0, Bit 3 - Equipment Check. 

Action; Determine further acticn by 
checking the bits in Sense Eyte 1 (see 
System Action) . 

Message; OPIO EQUIP CHK. 



• Sense Byte 0, Bit 1 - Intervention 
Required. 

Action: If motion malfunction, then set 
the flag to write an OBR record. 
Determine further action by checking the 
bits in Sense Byte 1 (see System 
Action) . 

Message; 0P08 INTERV REQ 



• Sense Byte 0, Bit 2 - Bus Out Check. 

Action; Set flag to write an CER record 
then determine further acticn by 



System Acticn - Check bits in Sense Eyte 1. 



Sense Byte 1, Bits b, 6 and 7 - unused 
bits. 



Acticn: Set off retry and ignore flags, 
and exit tc ERP message writer via RMSR 
phase for CER recording. 



Message: 0P19 UNDETR ERR. 



Sense Eyte 1, Bit - Permanent Error. 

Action: Post unrecoverable I/O Bit in 
CCB. If a Data Check, post Data Check 
bit in CCB. If return to user is 
requested, exit to message writer with 
allcw ignore flag en, via RMSR phase cr 
OBR recording. If return is not 
requested, exit to message writer with 
allcw ignore flag and retry flag cff, 
via RMSR phase for GBR recording. 



Sense Eyte 1, Bit 3 
Intervention. 



Retry After 



Action; If OBR recording is wanted, 
exit tc message writer with action ad 
action and retry flags on, via RMSR 
reccrdirg phase. If CER recording is 
not wanted, exit to message writer with 
acticn and retry flags on. 



• Sense Eyte 1, bit 1 - Automatic Retry. 

Action; Retry the error 10 times, 
updating the appropriate SDR counter 
each time. If no recovery, then 
indicate Permanent Error (see Permanent 
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Error Action) . If SDR counter 
cverflo\«?s, retry after BNSR phase for 
CER recording. 



• Sense Eyte 0, Eit 6--Ncnreccvery 

Action: Post byte 3, bit 4, of CCB and 
take continue exit. 



Sense Byte 1, Bit 4 
Transferred. 



Special Record 



Action: Set on special record 
transferred bit in CCB. Exit to message 
vjriter vvith ignore flag on. 

I^essaqe; 0P55 SPEC REC. 



• Sense Eyte 0, Eit 2 — Euscut Check 

Action; Cne retry; then take equipment 
error exit (manual retry, cancel 
through ATTN routine). 

jyjessage; OP 9 EUSCUT CHK . 



If none of the above, exit to message 
vvriter vvith retry and ignore flags off, 
via RMSR recording phase. 



Mes s a^e : 



0P19 UNDETR ERR. 



1287-1288 CCR ERROR RECOVERY ($$AEERRT) 



• Sense Eyte 0, Eit 4--Eata Check 

Action: Post byte 3, bit 0, of CCB and 
take continue exit. 



jNcte ; Data Check and Equipment Check, 
vvhich indicate unreadable character and 
tinreadable line, respectively, are 
retried by Logical ICCS in an attempt 
to correct the error. 



Control is passed to this transient by the 
ERF monitor $$AEERRA. The following list 
gives conditions tested for. 



• CSW Bit ^^ — channel Data Check 

Action; One retry; then take equipment 
error exit (retry, cancel) . 



Message: OP 2 8 CHAN DTCHK. 



• Sense Eyte 0, Bit 3 — Equipment Check 

Action: Post byte 3 of CCE and then 
take continue exit. 

Note: Data Check and Equipment Check, 
which indicate unreadable character and 
unreadable line, respectively, are 
retried by Logical IOCS in an attempt 
to correct the error. 



• Sense Byte 0, Bit 1 — Intervention 
Required 

Action: Test for byte 0, bit 6 
(Nonrecovery) — if present, post byte 3, 
bit 4 of the CCB. This indicates that 
the error is passed back to the problem 
program. Exit via equipment error. 

Message: OP 3 5 NCN RECCV. If byte 0, 
bit 6 is not present, take operator 
intervention exit. 
0P08 INTERV REQ. 



• Sense Eyte 0, Eit 5--Cverrur 

Action: Four retries; then take 
equipment error exit (retry, cancel). 

r^essa^e: 0P14 OVERRUN. 

• Sense Eyte 0, Eit 0--Command Reject 
Action : Take program check exit. 
Message: 0P18 CCMM REJCT . 

• CSVv Eit 47 — Chaining Check 

Action; Four retries; then take 
equipment error exit (retry, cancel) . 

Message; 0P14 OVERRUN. 

• Sense Eyte 0, Eit 7--Keybcard 
Correction 

Action: Post byte 3, bit 1, of CCE and 
take continue exit. 

• Sense Eyte 1, Eit 4--Invalid Font 

Action: Take program check exit. 

I^essage: 0P37 INVLD FONT. 

Note: Eyte 1, bit 4 applies only to 
the 1287 in document mcde. 
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3886 OCR ERROR RECOVERY ($$AEER;^N) 



Message: 0P19 UNDETR ERR, 



Control is passed to this transient by the 
ERP monitor $$AEERRA. This phase not only 
determines the proper ERP action tc be 
taken, but also performs the RMSR function 
of updating the Statistical Data Counters 
in the PUB2 Table entry for the device. If 
recording on the record file is required 
(OER sense bit on, or counter overflow 
occurred) , this phase passes control to 
RMSR transients. The first RMSR phase 
fetched is $$ABERA4. If no reccrding is 
necessary, exit is taken directly to the 
supervisor or the ERP message vvriter, 
depending on the error condition. The 
following list gives the ccnditicns tested 
for. 



Sense Eyte 0, Bit 7 - Reccgniticn 
Ccntrcl Prcgram Errcr. 



Actions Posts permanent error in the 
CCE. Exits to ERP message writer with 
the allow ignore switch en. Exit is 
taken to the ERP message writer via RMSR 
phases for recording cf a Unit Check 
Ccnditicn record. 

Message: 0P53 RCP ERROR. 



• Sense Eyte 0, Eit 6 - Non Initialized. 



CSW Eits 45 and 46 - Channel cr 
Interface Control Check. 



Action; Posts permanent error in the 
CCE. Exits to ERP message writer with 
the allcw ignore switch on. 



Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message: 0P19 UNDETR ERR. 



• CSW Eit 44 - Channel Data Check. 

Action: One retry. If error persists, 
exits to ERF message writer tc issue 
message, after which the task is 
canceled. 



Message; 0P28 CHAN DTCHK. 



Message; 0P54 NON-INIT. 



• Sense Eyte 0, Eit 3 - Equipment Check. 

Action; If Mark Check is not on, and 
the errcr occurred en a lead format or 
scan command, one retry. Before 
returning tc the supervisor fcr the 
retry, checks whether reccrding is 
required COBR sense bit, byte 1, bit 7 
en). If it is, exits via RMSR phases. 
Otherwise, updates appropriate 
statistical data counter before return 
to the supervisor (via RMSR phases for 
reccrding if counter overflew occurred) , 



• CSW Bits 32, 33, 34 - unused bits. 

Action; Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message; 0P19 UNDETR ERR. 



• CSW Bit 38 - Unit Check, 



Action; If this bit is 0, exits to ERP 
message writer to issue message, after 
which the task is canceled. 

Message; 0P19 UNDETR ERR. 
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Message; OPIO EQUIP CHK. 



Sense Byte 0, Bits 4 and 5 - or Eyte 1, 
Eits 0, 3, and 5 (unused bits) . 

Action; Posts permanent errcr in the 
CCB. Exits to ERP message writer with 
the allow ignore switch on. Exits to 
ERP message writer is taken via RMSR 
phases for recording of a Unit Check 
Condition record. 



Sense Eyte 1, Eit 6 - Ncn Recovery 
Error. 

Action; Posts Non Recovery error in the 
CCB, updates the appropriate statistical 
data counter, and exits tc the ERP 
message writer with operator 
intervention and PASSEK flags on. If 
recording is required because cf counter 
overflow, exit is taken via RMSR phases. 
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Message % 



0P35 NON RECOV. 



• Sense E^te 0, Bit - Coirirand Reject. 



e Sense Byte 1, Bit 4 - Inccmplete Scan. 

gction: Cne retry. Befcre returning to 
the supervisor for the retry, updates 
the appropriate statistical data 
counter. If recording is required 
because of counter overflow, exit is 
taken via RMSR phases. If the error 
persists, post incoirplete scan in the 
CCB and takes supervisor ignore exit. 
Ihe appropriate statistical data counter 
is updated before exit is taken. If 
recording is required because of counter 
cverflow, exit is taken via RMSR phases. 

Kessaqe; none. 



• Sense Byte 1, Bit 1 - Mark Check Error. 

get ion: Posts Mark Check Error errcr in 
the CCB, updates the appropriate 
statistical data counter, and exits (via 
RMSR phases if counter overflow 
occurred) to the ERP message writer with 
CPINT and PASSBK flags on. 

Message; 0P51 MARK CHECK. 



Sense Byte 0, Bit 1 - Intervention 
Required. 

Action: Updates appropriate statistical 
data counter. Exits to ERP iressage 
writer with operator action required and 
allow retry (if not ending status, or 
Load Forrrat command) or PASSEK 
(otherwise) switch on. If counter 
overflow occurred, exit is taken via 
RMSR phases for recording. 

Message: OP 08 INTERV REQ. 

Note: This condition can occur as 
ending status only when an eject coiinand 
has been issued. In this case, the 
command is not to be reissued. 



• Sense Byte 0, Bit 2 - Bus-Out Check. 

Action: Cne retry. Exits to supervisor 
for retry via RMSR phases to have the 
error recorded. If error persists, 
posts a permanent error in the CCB and 
exits to ERP message writer with the 
allow ignore switch on. Exits to ERP 
message writer via RMSR phases to have 
the error recorded. 

Message: OP 09 BUSOUT CHK. 



Action: Posts permanent errcr in the 
CCB. Exits to ERP message writer with 
the allow ignore switch cr . 



Message: 0P18 COMM RE JCT . 






Sense E;yte 1, Bit 2 



Invalid Format. 



A c t ic n : Posts permanent errcr in the 
CCB. Exits to ERP message writer with 
the allow ignore switch on. 

Message: OPS 2 INV FORMAT. 



Ncne cf the above. 

A c t ic n : Exits to ERP message writer to 
issue message, after which the task is 
canceled. 

Message: 0P19 UNCETR ERR. 



1U19 ERRCR RECCVERY ($$AEERRS) 



Control is passed to this transient by the 
ERP monitor $$ABERRA. The following list 
gives conditions tested for. 

• CSW Bit ^^ — channel Lata Check 

Action: Post unrecoverable I/O error 
to CCE byte 2, bit 2. Turn on passback 
bit in errcr queue entry byte 10, bit 2 
for return to user fcr errcr recover^^. 
Exit to ERP message writer. 

Message: OP 2 8 CHAN ETCHK. 



• Sense Eyte 0, Bit C--Command Reject 

Acticn : Check ccmmard cede cf CCW 
causing interrupt with X'El' fcr 
'Disengage Failed*. If 'Disengage 
Failed', post intervention required to 
CCB byte 3^ bit 1; if not, pest 
unrecoverable I/C error to CCB byte 2, 
bit 2. In either case, turn on 
passback in error queue entry of ERBICC 
byte IC, bit 2, fcr return to user fcr 
error recovery. Exit to ERP message 
writer . 



Message t 
FAIL. 



0P18 CCMM REJCT or 0P37 DISEN 
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• Sense Byte 0, Bit 1 — iDterventicn 
Required 

Action; Post "Intervention Required" 
to the CCB (byte 3, bit 1), and exit to 
supervisor. The error is ignored. No 
iressage is printed. 



Message: 0P08 INTERV REQ. 



Note: The probleir prograir s 
process all documents in the 
buffer, note the Interventic 
and perforir any print cut ne 
operator recovery, and issue 
Engage-Read to the device to 
processing documents. If th 
Intervention Required is due 
numbering update failure, th 
must update the batch number 
manual recovery. 
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• Sense Byte 0, Bit 2 — Bus Out Check 



Action: 



Post unrecoverable I/C error 



to CCB byte 2, bit 2, and turn on 
passback bit in error queue entry of 
ERELOC Byte 10, bit 2, fcr return tc 
user for error recovery. Exit to ERP 
message viriter. 

Message: OF 09 BUSCUT CHK. 



• Sense Byte 0, Bit 3 — Shculd net occur 

Action: Post Unrecoverable I/C error 
to the CCB and provide informational 
message to the operator. Exit to ERF 
message writer. 

Message; 0P19 UNDETR ERR 

Note; CSW Bit 47 and Sense bits 4, 5, 6, 
and 7 will not cause an I/C Interrupt. If 
CSW bit 44 or sense bit 1, 2, or 3 is not 
present for an I/O interrupt, the action 
and miessage for sense bit 3 will be 
generated. LICCS issues two informational 
messages through the MICR Message V«iriter; 

1. 4MR1I - EXTERNAL INTERRUPT I/C ERROR 

2. 4MR2I - SCU NOT OFERATICNAL 



2495 ERRCR RECOVERY ($$AEERRI) 



Control is passed to this transient by the 
ERF monircr $$ABERRA. The fcllcwing list 
gives conditions tested fcr. 



• CSW Bit 42 — Program Check 

Action ; Exit to ERP message writer to 
issue message after which the task is 
canceled. 

Message; OP 2 4 PROG CHECK 



• CSW Bit 43 — ^Prctecticn Check 

Acticn: Exit tc ERP message writer tc 
issue message after which the task is 
canceled. 

Messa9e; OP 2 5 PRCT CHECK 



• CSW Bit 44 — Channel Data Check 

Acticn ; 

1. Read Commands — backspace record, 
cne retry. If error persists exit 
tc ERP message writer tc issue 
message after which the task is 
canceled . 

2. All other commands — Exit to ERP 
message writer to issue message 
after which the task is canceled. 

Message: OP 2 8 CHAN ETCHK 



• Sense Byte 0, Bit 5--Shculd net occur 
cr 

• Sense Byte 0, Bit 7--Should net occur 

Action; Exit to ERP message writer to 
issue message after which the task is 
canceled. 

Message; 0P19 UNDETR ERR 



Sense Byte 0, Bit 7 — Batch Numbering 
Switch Off 

Action; Post document buffer byte 0, 
bits and 1 and insert reject code 
X'CF' in byte 5. Turn off retry and 
turn on ignore bits in ERQFIG cf error 
queue entry of ERBIOC. Exit to ERP 
message writer. 

Message; OP34 BCH NM CFF. 



• Sense Byte 0, Bit 3--Equipment Check 

Acticn; Exit tc ERP message writer tc 
issue message after which the task is 
canceled. 

Message; OPIO EQUIP CHK 
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® Sense Eyte 0, Bit 2---'Bus Out Check 



e Sense Eyte 0^ Bit O-^Coirirand Reject 



Action: One retry. If errcr persists 

exit to ERP message writer tc issue 

message after which the task is 
canceled. 

Message; 0P09 BUSCUT CHECK 



Acticr. ; Exit tc ERP message writer tc 
issue message after which the task is 
canceled. 

Kessa^e: 0P18 CCMM REJCI 



Sense Eyte 0, Bit 1 — Interventicn 
Reguired 

Action: Exit to ERP message writer for 
operator intervention. 

Message: 0PC8 INTERV REg. 



1017/1C18 ERRCR RECOVERY ($$ABERRU) 



Ccntrcl is passed tc this transient by the 
ERP monitor $$ABERRA. The fcllcwing list 
gives conditions tested fcr. 

• CSW Bit au— Channel Eata Check 



• Sense Byte 0, Bit 6 — Position Check 

Action : 
le Read Comimands — backspace cne byte. 
Reread the remaining portion cf 
the record. Repeat this sequence 
nine times for a tctal cf ten 
rereads. On the eleventh try, 
exit to ERP message writer to 
issue message after which the task 
is canceled. 

2. All other commands — Exit to ERP 
message writer to issue message 
after which the task is canceled. 

Message: 0P39 POSN CHECK 



Action: For Read/P«irite Commands: If 
data transfer, nc retry is performed. 
If initial selection, retry twice 
without repositioning. After specified 
number cf retries has been reached, 
exit tc ERP message writer tc issue 
message after which the task is 
canceled. 

Message: OP28 CHAN CTCHK 



• CSW Bit 47— Chaining Check (Read/Write 
commands) . 

• Sense Eyte 0, Bit 2--Eus-0ut Check 
(Read Command during data transfer) . 

• Sense Eyte 0, Bit 3--Equipmert Check 
(Read Command) 



• sense Byte 0, Bit ^ — Data Check 



Action: 
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Message 
2 



OPll DATA CHECK 



All Other commands-- Exit to ERP 
message writer to issue message 
after which the task is canceled. 



• Sense Byte 0, Bit a'--Eata-Check (Write 
Command if Error Correction feature not 
present) 

• Sense Byte 0, Bit 5--Cverrun 
(Read/Write Commands) 

• Sense Eyte 0, Bit 6--Icst Data 
(Read/Write Commands) 

• Sense Eyte 0, Bit 7--Eroken Tape (Write 
Ccmmard) This sense and status 
information is not used or may not 
cccur fcr the indicated condition. 

Action; Exit tc ERP message writer tc 
issue message after which the task will 
be canceled. 

Message; 0P19 UKDETR ERR 



Message; 0P18 UNDETR ERR 



• Sense Eyte 0, Bit 0--Command Reject 

Ac tier; Exit to ERP message writer tc 
issue message after which the task will 
be canceled. 
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Message: OP 18 COEK REJCT 



• Sense Eyte 0, Bit 1 — Intervention 
Required 

Action: If initial selection 
(Read/Virite Commands) , exit to ERP 
message vfriter for operator 
intervention. If data transfer (Write 
Conmand)^ update interrupted CCW and 
exit to supervisor for retry. 

Message: OF 08 INTERV REQ 



• Sense Eyte 0, Bit 2 — Bus-Out Check 



Action: 



If initial selection 



(Read/Write Commands) , retry the 
operation tv/ice. If data transfer 
(Write Command) , update interrupted CCW 
and retry twice. If error persists, or 
if data transfer (Read Command), exit 
to ERP message writer to issue message 
after vvhich the task will he canceled. 

Message: OP 09 BUSCUT CHK 



• Sense Byte 0, Bit 3 — Equipment Check 
(Write Command) 

Action: Exit to ERP message writer to 
issue message after which the task will 
be canceled. 



Message: OPIO EQUIP CHK 



• Sense Eyte 0, Bit ^ — Data Check 

Action: If Read Command, update 
interrupted CCW, backspace one 
character and retry. If the error 
persists after four retries, test the 
CCE for the ignore option (byte 2, bit 
4); if the bit is on, turn on byte 3, 
bit 3 of the CCB (1017/1018 data check) 
and exeit to ERP message writer. Allow 
ignore. If the bit is not on, exit to 
ERP message writer to issue message 
after which the task will be canceled. 
If Write Command, (Error Correction 
Feature Not Supported) byte 3, bit 3 in 
the CCE is set on, then if the user 
wants to process the data check himself 
(byte 2, bit 6 on in the CCE), control 
is returned to the user program. If 
the user does not want to process the 
data check, exit to ERP message writer. 
Allow ignore if bit 4 of byte 2 in CCB 
is on. Task will be canceled if byte 
2, bit 4 in CCB is off. 

Message: OPll DATA CHECK 



Note: When a data check occurs, the 
user's CCW is modified by the error 
routine to allow rereading or rewriting 
cf the last character. The data 
address is the last character read or 
written (i.e., the character in error), 
and the byte count is decreased by the 
number cf valid characters read or 
written. If the CCB ignore option is 
chosen and the operator responds 
ignore, the I/O cperaticr is dequeued 
and posted with the unrecoverable error 
bit or. (CCB byte 2, bit 2) and 
1017/1018 data check bit on (CCB byte 
3, bit 3). To read or write the rest 
of the record, the problem program 
(logical ICCS) adds 1 to the CCW data 
address and subtracts 1 from the byte 
count to adjust for not rereading or 
rewriting the had character, and then 
reissues the EXCP. The ignore option 
is available to the operator whenever 
the user specifies ary of the BTFPT 
ERROPT entry options. 



• Sense byte 0, Bit 7--Eroker Tape (Kead 
Command) 

Action: When this ccnditicn occurs, 
the last record has not been completely 
read. Turn on byte 3, bit 1 of the CCB 
(1017 broken tape) and exit to ERP 
message writer. Allow retry, ignore. 

Message; 0P4 BRCKEK TAPE 

Note 1: When broken tape condition 
cccurs, the operator must reposition 
the paper tape at the beginning of the 
record before responding. The 1017 
must ret be readied until this 
repositioning has been performed. If 
the ignore option is chosen, the I/O 
operation is dequeued and posted with 
the unrecoverable error bit on (CCB 
byte 2, bit 2) and the 1C17 brcken tape 
bit on (CCB byte 3, bit 1). 

tjote_2; A record may not be partly on 
one tape and partly on another. 



ERP MESSAGE WRITER 



The ERP message writer is a group of 
A-transientS ($$ABERRL, $$ABERRM, $$ABERRC, 
$$ABERRN, $$AEERRC) that build error 
messages, issue the messages, analyze 
operator responses, and select the proper 
exit. See Figure 6 for a listing of the 
error messages. The numbers of the 
following sections refer to Chart 03. 
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Chart 03. ERP Message Writer Functional Flew 



$$ABERRE 



QW 



Return to user if 

device not ready and CCB 
byte 2 bit 4 on, or 

intervention required at 
device end and no feed check 
or hopper check 



Put restart message in second 
output line 

• Feed check 

Put CCW op codes for restart in 
IJBMFCER area of ERP SYSCOM 



$$ABEREE 



QU 



Complete error message 

Put CCW op codes for feed 
check restart in IJBMFCER 
area of ERP SYSCOM 



f ERP Message 
V Writer f 


^ 


i 


$$ABERRL QA 


Move message text 




to first output line 




2 



$$ABERRM 



QB 



Complete the first two output 
lines of the message 

Device 5425, with action required 
(OPINT in ERQFLG on) 

Device 2560, with Action required 



(OPINT in ERQFLG on) 
Otherwise 



U 



$$ABERRC 



QM 



If 1 : Data Check on a command 
other than read 
2: Intervention Required (not 
at initial selection and not 
Cover Check or Feed Machine 
Check) 



Determine and place m 
second output line the 
appropriate restart information 4 



$$ABERRN 



QD 



Translate sense information for 
third and possibly following 
output lines 



Write message on 
SYSLOG or SYSLST 



Decision type message issued 
or error condition while issuing 
non-information type message 



Information type or Action type 
message issued 



Persistent operator 
intervention required 
condition 



r $$ABERRW. j 



£»■ 



$$ABERRO 



QH 



Analyze operator 
reply on SYSLOG 

and/or 
Display msg in low real 
storage and in case 
of Decision type 
msg, analyze reply 
in low real storage 



Operator interven- 
tion required on 



Console printer- 
keyboard 

Otherwise - 



-mf $$ABERRA j 



ERPEXIT RTN 



Dequeue Error Queue 
Entry and take 
appropriate branches 
for ignore, retry or 
cancel 
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1. Usually, the ERP phases exit tc the ERF 
uessage writer via RMSR phases. The 
following RWSR transients nay pass 
control to the ERP message writer: 
$$ABERA1, $$ABERA2, $$i^EERA4, $$ABERA5, 
$$ABERRK, $$ABERRP. 

The 388 6 CCR ERP transient $$AEERAN and 
3540 Diskette I/C Unit ERP transient 
$$AEERR7 exit directly to the ERF rressage 
writer when recording en the recorder file 
is not required, 

2. $$ABERRL picks up the message nurrber 
(stored by ERP phases) froir the Error 
Queue Entry and uses it to ircve the 
applicable iressage text to the first 
output line. It then passes ccntrcl tc 
$$AEERRiy!. 

3. $$AEERRK coirpletes the first two lines 
of the message. It will be printed (by 
$$AEERRN) in 3 or more lines. The 
third and following lines are filled 
with sense information by $$AEERRN. 
The first line is filled with the 
message number, the Action and Target 
Codes (see below), the message text 
(done by $$AEERRL) , the logical unit 
name, and the physical channel and unit 
number of the device on which the error 
occurred. The second line is filled 
with the command code cf the last CCW 
executed, the contents cf the CSW, and 
the seek address of the track en which 
the error occurred if the device is 
DASD. If the device is a 256C or 5425, 
the second line may contain a restart 
number. For a 256C, the restart number 
is inserted by $$AEERRC and for a 5425 
by $$AEERRE or $$AEEREE. Fcr mere 
information, see DCS/VS Dressages. 

Depending on the availability cf the CCE 
and the applicable flags (Intervention 
Required, Passback, Allow Ignore, and Allow 
Retry) cf the ERQFLG flag byte in the Error 
Queue Entry, the Action and Target 
(operator reply) codes are determined. 
These flags are set by ERP. The action 
code may be A (action-type message, 
operator intervention required) , D 
(decision-type message, operator decision 
required), or I (informaticn-type message, 
no operator action or decision required) . 
For decision-type messages, the target cede 
may be I (decide between canceling the task 
or ignoring the error) , IR (cancel, ignore 
or retry), or R (cancel or retry). For 
information type messages the Target cede 
may be C (task will be canceled) cr I (task 
to be continued, error ignored). 

When the CCE is not available the action 
code is set to I and the target cede is 
left blank, which will result in 
continuation of the task, with the error 
ignored. 



When eperater interverticr is required, 
the action code is set tc A and the target 
cede is left blank. In the PUECSFLG flag 
byte of the PUB, the INTREQ flag is posted. 

When the PASSBK switch is on (indicating 
that the user wants return) , both codes are 
set to I (tc continue and ignore error) and 
the irrecoverable I/C error bit is posted 
in the CCE. 

When cancel is specified fcr tape 
devices (heth flags allow ignore and allow 
retry off) , but the accept I/O error bit in 
the CCE is on, the error is posted in the 
CCE and the cedes are both set tc I, 
indicating that the task is not to be 
canceled and the error is tc be ignored. 
This does not apply to program, protection, 
cr equipment check and cemmand reject 
conditions. 

When retry and/or ignore are allowed but 
the accept I/O error bit in the CCE is on, 
the error is posted in the CCE, and the 
cedes are set to I, indicating that the 
error is to be ignored. 

When operator intervention is required 
(CFINT in ERQFLG cn) and the device is a 
2560 or 5425, $$AEERRM gives ccntrcl tc 
$$AEERRC (2560) or $$AEERRE (5425) . 
Otherwise, $$AEERRN is called. 

4. When $$AEEFRC receives ccntrcl the 
device is a 2560 with cne of the 
following error ccnditicrs: 
intervention required, data check, or 
equipment check. 

If the errer is a data check cn a 
ccmm.and other than read, exit is taken to 
the supervisor fcr cne retry. If the error 
persists, the supervisor receives control 
tc cancel the task. 

An intervention required condition, not 
at initial selection and net cf the 
cever-check or Feed/Machine-check type is 
igncred and ccntrcl is given tc the 
supervisor. 

In all other cases $$AEERRC sets up the 
cerrect restart information, which is 
printed as part of the action type message 
by $$AEERRK. The allcw retry flag in 
ERQFLG is turned on, and repcsitiening 
required is indicated in the PUE (byte 5, 
bit 0). In addition, $$AEERRC stores 
repositioning infermatien (sense 
information, command code, and restart 
number) in the System Communications Region 
(SYSCCW) . This repcsitiening infermatien 
is used later on by $$ABERRD when a restart 
is attempted. 

5. $$AEERRN does a right to left scan fcr 
zeros in the ERQSNS field of the Error 
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Queue Entry. The rressage will include 
up to the last non/zerc byte cf the 
ERQSNS field in the third and, if 



•mQ/^Q 



OO 3 VT 



follovjincT lines 



Then t^'^ 



rressage is written on SYSLCG. 

i^.fter writing an A-type rressage, control 
is returned to the supervisor for ignore 
(if PASSEK switch is on) or retry. The 
message 0P08 INTERV REQ is issued only when 
the device has not yet been readied. Cnly 
the first line of this message is printed. 

After issuing an I~type message, control 
is returned to the supervisor to cancel or 
ignore (depending on operator code). 

In the case of D-type messages, the 
operator reply is to be analyzed. For this 
function $$AEERRN passes control to 
$$AEERRO. 

Vihen SYSLCG is not assigned cr is in 
error, the message is issued on SYSLST. 
When SYSLST is not assigned cr is in error 
control is passed back to the supervisor to 
cancel or ignore (depending en target code) 
in the case cf I-type messages. For the 
other messages control is given tc 
$$AEERRO. 

When an I/O error occurs while 
attem.pting to write the message on SYSLCG 
or SYSLST, $$AEERR0 gets control for A-type 
and D-type messages. 

When the message is issued en a printer 
(because SYSLCG is not assigned, or is 
assigned to a printer, or because the 
console printer-keyboard is in error) the 
operator cannot reply. $$AEERRC gets 
control, except for I-type messages. 

6. $$ABERRC receives control when one of 
the following functions are to be 
performed: 

• An operator reply on SYSLCG is to be 
read and analyzed. 



A-type or C-type messages the 
message and their replies are to be 
displayed and entered in lew real 
storage, because SYSLCG is in error 
or rot assigned tc a console 
printer-keyboard or display operator 
console . 



After performing the first function, 
control is returned tc the supervisor for 
cancel, retry, or ignore, depending on the 
reply. When an I/C error occurs while 
attempting to read the reply, the second 
functicn is performed. When the reply is 
invalid, another reply is solicited. 

The seccnd function is to be performed 
as fellows: The message number is inserted 
in byte 0, X'Cl' or X*C4' in byte 1 and the 
channel and unit number cf the device in 
error in bytes 2 and 3. The contents cf 
byte U are analyzed in the case cf D-type 
messages . 

When operator intervention is required, 
a check is made whether the device has been 
readied in the meantime. If so, control is 
returned tc the supervisor fcr igncre (if 
FASSEK bit on) or retry. If not, and the 
device is the console printer-keyboard or 
display operator console, $$AEERRA is 
called, which will pass centrel te $$AEERRW 
to execute the alarm command again. If it 
is net the console device, the system is 
set in an enabled wait state. 

For D-type messages, the external new 
FSW in low real storage is saved and 
replaced. The system is set in an enabled 
wait state. When the operator presses the 
interrupt key, a routine within this 
transient will be entered. The saved 
external new PSW is restored and an exit 
taken te the supervisor fcr cancel, retry 
or ignore, depending on the contents of 
byte U. If the contents cf byte ^ are 
invalid, a new operator response is 
solicited . 



'"V 
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lyiESSAGE CCEE 
(IN HEX) 



10-CHi\RACTEP 

MESSAGE 



ERFCP 



08 
09 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 

46 

47 
48 
49 
51 
52 

53 

54 
55 



C'INTERV REC* 
C'EUSCUT CHK' 
C'ECUIF CHK • 
C'DATA CHECK* 
C'VERIFY CHK' 
C'ACDR MRKER' 
C'OVERRUN ' 
C'SEEK CHECK' 
C'DTA CHK CT' 
C'FILE PRCT ' 
C'CCMK REJCT* 
C'UNDETR ERR' 
C'ERR ON REC 
C'NRF-MADEiyK' 
C'EALST CELL' 
C'BLNK STRIE* 
C'PROG CHECK' 
C'PROT CHECK' 
C'INVAL SEEK' 
C'UNKIvWN EEV 
C'CHAN DTCHK' 
C'BK INTO LF' 
C'CONVRT CHK' 
C'DVC NOT CF' 
C'NCN COMFAI' 
C'EUF PARITY' 
C'BCH NM CFF' 
C'NCN RECCV • 
C'NC REC ENE' 
C'DISEN FAIL' 
C'INVAL FCNT' 
C'POSN CHECK' 
C'BROKN TAPE' 
C'LCAD CHECK' 
C'DSE FAILED' 
C'TAPEVOL CH' 
C'lD CHK 
C'WR INHIETC' 

C INTERCEPT ' 
C'UNX INTERV 
C* FORMAT RST' 
C'PERK ERRCF' 
C'MARK CHECK' 
C'INV FORMAT' 

CROP ERROR • 

C'NCN-INIT • 
C'SPEC REC • 



CFERATOR INTERVENTION REQUIRED 

BUS OUT CHECK 

EQUIPMENT CHECK 

DATA CHECK 

VERIFY CHECK 

MISSING ADDRESS MARKER 

OVERRUN 

SEEK CHECK 

DATA CHECK IN COUNT FIELD 

VIOLATED FILE PROIECTICN 

COMMAND REJECT 

UNDETERMINED ERROR 

ERROR DURING RECOVERY ATTEMPT 

NO RECORD FOUND & MISSING ADDRESS MARKER 

BALLAST CELL ACCESSED CN 2321 

ACCESSED A PREVIOUSLY UNUSED STRIP 

I/O PROGRAM CHECK 

STORAGE PROTECTION CHECK 

SEEK ADDRESS NOT VALID 

DEVICE IN ERROR NOT RECOGNIZED 

CHANNEL DATA CHECK 

BACKSPACE INTO LOADFOINT 

TAPE CONVERT CHECK 

DEVICE NOT OPERATIONAL 

NCNCOMPATIELE TAPE ON DRIVE 

PARITY ERROR IN PRINTER BUFFER 

BATCH NUMBERING SP^ITCH CFF ON MICR 

NON-RECOVERY CN 1285, 3886 OCR 

NO RECORD FOUND 

DISENGAGE FAILURE CN MICR 

INVALID FONT CN 1287 IN DOCUMENT MODE 

POSITION CHECK CN 2495 TOR 

BROKEN TAPE ON 1017 

BUFFER LOAD CHECK ON 3211 

DSE COMMAND FAILED 

TAPE VOLUME CHANGED 

IDENTIFICATION BURST CHECK 

V^RITE ASSUMED CN DISK V^ITH 

READ-ONLY SWITCH CN 

IMMEDIATE COMMAND FAILED 

INTERVENTION REQUIRED TO OPEN TAPE VOLUME 

ABNORMAL FORMAT RESET 

PERMANENT ERROR KEY 

MARK CHECK ERROR ON 3886 OCR READER 

INVALID FORMAT ON 3 88 6 

OCR READER 

RECOGNITION CCNTRCI PROGRAM ERROR ON 3886 

OCR READER 

NCN-INITIALIZED ON 3886 OCR READER 

SPECIAL RECORD TRANSFERRED ON 3450 DISKETTE 

I/O UNIT 



Figure 6. ERP Transients Error Messages 
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CHii.PTER 3: 



MACHINE CHECK AND CHANNEL CHECK HANDLING (KCAK/CCH) 



R-TRANSIENTS AND RAS ^CNITCR 
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The RAS Monitor is 
prograrr which controls 
generation the RAS Mon 
of the resident superv 
Monitor and MCAR/CCH c 
generated for the Mode 
125. For Model 115 an 
Monitor and MCAR/CCH c 
only if RMS=YES or MCH 
system generation time 



a resident ccntrcl 

the RTA. At system 
itor fcrrrs a portion 
isor. The RAS 
cding are always 
Is other than 115 and 
d 125, the RAS 
cding are generated 
=YES was specified at 
The RAS Mcnitcr: 



• Fetches R-transients into the RTA 

• schedules I/C requests from the JjtTA 

• Accepts RTA I/O request ccmplete 
postings from CCH 

• Provides an exit interface frcm 
R-transients. 



LOAD LIST FOR THE R-TRANSIENTS 



The primary function of the transient 
$$ECCHHR (called at IPI-time) is tc scan 
the core image library directory fcr 
transients beginning with '$$RAST', and to 
build a directory for these transients in 
real storage. This directory (lead list) 



is located in the RASTAE, where a fullwcrd 
is reserved fcr each R~transient. The 
Icw-crder three bytes cf each fullwcrd 
contain the disk address cf the phase; the 
remaining byte contains switches and flags. 
Currently, the first 64 bytes cf RASTAE are 
occupied ty sixteen fullwcrd entries, one 
fcr each R-transient. 

All R-transient names have the format 
$$RASTrn, where nn is a decimal number, 
currently from, 00 to 13. The last two 
digits in the phase name cf a RAS transient 
are used as an index tc the lead list in 
RASTAE. The address of a particular entry 
is obtained by m,ultiplying this number by 
feur and adding the prcduct to the RASTAE 
address. 

Another functicn cf the $$ECCHHR 
transient is to determine whether the 
Recorder File is en a 2311, 2314, 3330, cr 
3340 disk storage device. The channel 
addresses cf the devices tc which SYSRES , 
SYSREC, and SYSLOG are assigned are placed 
in RASTAE at RASRES, RASREC , and RASLCG 
respectively. 



r " 


^ ^ — , , ^ 


|R-Transiert [Charts 


Functicn | 


1 , 


L ^ 


J 


J. — 


^ J. J. ^ 


|$$RASTOO 
1 


IVA-VE 
1 


MCAR analysis / CCH | 
data gatherer | 


1 $$RAST01 
1 


|VF,VG 
1 


MCAR/CCH recording / | 
Interface Euilder | 


|$$RAST02 


1 WA-^C 


CCH ERP scheduling | 


|$$RAST03 
1 


|WE-^J 
1 


MCAR repair (error | 
frequency analysis) | 


|$$RAST04 


IXA-XD 


Unit record CCH ERP | 


1 $$RAST05 


|XE-XG 


Unit record CCH ERP | 


1 $$RAST06 
1 


1 XH-XJ 
1 


3504, 3505/3525, 3540| 
and 3886 CCH ERP | 


1 $$RAST07 


!XK,XL 


Tape CCH ERP (2400) 1 


|$$RAST08 


IXM-XP 


MCAR/CCH record witerj 


1 $$RAST0 9 
1 


IXQ-XS 
1 


Partition | 
reallccaticr | 


1 $$RAST10 
1 


1 XT-XV 
1 


Message writer for | 
ERPs V 1 


|$$RAST11 


|XW 


Message writer | 


|$$RAST12 
1 


|XY,XZ 
1 


Tape CCH ERP (3400 | 
and 341C) | 


|$$RAST13 
1 


|YA 
1 


Page peel | 
reallccaticn | 


|$$RAST14 


1 


Reserved | 


|$$RAST15 


1 


Reserved | 


I , 


JL 


, J 


Figure 7. 


Lead List 


cf R-Transients 
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DISPLACEMENT 
DEC HEX 



(0) 


4 (4) 


8 (8) 


12 (C) 


16(10) 


20(14) 


24(18) 


28 (1C) 


32 (20) 


LDrjSLOT 


LD(. 3L0T 


LDU?SLOT 


LDO^SLOT 


LD04SLOT 


LDO SLOT 


LDObSLOT 


LD07SLOT 


LD03SL0T 


(SSHASTOO) 


($$RAST01) 


($$HAST02) 


($$RAST03) 


($$RAST04) 


($$RAST05) 


($$RAST06) 


($$RAST07) 


($$RAST08) 


O 


© 


© 


© 


© 


© 


© 


© 


© 


36 (24) 


40(28) 


44 (2C) 


48 (30) 


52 (34) 


56 (38) 


60 (3C) 


64 (40) 


66(42) 


LD09SLOT 


LD10SLOT 


LD11SL0T 


LD12SL0T 


LD13SL0T 


LD14SL0T 


LD15SL0T 


RASCCB 


RASTIB 


($$RAST09) 


($$RAST10) 


($$RAST11) 


($$RAST12) 


($$RAST13) 


($$RAST14) 


($$RAST15) 


Residual 
Count 


Transmission 
information 


© 


O 


© 


© 


© 


© 


© 






68 (44) 


70 (46) 


72 (48) 


73 (49) 


76 4C) 


80 (50) 


88 (58) 


96 (60) 


104(68) 






RASCCBF 






RASCCWS 


RASRCG 


RASTIC 


RASREAD 


COW Status 


SYS RES 


RAS CCB 


RAS Fetch 


CCW stored 


RAS seek 


RAS search 


RAS TIC CCW 


CCW to read 


bytes 


LUB 


indicator 


CCWs address 


address 


CCW 


CCW 




module into 
RTA 


112 (70) 


119(77) 


120(78) 


122(7A) 


124(7C) 


128(80) 


132(84) 


133(85) 


134(86) 


RASEEK 


R FAOWN 


MOP IK 


MCTIK 


ERPIBA 


CCENTADR 


RTAID 


ERPID 


RASRES 


Seek 


Index to 


PIK of task 


TIK of task 


ERPIB 


Address of 


RTA I/O 


WTOR request 


SYS RES 


Address 


load list for 
RTA ownet 


interrupted by 
machine check 


interrupted by 
machine check 


queue 
address 


channel check 
routine 


requestor ID 


return load 
index 


I/O address 


136(88) 


138 (8 A) 


140(80 


TRANSAV • RTA Register Save A 


rea 






,40(80 


144(90) 


148(94) 






200(C8) 


RASREC 

SYSREC 
I/O address 


RASLOG 

SYS LOG 

device 


TRANSAVO 
Register 


TRANSAV1 
Register 1 


^TRANSAV 2 


" TRANSAVE 


.,. _ „ ,„ ....^Ba 


TRANSAVF 
Register 15 


Registers 2 - 


14 






address 














204(CC) 


SYSREGS - Sy 


stem Register Save A 


rea 




268(100 


269(100) 


204(CC) 


208 (DO) 


212(04) 






264(100 


SYS REG 


SYSREG 1 


SYSREG 2 - 

*i— • — — ~ - 

Registers 2-14 


SYSREG E 


i» 


SYSREG F 


LINKFLAG 


SUPLINK 
Address of 


Register 


Register 1 








Register 15 

__^__ 


© 


RAS system 
function scan 
routine 


182 (B6) (HIR-H 


ardware Instruction 


Retry accumulators) 


284(1 1C) (ECCMAIN-Main storage error accumulators) 


296(128) 


272(110) 


274(112) 


276(114) 


280(118) 


284(110 


286(1 IE) 


288(120) 


292(124) 


HIRACNT 


HIRLCNT 


HIR1TIME 


HIRLTIME 


ECMACNT 


ECMLCNT 


ECMITME 


ECMLTME 


RESTARTA 


HIR 

accumulated 

count 


Count 

threshold 

value 


Time of day for 
first error 
of group 


Time threshold 
in clock units 


Accumulated 
ECC count for 
mam storage 


Count 

threshold 

value 


Time of day 
for first error 
of count 


Time 

threshold in 
clock units 


Disk 

restart 

address 


300(120) 


302(1 2E) 


303(12F) 


304(130) 


30b(131) 










RESTARTP 


MCMODE 


BUFDEL 


RASMSG1 


RASMSG2 










PUB address 


Mode status 


Count of 


Message byte 1 


Message byte 2 










of unit to 
be restarted 


for machine 
checks (V) 


buffers 
deleted 


© 


© 











Note: RASTTAB identifies the first byte of the RAS Monitor table. Its address can be found at displacement X'OO' in RASLINK area. 



Figure 8. Ri\3 Kcnitor Table {'RP.Si:P.B) (Part 1 cf 2) 
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r,ci]/v:: trmr 



covery and Jxeccrdlna MrHnsients 



© 



16 entries are fotmatted as lollows" 



BYTE 



the Load List and each of the 






'2 I3 


Flag 


Cylinder Head Record 


Byte 


(disk address of R-transient in the 




core image .directory) . 



o 



LDi.OSLOT flag byte: 



Bit 


Flag 





X'80 


1 


X'40 


2 


X'20 


3 


X'10 


4 


X'08 


5 


X'04 


6 


X'Q2 


7 


X'01 



© 



© 



© 



© 



LDGISLOT flag byte: 

mt Flag 

X'80' 

1 X'40' 
2-7 

LD10SLOT flag byte: 

Bit Flag 

X'BO' 

1 X'40' 
2-7 

LDxxSLOT flag byte: 



© 



Description 

$$RASTOO module activated. 

Machine check analysis to be performed. 

Channel check analysis to be performed. 

List of active I/O units invalid. 

System termination situation. 

Reserved, 

Attempt mode to record in system termination situation. 



Description 

$$RAST01 module activated. 

Build and record channel check records. 

Reserved. 



Description 

$$RAST10 module activated. 

Refetch cailing module after issuing message. 

Reserved. 



LINKFLAG: Indicates which function is 
requested by R-transient. This byte is 

tested by the RAS system ^unction scan 
routine 



Bit_ 


Flag 


Description 





X'80' 


$$RASTxx module activated; the 


1-7 




Reserved. 


RASMSGI: 






Bit 


Flag 


Description 


0-3 


„.. 


Reserved. 


4 


X'08' 


Timer damage. 


5 


X'04' 


ECC in Quiet mode. 


6 


X'02' 


Reserved. 


7 


x'or 


EFL Overflow 


RASMSG2: 






Bit 



Flag 
X'80' 


Description 
Clock damage 


1 


X'40' 


Last track on SYSREC. 


2 


X'20' 


Reserved, 


3 


X'10' 


Soft machine checks disabled. 


4 


X'08' 


ECC MCI disabled. 


5 


X'04' 


SYSREC full-run EREP. 


6 


X'02' 


Error on SYSREC at BBCCHHR 


7 


x'or 


Soft machine check. 



Bit 


Elm. 


Description 





X'80' 


Normal I/O request 


1 


X'40' 


Emergency f/0 request 


0,1 


X'CO' 


Restart I/O request 


2 


X'20' 


Fetch request 


3 


X'10' 


Request for exit 


0,3 


X'90' 


Wait request 


4 


X'08' 


Request to initialize 
registers for I/O 


5 


X'04' 


Dequeue CCB request 


6 


X'02' 


Request to cancel task 


7 


x'or 


Getime request 



© 



MCMODE flag byte: 



Bit 


Flag 





X'80' 


1 


X'40' 


2 


X'20' 


3 


X'10' 


4 


X'08 


5 


X'04' 


6 


X'02 


7 





Description 

HIR recording mode 

HIR quiet mode 

ECC recording mode in main storage 

ECC quiet mode in main storage 

ECC recording mode in control storage 

ECC quiet mode in control storage 

ECC threshold mode in control storage 

Reserved. 



Figure 8. JRAS Konitor Table (RA.SIi^E) (Part 2 cf 2) 
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Message 
Code 



Initiating 
Phase 



Errcr Message 



0X291 

0F13A 
0F81I 

0F82I 

OTOOI 



$$IFLBT4 
(Note 3) 



$$RAST10 

$$BECJ2A 
(iSlote 2) 

$$BECJ2A 
(Note 2) 



$$ABERA1,A2,A3 
$$RAST11,08 



0T03I 


$$RAST8,11 


0T05E 


$$RAST08,11 
$$ABERA1,A2,A3 


0T06I 


$$RAST03,11 


01071 


$$RAST03,11 


0T08I 


$$RAST03,11 


0T09I 


$$RAST03,11 


OTIOI 


$$RAST02,04,5,6, 
7,10,12 


OTllW 


J$RAST00,01 



0T12I 


$$RAST02, 04,5,6, 
7,10,12 


0113A 


$$RAST04,5,6,10 


0T14E 


$$RAST03,11 


0T15E 


$$RAST09,13 


0T16I 


$$RAST03,11 


0T17I 


$$RAST03,11 


0T18E 


$$RAS103,11 


0T19E 


$$RAST09 


0T20E 


$$RAST13 


1I82A 


$J0ECTLM 
(Note 3) 



Insufficient PUE2 space available e Be-IFL. 

Invalid response. 

Jcfc XXXXXXXX canceled due to CPU failure. 

Jcfc XXXXXXXX canceled due to channel failure. 

Last track en Recorder File. 

Error on Recorder File at cchhr. 
Recorder File full — run EREP. 

ECC real storage MCI disakled. 
All soft irachine checks disabled. 
cac buffer pages deleted = XXX. 
Successful recovery froir nachine check. 
Channel errcr recovery on cuu. 



Hard wait. Code = X. (Note 1) 
Run EREP. Recording successful. 
Run SEREP. Recording incomplete. 
Run SEREF. Recording unsuccessful. 

Irrecoverable channel errors on cuu. 



Channel error on cuu. 

Clock damage. All modes quiet. 

MCAR repair failed. 

EFI overflow. 

Control storage ECC in quiet mode. 

Timer damage. 

(Lower, Upper) bpundary of XXR is xxxxxx, length is LLLK. 

Page frame xxxxxx deleted. Main page pool size is LLLK. 

Recording completed 



Figure 9. MCAR/CCH/RMSR Error Messages (Part 1 of 2) 
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Message 
Code 



Initiating 
Phase 



Errcr Message 



1I83A 



1I84A 



1I86A 



1I93I 



4E10I 



h 



$JOBCTLiy! 
(Note 3) 

$JOECTLM 
(Note 3) 

$JOBCTLiy! 
(Note 3) 

$JOECTLM 
(Note 3) 

$$AEERAA,A2 
$$AEERAK 



Recorder file tec sirall 



Recorder file open failure 



Errcr en recorder file at cccchhhhrr 



Recorder File is nnn% full. (Run EREP). 



w^vvv cuu TR=rrr TW=vvvvt^ SIO=sssss 



Note 1; Hard vvait has resulted due tc systeir failure explained in the code X, vvhere 



X = A Irrecoverable irachine check 
B RAS fetch errcr 
C SYSLOG channel check v^hile 

printing RMSR message 
D No ECSW stored 



E ERPIE exhausted 
F Two channels damaged or RTA I/C active 
G S;ysteir Reset Code in ECSVv 
H Retry/Reset Codes invalid 
I Invalid channel address en channel error 
J Irrecoverable channel check on paging 
device cr channel 



Note 2 : 
Note 3: 



For this phase, refer tc DQS/VS Lcgical Transients Logic, listed in Preface. 
For this phase, refer tc DQS/VS IPL and Job Ccrtrcl Logic, listed in Preface. 



Figure 9. KCAR/CCH/RMSR Errcr Messages (Part 2 of 2) 





< ^ 


RASLINK 

- 

- 


8 
8 


9 
9 


OA 
10 


OB 
11 


00 
12 


10 
16 


14 
20 


18 
24 


10 
28 


> 


CPU ID Field 


Damaged 
Channel Byte 


RAS Flag Byte 


Machine 

Check 

Flags 


Largest CPU 
Model 


RAS Table 

(RASTAB) 

Address 


3ase Address for 
RAS Monitor 


Address of 

Headqueue 

Table 


Address of 
CCH Savearea 


Address of 
Page Queue 


X Q 


xxxxxxxx 


X 


X 


X 


X 


XXXX 


XXXX 


XXXX 


XXXX 


XXXX 




1 























Key to RAS Linkage Area displacement 






OPU ID Field 






10 


Machine Check Flags 




8 


Address 


of damaged channel, or 


X'FF' if no channel damaged 




bit flag 


description 


9 


RAS Flag Byte 








0-4 

5 X'04' 


Reserved 

Hard machine check 




bit 




flag 


description 




6 X'02' 

7 x'or 


All machine records built 

All channel check records built 









X'80' 


RAS active 










1 




X'40' 


RAS SIC flag 


11 


Largest OPU Model 






2 
3 

4 
5 




X'20' 
X'10' 
X'08' 
X'04' 


RTA in control 

RAS I/O delayed 

Channel check on error SIO 

Reserved 


12 


Address of RAS Monitor Table (RASTAB) 






t6 
20 


Address used for base register in RAS Monitor Program 
Address of Headqueue Table 




6 




X'02' 


Channel check on SIO 


24 


Address of CCH Savearea 






7 




x'or 


I/O active for SIO 


28 


Address of Page Queue Table 



Bytes 112-115 (X'70'-X'73') of the System Communication Region (SYSCOM) contain the address of the area 
Label RASLINK identifies the first byte of the area. 



Figure 10. RAS Linkage Area (RASLINK) 
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MACHINE CHECK ANi^LYSIS AND RECCREING (MCAR) 



MCAR responds to MCIs. atteirpts recc^^ry^ 
and provides operator iressages en SYSLCG. 
Machine check records are recorded en the 
recorder file IJSYSRC by the RMSR 
transients $$RAST01 and $$RASTC8. (See 
Figures 50 through 52,) 



Vihen a machine check occurs, hardware 
first logs the error in the Machine Check 
Logcut Area in low real storage and then 
retries the failure by CPU retry and ECC 
(Errcr Checking and Correcticn) . If the 
retry is successful, a soft irachine check 
occurs on the Models 135, 145, 155-11 and 
158 (if enabled). The Models 115 and 125 
do not generate an interrupt fcr a irachine 
check from which it could recover (no soft 
MCI). For soft MCIs the recording is 
controlled through the Error Frequency 
Analysis (EFI) feature. If a specified 
errcr count is reached, the recording irode 
is changed from recording to quiet. The 
MODE com.mand gives the operator control of 
soft MCIs. (EFL and MODE ccirirand dc net 
apply to the Model 115 or 125.) It permits 
the operator three options: 

• Determine whether the system is in quiet 
or recording mode. 

• Alter mode of operation. 

• Change error threshold values. 

If hardware retry is not successful, MCAR 
determines machine check severity. A hard 
MCI occurs when: 

• CPU retry is not successful. 

• Interrupted instruction cannot he 
retried. 

• Storage failure is permanent. 

In the event of a hard MCI, the affected 
task is canceled. MCAR assesses the damage 
and continues system operation when 
possible. The system, enters the hard wait 
state when a hard MCI: 

• Interrupts supervisor ceding. 

• Occurs while accessing critical 
information or phases from SYSRES. 

• Damages privileged coding through a 
permanent storage error. 

MCAR attempts to notify the operator about: 

• Machine check type. 



• Wait state, re-IPL. 

• Problem program termination. 

• Mode operation change. 

• Buffer deletion. 

Chart 04 provides an overview of machine 
check analysis and recording. The 
following section accompanies this chart. 



MACHINE CHECK ANALYSIS AND RECORDING 
FUNCTIONAL FLOW 



(Numbers refer to Chart O'i.) 

1. The Resident Machine Check Handler 

analyzes the Machine Check Ir.terrupticn 
Code (MCIC) and the Problem State bit 
(bit 13) cf the Machine Cheek Old PSW . 
It catagorizes errors into 3 classes: 

a. System operation terninaticn 
ccndition. The MCIC indicates: 

• System damage. 

• CPU-mask (IMWP) in eld PSW is 
invalid. 

• Instruction processing damage 
(while the CPU is in the 
supervisor state) . 

• One or more old PSW bits, other 
than in the CPU-mask, are 
invalid (while the CPU is in the 
supervisor state) . 

• Stcrage cr Prctecticn errcr 
while the failing stcrage 
address is invalid. 

Action; Post C'A' in location 
(system termination code), post 
C'S' in location 1 (for SEREP) , and 
post Emergency Exit (EMEXIT,X' 08 ' ) 
in LDOOSLOT (indicator to $$RASTOO 
te terminate the system) . 

b. Hard Machine Checks. The system 
can continue but the damaged task 
is to be canceled. While the CPU 
is in the problem state, the MCIC 
indicates: 

• Instruction processing dam^age. 

• One or more old PSW bits, other 
than in the CPU-mask, are 
invalid . 

Action: Activate RAS System task 
and branch to the cancel routine to 
cancel the task. If stcrage error 
on GETREAL request, exit to task 
selection (do not cancel task) . 
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chart 04. Machine Check Analysis, and Reccrdirg Function Flew 



$$RASTDO 



VA 



Exit to $$RAST01 

fof recording f 



RMSR phases 



$$RAST01 



VF 



iPLorEREPin 
progress, recorder 
file not ready, or 
recording not 
supported 

Build s-ecord header 
and Interface 
Segment 



$$RAST08 



XM 



Build and write 
onSYSREC the 

required machine 
check records 



$$RASTOO 



VA 



Issue hard wait 
message and 
terminate the 
system 



C 



System 
termination 



) 



C 



Load IVlachine 
Check New PSW 



D 



(Machine Check \ 
Interrupt J 



MACHEH 



Resident IVlachine 
Check Handler 



Analyze MClC 
and bit 13 of 
Machine Check 
Old PSW. 

_System termination 
condition 

Hard error ftask 
cancellation cond.) 
or Soft error 
(recovered by f 
hardware) 



$$RASTOO 



VA 



_System termination 
condition 

If not system 
termination condition 
activate $$RAST03 



$SRASTOO 



VA 



Scan toad list 

and find $$RAST03 

activated 



$$RAST03 



WE 



Schedule applicable 
messages 

For soft machine 
checks perform 
EFL analysis, and, 
if necessary, change 
mode 

For hard machine 
checks perform 
storage validation 
or key repair, if 
possible 

Machine Check (not 
System Damage during 
validation or repair) 

a. in real partition 

b. in page pool 

System Damage mach. 
check or mach. check 
in LTA during 
validation or repair 

$$RAST11 found 
activated,while ' 
scanning load list 



Otherwise 



_r 



10 



RMSR phases 



$$RAST01 VF 



IPLorEREPin 
progress, recorder 
file not ready, or 
recording not 
supported 

Build record header 
and Interface 
Segment 



7 



$$RAST08 XM 



Build and write 
the required mach, 
check records. 
If messages 
regarding the 
status of the 
Recorder 
File are to be 
issued, activate 
$$RAST11 



$$RAST09 XQ 



Reallocate real 
partition, 
containing the 
failing storage 
address and issue 
associated 
messages 



\ 



$$RASTOO VA 



Scan load list 

If $$RAST1J 

activated 

If $$RAST 11 not 
activated, ret urn 
to Task Selection 
via RAS Monitor) 







$$RAST13 YA 



Reallocate page 
pool and issue 

associated . 

messages 12 






o 






ff 



$$RAST11 



XV 



Issue the messages 
that were 
scheduled by 
previous phases 



r\jr\ 



$$RASTOO 



VA 



As no R-transients 
are activated 
at this stage 
return to Task 
Selection via the 
RAS Monitor 



( Task Selection J 
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Soft Machine Check (if ricne cf the 
above conditions is present) . Only 
recording is required fcr errors 
frorr which hardvvare reccvered 
successfully. 



Action: If interruption occurred 
while in problem state, activate 
RAS system task and exit tc Task 
Selection* 

If supervisor function is being 
perfcrired or system task active, 
activate RAS system task (if net 
already active) and return to the 
interrupted code by loading the 
machine check old PSVs. 

2, Cn finding the EMEXIT bit on in 
LDCOSLCT, and C'A' in Iccaticn 0, 
control is passed immediately to 
$$RAST01 for an attempt tc reccrd the 
irrecoverable machine check cn the 
recorder file (IJSYSRC). 

3. If IPL or EREP is in progress, if the 
recorder file is not ready, or if the 
recorder file is owned by the physical 
transient area, no record is built and 
an exit is taken immediately tc 
$$RASTOO. 

lor the Kcdel 115 or 125, if RMSR has 
not been generated into the system, no 
recording is performed and an exit is taken 
immediately to $$RASTOO. 

$$RAST01 builds the standard 24-byte 
reccrd header (plus additional infcrmaticn 
for the first record) and Interface 
Segments, which are used to establish an 
interface with $$RAST08. (See Figure 16.) 

^. $$RAST08 posts SYSTERM O^'Ol') in 

LDOOSLCT, and builds and records the 
required machine check records. It 
uses the record header and the 
interface segment passed tc it by 
$$RAST01. (See Figures 50 thrcugh 52 
for machine check record formats.) 

$$RAST08 reads the recorder file header 
record and determines whether there is 
space available on the file. If sc, the 
records are written on the file and the 
SYSREC header record is updated and 
rewritten. 

If the recorder file is full, or if an 
I/C error occurs while accessing the file, 
no further recording is attempted. A code 
is posted in location 2 to indicate the 
status of the recording effort: 

C'A* Recording was attempted but failure 
occurred on first record. 



CI' Recording was incomplete, tut at 
least one record may have been 
written successfully cn the recorder 
file, 

C'S' Recording cf all reccrds was 
successful . 

5. $$RASTCO tests LEOCSICT, and finding 
both the SYSTERM and EMEXIT bits on, 
executes the audible alarm command, 
issues a OTllVi hard wait message 
regarding the recording status, and 
terminates the system. (See Figure 9.) 

6. $$RASTCO receives control, via Task 
Selection, when one cf the conditions 2 
and 3, specified in item 1, exist. The 
EMEXIT bit in LDCOSLCT is net cn. A 
test is made to determine if one of the 
follcwing conditions exists: 

a. The first byte of the MCIC=0. 

b. Multiple bit ECC (Errcr Checking 
and Correction) errors occurred and 
the failing storage address is 
invalid. 

c. Multiple bit ECC errcr occurred and 
the failing storage address is in 
the supervisor area or in the 
alternate area. 

Each cf the abcve ccnditicns causes the 
system to be terminated. CA' is posted in 
Iccaticn C, SEREP code C*S' is pcsted in 
location 1, the EMEXIT bit is posted in 
ICOOSICT, and $$RASTC1 is fetched. 

If none cf the abcve ccnditicns exist, 
an exit is also taken to $$RAST01 and 
$$RASTC3 is activated (high-crder bit in 
IE03SICT cn). 

7. See item 3. Vvhen the recorder file is 
owned ty the physical transient area an 
exit is taken tc resident routine to 
deactivate the RAS task. 

8. $$RAST08 builds and records the 
required machine check reccrds. It 
uses the record header and the 
interface segment passed tc it by 
$SRAST01. (See Figures 50 thrcugh 52 
for machine check reccrd formats.) 

It reads the recorder file header record 
and determines whether there is space 
available cn the file. If sc, the reccrds 
are written on the file, and the SYSREC 
header reccrd is updated and rewritten. 

If the recorder file is full, cr if an 
I/C error occurs while accessing the file, 
no further recording is attenpted. For the 
following conditions $$RAST11 is activated 
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(high-order kit in LDllSLOl en) tc write a 
iressage en SYSLCG: 

a. I/O error while accessing the 
recorder file. 

b. The recorder file is full. 

c. Last track of the recorder file is 
being used. 

9. The load list is a directory for the 
$$RASTnn transients. It is contained 
in in Ri^STAE. (See Figure 8.) A 
fullword is reserved for each phase, 
and the low-order three bytes of each 
fullword contain the disk address of 
the associated phase. The first byte 
is a flag byte. The load list is 
scanned for entries that have the 
high-order bit of the flag byte on. If 
such an entry is encountered, the 
associated phase is loaded because it 
appears that at sorre earlier stage a 
request for this phase was irade. 
Before the requested phase is loaded, 
the entry is deactivated. The order in 
which the load list is scanned 
establishes a priority rrecnanisir when 
rrore than one R-transient is activated. 
If no entry is found with the 
high-order bit on, an exit is taken to 
the resident RAS Monitor, which will 
pass control to Task Selection. 



10. 



$$RAST03. For soft machine checks the 
primary function of this phase is Error 
Frequency Analysis (EFL) . For hard 
machine checks the storage validation 
or SPF key repair is attempted. 
Messages are scheduled by this 
transient by turning on the appropriate 
bit in RASMSGl or RASMSG2 in RASTAE. 
(See Figure 8.) The messages are to be 
printed by $$RAST11. 

When a soft machine check has 
occurred, the iressage 0T09I is 
scheduled. If damage has occurred 
to the timer or to location 80, 
message 0T18E is also scheduled. 
The Kodels 115 and 125 do not 
generate an interrupt for a soft 
machine check. 



For the model 155-11/158, ECC/EFL 
analysis is done by checking whether a 
specified error count has been reached 
within a specified time limit, whereupon a 
diagnose instruction is issued to place the 
machine in quiet mode. The message 0T06I 
is schedlued. 155-11/158 HIR/EFL analysis 
is done in a simdlar manner, but tc switch 
from full recording mode to quiet mode, 
besides using a diagnose command, control 
register 14 is also loaded (with i loaded 



(with only bit and 1 or). The message 
T07I is scheduled. 

Model 145 HIR/EFL analysis is 
identical to that of the Kodel 155-11/158. 
Model 145 ECC/EFL analysis differs from the 
analysis for the Model 155-11/158 to the 
extent that control storage analysis is 
necessary and the EFI is initially set to 
sixteen signle bit errors in eight hours 
rather than eight errors in eight hours. 
Eoth real and control storage are switched 
tc quiet mode by using two diagncse 
commands, if there is reason for it. Cn 
the occurrence of a single bit error while 
in control storage threshold mode, message 
CT17I is scheduled tc indicate that control 
storage is in quiet mode. 

For the Model 135, the hardware 
maintains an EFL counter. When the error 
frequency lim.it is reached a soft machine 
check cccurs. If the machine check being 
handled is of this type (bit 17 of the MCIC 
cn) a diagrose instructiccn is executed to 
place real storage in quiet mode. 
Moreover, the message 0T16I is scheduled. 

If an error is detected while accessing 
the time of day clock, all modes of 
operation are changed tc quiet, regardless 
of the machine type. The message 0T14E is 
scheduled . 

The mode status is posted in a cne-kyte 
location in the RASTAE called MCMCDE. The 
ccnf iguraticn of the byte is as follows: 



HIR recording mode. 

HIR quiet mode. 

ECC recording mode in real storage. 

ECC quiet mode in real storage. 

ECC recording mode in control 

storage. 

ECC quiet mode in control storage. 

ECC threshold mode in ccntrol 

storage. 

Net used. 

Hard check . 

The following tests are made before 
storage validation is attempted: 

• Check fer multiple hit ECC 
errors. 

• Test if failing sterage address 
(FSA) is valid. 

• Test to see that the region 
codes are valid and the FSA is 
not in the, UCS (unit control 
storage) - Models 155-11 and 158 
only. 



Storage validation is attempted only if 
each of the above cenditicns exists. First 
a doubleword of ones and then a doubleword 



Eit 





Eit 


1 


Eit 


2 


Eit 


3 


Eit 


4 


Eit 


5 


Eit 


6 



Eit 7 - 
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of zeros is iroved into and read frcir the 
failing storage address. Before storage 
validation is attempted, bit 5 in the FSW 
is set to 0. The DAT (Dynarric Address 
Translation) mechanisin is therefore not 
invoked during validation. After the 
attempt, the DAT bit is turned en again. 

lor uncorrected protection errors, an 
attempt to set the storage protect key is 
made when a storage protect failure occurs. 
The attempt is made only when the JFSA is 
valid. A rotary scan is initiated in a 
multiprogramming environment (otherwise the 
EG key is taken) to determine which 
partition owns the failing storage address. 
Once this has been determined, an attempt 
is made to set the storage protection key 
for that partition. 

Eefore storage validation or key repair 
is attempted, the machine check new PSVv is 
saved and replaced by a PSW that causes a 
routine in this transient tc be entered 
when a machine check occurs. After the 
recovery attempt, the original machine 
check new PSVv is restored. 

If a machine check, not in the logical 
transient area and other than system 
damage, is encountered while validating 
storage or repairing the SPF key, the Page 
Frame Table entry of the dairaged page frame 
is flagged unusable for paging and GETREAL 
requests. $$RAST09, the d^^namic 
reallocation of real partition phase, cr 
$$RAST13, the reallocation cf page pool 
phase, is fetched. 

If system damage is encountered, the 
resident machine check handler is entered 
by loading the machine check new PSW and 
the system will eventually be terminated. 
This also applies when the check is in the 
logical Transient area. In this case, the 
supervisor state is simulated in the PSW. 

For the model 155-11/158, message 0T08I 
is schedulec3 if Automatic Configuration has 
occurred. The total number of buffers 
deleted is saved in a one byte area in the 
RAS monitor table called BUFDEL. 

Messages that can be scheduled by 
$$RAST03 are: 

0T06I ECC MCI DISABLED 

0T07I ALL SCFT MCI DISABLED 

0T09I SUCCESSFUL RECOVERY FROM MACHINE 

CHECK 

0T14E CLOCK DAMAGE. ALL MODES QUIET 

0T16I EFL CVERFLOW 

0T17I CONTROL STORAGE ECC IK QUIET MODE 

0T18E TIMER DAMAGE. 

11. $$RAST09 reallocates real partitions 

whenever a machine check interrupt, not 



in the logical transient area and ether 
than system damage, occurs while 
storage validation or SPF key repair is 
being performed for multiple-bit 
failures. It also issues the message 
0T15E MCAR REPAIR FAILED and the 
message 0T19E regarding the size and 
boundaries of the partition. 

The way in which the partitions are 
reallccated deperds en where the 
storage or protection error occurred: 
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b. The error occurred in a real 

partition that was released to the 
page pool because the partition is 
rurning in virtual mcde cr in that 
part of the real partition that was 
released by an EXEC REAL, SIZE job 
control statement. If the page 
frame is in the selecticr pool (and 
therefore in a page queue) , it is 
removed from the selection pool and 
dequeued. The entry of the page in 
the page table is set to unused and 
the high-address tit (bit 0) is set 
tc 1 to indicate invalid address 
space. The partition is 
reallocated by setting a new high 
boundary, if the page frame was 
released to the page pool by an 
EXEC REAL, SIZE job control 
statement. Otherwise the partition 
is reallocated as described in item 
2. The messages 0T15E and 0T19E 
are issued. The uni:sed part cf the 
partition is given to the page pool 
by FREEREAL (SVC 54). 

12. $$RAST13 reallocates the page pool when 
a machine check interrupt, other than 
system damage, occurs while storage 
validation or SPF key repair is being 
performed for multiple bit failures. 
It also issues the message 0T20E 
regarding the size of the page pool. 

Dynamic reallocation of the page pool 
is as follows: 
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The page is dequeued frcrr the page 
queue and the page table entry 
corresponding to the failing 
storage address is set to unused. 
The high-address bit (bit C) is set 
to 1 to indicate invalid address 
space. 



The entry in the Boundary Eox 
indicating the number cf page 
fraires in the irain page peel is 
updated (reduced by cne) . 



CHi^.NISlEL CHECK HANDLER EUKCTICNAL FLOW 



(NuiTibers refer to Chart 05.) 



A channel errcr is detected ^hen a CSW 
is stored with either the interface 
ccntrcl check cr channel ccntrcl check 
bit on. Thus, when an I/O interrupt 
vvith channel check occurs cr when 
channel check occurs en an I/O 
instruction, the legging is cone under 
control of CR14 bit 2. 



CHANNEL CHECK HANDLER CCCH) 



The channel check handler responds tc 
channel error conditions. It first records 
the error. Then, it evaluates the darrage 
and attempts to reduce the impact cf the 
error on the system as a whcle. 



CCH assesses channel control checks and 
interface control checks tc dcterinne it 
the system can continue. Figure 12 shows 
the results of the Channel Check Severity 
Detect Routine. Resident CCH performs 
severity analysis and builds an ERFIB 
entry. See Figure 11. 



For devices other than DASD , resident 
CCH coding fetches the proper transient to 
attempt restoration of system operation and 
to record the error on the recorder file. 
For record formats see Figures 57 through 
59. Transients needed by CCH operate under 
control of the RAS Monitor. For EASD 
devices, the resident EASD CCH is entered. 



System termination results when: 



• Hard channel error occurs during 

accessing of critical information or 
phases from SYSRES. 



• Hard channel error occurs on the paging 
channel. 



• System reset has occurred. 

• Channel address or reset codes are 
invalid. 

Chart 05 provides an overview of channel 
check handling. The following section 
accompanies this chart. 



This routine gains ccntrcl from either 
the SIC or I/C interrupt routines when 
a channel check occurs. The ECSW is 
inspected to determine if encugh 
information is valid tc isolate the 
damage to either a channel or a device. 
(Refer tc Figure 12, Channel Check 
Severity Detect Routine.) 



When a system termination condition 
exits, the EMEXIT bit is posted in 
Iccaticn LDOOSLGT tc indicate to 
$$RASTOO that the system is to be 
terminated. The applicatable 
termination code is posted at location 
0. The following list gives the 
termination codes for the various types 
cf disastrous channel errors: 

E Irrecoverable channel check on 
fetch. 

C Channel check on log with RASMSG. 

E ECSW not stored. 

E ERFIE queue has been exhausted. 

F Two channels damaged on RTA I/C 
active. 

G System reset code in ECSW. 

H Retry reset codes invalid. 

I Channel address invalid. 

J Irrecoverable channel check on 
paging channel. 
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Chart 05. Channel Check Handler Functional Ilcvi 
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$$RAST01 and $$RAST02 fcuild channel 
check records, and $$RAS'I08 reccrds 
their on the recorder file, P. code is 
posted in location 2 tc indicate the 
status cf the recording effort: 



C'A* Recording was atterrpted tut 

failure occurred en first record. 



C'l' Recording was inccirplete hut at 
least one record rray have teen 
written successfully en the 
recorder file. 

C'S' Recording of all records was 
successful. 



For the Models 115 and 125, if RMSR 
was net generated intc the systeir, no 
recording is perforired. 

7. Cne of the following channel check ERF 
phases gets ccntrcl at this stage: 

$$RASTOa - channel check ERF for 
14C3, ia03U, 1442, 1443, 2501, 2540, 
3881, console prirter-keyhcard unit 
record devices. 

$$Ri^-ST05 - channel check ERF for 
252C and 3211 unit record devices. 

$$RAST06 - channel check ERF for 
3505, 3525, 3540 and 3886 unit 
reccrd devices. 



5. 



When C'E* is posted in location 0, 
no recording is attempted. The SYSTERW 
bit is posted in LDOOSICI and $$RASTOO 
is fetched. 

With the EMEXIT and SYSTERM bits on, 
$$RASTOO attempts to issue the OTllW 
hard wait message with information 
regarding the recording status, and 
then terminates the system.. 

For the F.odels 115 and 125, if 
RMS=NO was specified at system 
generation time, no recording is 
performed. 

This routine gains control frcrr the 
resident channel check handler when the 
damaged device is a DASC device. The 
operation is retried for all conditions 
of termination code and sequence code 
by restarting the chain cf CCWs from 
the beginning (from the initial SEEK, 
SET FILE MASK, etc.). Kct more than 
ten retries are attempted. 

The channel queue pointer byte cf 
the ERPIE is used as an error counter. 
If the retry count has net been reached 
and the channel check occurred on a SIO 
instruction, a branch is taken to the 
SIO instruction. If the channel check 
occurred with an interrupt, a branch tc 
restart the operation is taken. 

$$RAST02 collects information for the 
record builder $$RAST01. The 
appropriate channel check ERF phase is 
activated by setting the high-order bit 
of the load list entry for the phase. 

$$RAST01 builds channel reccrds, and 
$$RAST08 records them on the recorder 
file. The recording status is posted 
in location 2 when the system is 
terminated. See item 3 for the status 
codes. Any activated channel check ERF 
phase is fetched, according to its 
priority. 



$$RAST07 - channel check ERF for 
2400 tape devices. 

$$RAST12 - channel check ERF for 
341C and 3420 tape devices. 

The channel check ERF phases 
interrogate the termination and 
sequence cedes asscciated with the 
error, and determine which action is to 
be taken. For ar explanation of the 
sequence and termination codes, see the 
secticn "Termination and Sequence 
Codes". The decision tables cf Figures 
13 tc 15 show the actions taken by the 
channel check ERF phases for the 
various possible values cf these codes. 

$$RAST10 issues all ERF messages and 
clears the ERFIEs if requested to do so 
by the channel check ERFs. The 
following messages possible: 

OTIOI CHANNEL ERROR RECOVERY ON cuu 



0T12I 



IRRECOVERABLE CHANNEL ERROR ON 
CUU 



0T13A CHANNEL ERROR ON cuu. 

$$RAST00 is fetched tc determine if 
any more errors are pending before 
ccntiruing. 



TERMINATION AND SEQUENCE CODES 



The termination code indicates the type of 
termination that has occurred. It has 
meaning cnly when a channel control check 
or an interface control check is detected 
by the channel and indicated in the CSW. 
It is contained in the limited Channel 
logout field (ECGW, location 176-179) at 
Iccaticn 179, bits and 1. 
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The terir.inaticn code bit settings have 
the following rreaning: 



Wher the ccnirand address is updated 
during comrrand chaining cr a START 
I/C. 



00 Interface disconnect 

01 Stop, stack, or noriral terrrination 

10 Selective reset 

11 System reset. 

The sequence code identifies the I/C 
sequence in progress at the tirre cf the 
errcr. It is ireaningless if stcred during 
the execution of HALT I/O cr HALT EEVICE. 
It is also ccntained in the ECSVy at 
location 179, tits 5, 6, and ?• 

The sequence code bit settings have the 
following ireaning: 

000 A channel-detected errcr occurred 
during the executicn of a TEST I/O. 

001 Coirimand-Cut with a non/zerc comrand 
byte on Eus-Cut has been sent by the 
channel, but device status has net yet 
been analyzed by the channel. This 
code is set with a Coirirand-Cut to 
Address-In during initial selection. 



010 The corriran 
device, bu 
transf erre 
Service-Cu 
Status-In 
sequence , 
channel en 
device end 
and status 



d has been accepted ty the 
t no data has been 
d. This code is set by a 
t or Coniirand-Cut response to 
during an initial selection 
if the status is either 
d alone, or channel end and 
or channel end, device end, 
irodifier, or all zeros. 



Oil At least one byte of data has been 

transferred over the interface. This 
code is set with a Service-Cut response 
to Service-In and, when appropriate, 
iray be used when the channel is in an 
idle or polling state. 

100 The command in the current CCVi either 
has not yet been sent tc the device or 
was sent but not accepted by the 
device. This code is set when one of 
the following conditions occurs: 



• VJher Service-Cut cr Ccirnand-Out is 
raised in response to Status-In 
during an initial selection sequence 
with the status on Eus-In including 
attention, ccr.trcl unit end, unit 
check, unit exception, busy, status 
ircdifier (withcut channel end and 
device end) , or device end (without 
channel end) . 

• When a short ccntrcl-unit-busy 
sequence is signaled. 

• When command retry is signaled. 

• When the channel issues a TEST I/C 
rather than the command in the 
current CCW . 



accepted, but data 
table. This cede 
e a device comes en 
the time it is 
w sequence code 
s be used when a 
e polling or idle 
ssible tc determine 
ee applies. It may 
r times when a 
nguish between code 



101 The command has been 
transfer is unpredic 
applies from the tim 
the interface until 
determined that a ne 
applies. It may thu 
channel goes into th 
state and it is impc 
that cede two or thr 
alsc he used at cthe 
channel cannot disti 
twc cr three. 

110 Reserved. 

111 Reserved. 



The last three bytes cf the ECSW are 
saved in the ERPIE associated with the 
errcr by the resident channel check 
handler. The channel check ERP phases 
($$RASTOa, $$RAST05, $$RAST06, $$RAST07, 
$$RAST12) interrogate the termination and 
sequence cedes passed tc them in an ERPIE 
and determine which action is tc be taken. 
Refer tc the decisicn tables in Eigures 13 
tc 15 for channel check errcr recovery 
precedures for CCH-supported devices. 



(. 
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ERPIBQ 



X'FF' 



.-r. 

e.^' 



CSW 



Sense 
Information 



PUB 
Pointer 



Queue Pointer 
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13 14 



16 



Channel 
Sched. Flags 


Message 


• 


Flag Byte 


Extended 
CSW 


17 


18 


19 


20 21 23 
Requestor Identification 



LocH^' 



^•S yye-lj 



Byte 20: Flag Byte: 

Bit 

1-4 

5 

6 

7 



1 * Channel Check on S!Q 
Not used 

1 = Sense data stored 
1 = DASD ERPIB active 
Not used 



Note: A free entry is indicated by X'FE' in byte zero. 

Label ERPIBQ identifies the first byte of the Queue. 

Figure 11. Error Recovery Procedure Irfcriraticr Elcck (ERPIE) 
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ACTION CODES 

1. Schedule recording. 

2. Schedule system termination with proper message. 

3. Set the damaged channel byte for non-resident channel check handler. 

4. Assume the error is on SYSRES device. 

5. Error can be isolated to a device, use Part 2. 

Note: Every Channel Check that occurs in the system is passed through the Channel 
Check Severity Detect Routine. You can determine the disposition of the check 
by using part 1. When a Channel Check has been isolated to a device, use 
part 2 to determine the action taken. 



Channel Check Device Isolation Results (Part 2): 
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No 
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11 


ACTION CODES 

6. Exit to supervisor I/O routine after other functions performed. 

7. Find a free ERPIB in queue and fill with information for ERPs. 

8. Exit to task selection after other functions performed. 

9. Post ERPIB complete. 

10. Dequeue the RAS CCB and requeue the users CCB. 

11. Exit to DASD channel check handler. 



Figure 12. Channel Check Severity Detect Routine 



80 DOS/VS Error RGGO\;erv and Heccrdina Transients 



1403 and 1443 Printers 



Operation 


Ternnination Code* 


Sequence Code 


000 


001 


010 


011 


100 


101 


110 


111 


Write (Only) 
Write/Control 
No Op 
Control 




2 
2 
2 
2 


5 
5 
5 
5 


5 
3 
5 
3 


3 
3 
5 
3 


5 
5 
5 
5 


3 
3 
5 
3 


2 
2 
2 
2 


3 
3 
5 
3 


*Recovery procedures for the 1403 and 1443 are termination code 


ndependent 











1442 Card Reach Punch 



Operation 


Termination Code 


Sequence Code 






000 


001 " 


010 


Oil 


100 


101 


110 


111 


Sense 


00 


2 


5 


5 


5 


5 


5 


2 


5 




01 


2 


2 


5 


5 


2 


5 


2 


5 




10 


2 


5 


3 


3 


5 


3 


2 


3 




11 


2 


5 


3 


3 


5 


3 


2 


3 


Read/Control 


00 


2 


5 


3 


3 


5 


3 


2 


3 




01 


2 


2 


3 


3 


2 


3 


2 


3 




10 


2 


5 


3 


3 


5 


3 


2 


3 




11 


2 


5 


3 


3 


5 


3 


2 


3 


Write/Control 


00 


2 


5 


3 


3 


5 


3 


2 


3 




01 


2 


2 


3 


3 


2 


3 


2 


3 




10 


2 


5 


3 


3 


5 


3 


2 


3 




11 


2 


5 


3 


2 


5 


3 


2 


3 



2501 Card Reader 



Operation 


Termination Code 


Sequence Code j 


000 


001 


010 


011 


100 


101 


110 


111 


Read 


00 


2 


5 


4 


4 


5 


4 


2 


4 




01 


2 


2 


4 


2 


2 


4 


2 


4 




10 


2 


5 


4 


4 


5 


4 


2 


4 




11 


2 


5 


4 


4 


5 


4 


2 


4 


Sense 


00 


2 


5 


5 


5 


5 


5 


2 


5 




01 


2 


2 


5 


5 


2 


5 


2 


5 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 



2540 Card Read Punch and 3881 Optical Mark Reader 



Operation 


Termination Code* 


Sequence Code 


000 


001 


010 


Oil 


100 


101 


110 


111 


Read-Feed-SS 




2 


5 


3 


4 


5 


3 


2 


3 


Read 




2 


2 


4 


4 


4 


4 


2 


4 


Feed-SS 




2 


4 


3 


2 


4 


2 


2 


3 


Punch-Feed-SS 




2 


5 


3 


4 


5 


3 


2 


3 


* Recovery procedures for the 2540, 3881 are termination code 


ndependent 











Figure 13. $$RAST04 Channel Check ERP Decision Tatles (Fart 1 of 2) 
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Console Printer- Keyboard 



Operation 


Termination Code* 


Sequence Code 


000 


001 


010 


011 


100 


101 


110 


111 


Read 




2 


5 


5 


3 


5 


3 


2 


3 


Write, CR 




2 


5 


5 


3 


5 


3 


2 


3 


Write, No CR 




2 


5 


5 


3 


5 


3 


2 


3 


No Op 




2 


5 


5 


5 


5 


5 


2 


5 


Alarm 




2 


5 


5 


5 


5 


5 


2 


5 


* Recovery procedures 


for the 3210 and 3215 are termination code ir 


idependent 













For explanation of the termination and sequence code see section 
Termination and Sequence Codes. 



ACTION CODES 



Action 1. The channel is damaged and the channel user will be canceled unless he accepts unrecoverable I/O errors. If specified, control 

returns to the damaged channel user for further analysis. If the channel user is to be canceled due to a non-retryable or 
unrecoverable channel failure, the CCH ERP flags the ERPIB with a cancel code (XTDl, saves CSW and CCW information 
for the user, and then returns to the CCH. The CCH then cancels the failing channel user. 

Action 2. Action 1 is taken followed by the CCH ERP. 

Action 3. This is non-retryable condition. An operator message is issued by the CCH ERP, and Action 1 follows. 

Action 4. With this condition, retry is possible with manual repositioning by the operator. The CCH ERP issues an operator message and 

waits for a response to retry the operation (reoccurrence of this error during the retry causes Action 1 ). 

Action 5. This condition indicates the failing CCW can be retried The CCH ERP identifies the failing CCW chain. If the failure reoccurs 

during the retry operation, an operator message is issued and Action 1 follows. 



Figure 13. $$RA£T04 channel Check ERP Decisicr Tahles (Fart 2 cf 2) 
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2520 Card Read Punch 



Operation 


Termination Code* 


Sequence Code 


000 


001 


010 


Oil 


100 


101 


110 


111 


Sense 


00 


2 


5 


5 


5 


5 


5 


2 


5 




01 


2 


2 


5 


5 


2 


5 


2 


5 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 


Read/Control 


00 


2 


5 


4 


4 


5 


4 


2 


4 




01 


2 


2 


4 


4 


2 


4 


2 


4 




10 


2 


5 


4 


4 


5 


4 


2 


4 




11 


2 


5 


4 


4 


5 


4 


2 


4 


Write/Control 


00 


2 


5 


4 


4 


5 


4 


2 


4 




01 


2 


2 


4 


4 


2 


4 


2 


4 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 


Write, Nc Contrc! 


00 


2 


5 


3 


3 


5 


3 


2 


3 




01 


2 


2 


3 


3 


2 


3 


2 


3 




10 


2 


5 


5 


5 


5 


5 


2 


5 




11 


2 


5 


5 


5 


5 


5 


2 


5 


Immediate 


00 


2 


5 


2 


2 


5 


2 


2 


5 




01 


2 


2 


2 


2 


2 


2 


2 


2 




10 


2 


5 


2 


2 


5 


2 


2 


5 




11 


2 


5 


2 


2 


5 


2 


2 


5 



3211 Prmter 



Operation 


Termination Code 


Sequence Code 




000 


001 


010 


Oil 


100 


101 


110 


111 


Control 


01 
00 
10 
11 




2 
2 


5 
5 


3 
5 


2 
2 


5 
5 


2 
2 


2 
2 


3 
5 


Initializing or 
Diagnostic 




2 


5 


5 


5 


5 


5 


2 


5 


Write/Control 


01 
00 j 

11 ] 




2 
2 


5 
5 


3 
5 


3 
5 


5 
5 


3 

5 


2 
2 


3 

5 


Write (Only) 


01 

00] 

10 

11 




2 
2 


5 
5 


5 
5 


3 

5 


5 
5 


3 
5 


2 
2 


3 
5 



* For explanation of termination and sequence codes, see the section Termination and Sequence Code. 

ACTION CODES 

Action 1. The channel is damaged and the channel user will be canceled unless he accepts unrecoverable I/O errors. If specified, control 
returns to the damaged channel user for further analysis. If the channel user is to be canceled due to a non-retryable or 
unrecoverable channel failure, the CCH ERR flags the ERPIB with a cancel code (X'FD'), saves CSW and CCW information for 
the user, and then returns to the CCH. The CCH then cancels the failing channel user. 

Action 2. Action 1 is taken followed by the CCH ERP. 

Action 3. This is a non-retryable condition. An operator message is issued by the CCH ERP, and Action 1 follows. 

Action 4. With this condition, retry is possible with manual repositioning by the operator. The CCH ERP issues an operator message 
and waits for a response to retry the operation (reoccurrence of this error during the retry causes Action 1). 

Action 5. This condition indicates the failing CCW can be retried. The CCH ERP identifies the failing CCW chain If the failure 
reoccurs during the retry operation, an operator message is issued and Action 1 follows. 



Figure 14. $$RAST05 Channel Check ERP Decisicr Tahles 
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3504, 3505 Card Reader, 3525 Card Punch 



Operation 


Termination 
Code^ 


Sequence Code 


000 


001 


010 


Oil 


100 


101 


110 


111 


Test I/O 




3 


2 


2 


2 


2 


2 


2 


2 


Feed-Stacker 
Select 




2 


5 


4 


2 


5 


2 


2 


3 


Print 




2 


5 


5 


4 


5 


4 


2 


5 


Write-Feed 
Stackers. 




2 


5 


5 


4 


5 


4 


2 


5 


Read-Feed 
Stackers. 




2 


5 


5 


4 


5 


4 


2 


5 


Other 
Commands 




2 


5 


5 


5 


5 


5 


2 


5 


* Recovery procedures for the 3504; 3505 and 3505 are termination code independent 


3540 Diskette Input/Output Unit 


Operation 


Termination 
Code* 


Sequence Code 


000 


001 


010 


Oil 


100 


101 


110 


111 


Read IPL 




2 


5 


5 


5 


5 


5 


2 


7 


Feed 




2 


5 


5 


5 


5 


5 


2 


7 


Define Ops 




2 


5 


5 


5 


5 


5 


2 


7 


Sense 




2 


5 


5 


5 


5 


5 


2 


7 


No-Op 




2 


5 


5 


5 


5 


5 


2 


7 


Seek 




2 


5 


5 


5 


5 


5 


2 


7 


Write Control 




2 


5 


5 


5 


5 


5 


2 


7 


Read Data 




2 


5 


5 


5 


5 


5 


2 


7 


write Data 




2 


5 


5 


5 


5 


5 


2 


7 


Test I/O 




3 


2 


2 


2 


2 


2 


2 


2 


* Recovery procedures for the 3540 Diskette are termination code independent. 



Figure lb. $$RAST06 Channel Check ERP Decision Tatles (Fart 1 of 2) 
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3886 Optical Character Reader 


















Operation 


Termination 
Code* 


Sequence Code 


000 


001 


010 


Oil 


100 


101 


110 


111 


Read 




2 


5 


3 


3 


5 


3 


2 


3 


Eject 




2 


5 


5 


3 


5 


3 


2 


3 


Scan 

No-op 

Load Line 
Mark Format 

Load Page 
Mark Format 

Sense 

Load Format 




2 


5 


5 


5 


5 


5 


2 


5 


Test I/O 




3 


2 


2 


2 


2 


2 


2 


2 


^Recovery procedures for the 3886 are termination code independent 



For an explanation of the termination and sequence codes see the 
section Termination and Sequence Codes' 

ACTION CODES 

Action 1. The channel is damaged and the channel user will be canceled unless he accepts unrecoverable I/O errors. If specified, control 
returns to the damaged channel user for further analysis. If the channel user is to be canceled due to a non-retryable or 
unrecoverable channel failure, the CCH ERP flags the ERPIB with a cancel code (X'FD'), saves CSW and CCW information 
for the user, and then returns to the CCH. The CCH then cancels the failing channel user. 

Action 2. Action 1 is taken followed by the CCH ERP. 

Action 3. This is a non-retryable condition. An operator message is issued by the CCH ERP, and Action 1 follows. 

Action 4. With this condition, retry is possible with manual repositioning by the operator. The CCH ERP issues an operator message 

and waits for a response to retry the operation (reoccurrence of this error during the retry causes Action 1). 

Action 5. This condition indicates the failing CCW can be retried. The CCH ERP identifies the failing CCW chain. If the failure 

reoccurs during the retry operation, an operator message is issued and Action 1 follows. 

Action 6. The device is repositioned and the CCW on which the error occurred is retried. (Reoccurrence of this error during retry 

causes an operation message, followed by Action 1.) 

Action 7. This condition Is treated as complete without error. Any statistics relevant to the occurrence of this condition are 

updated. 

Figure 15. $$RACT06 Channel Check ERP Decisicr Tatles (Fart 2 cf 2) 
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LOGOUT 
ADDRESS 



N 

OF 

N 



LOG 
LENGTH 



REC 
LENGTH 



N 

OF 

N 



LOG 
LENGTH 



REC 
LENGTH 



I 1 
i B i 
i ) 



I 



B j 



The Interface Segment is built by $$RAST01 or $$RAST02 to establish an interface 
for $$RAST08. $$RAST08 uses this area to determine the number, contents and 
lengths of the records to be built and recorded. The length of the Interface Segment 
is 2 + 3n bytes, where n Is the number of records to be recorded. 

A Start address of Machine Check or Channel Check Logout area. This field 

is updated by $$RAST08 when a record is built and written, to reflect the 
start address of the logout information to be included in the next record. 

For every record that Is to be built and recorded a three byte entry B - C - D is built. 

B - First N is record sequence number, while second N is total number of records. 

C - Total number of bytes to be moved (by $$RAST08) from the logout area 
into the record associated with this entry. 

D - Total length of the record associated with this entry. 

$$RAST08 builds and records the record associated with the first three byte entry 
B - C - D. Then, if there are more entries, the first entry is overlaid by the second, 
the second by the third, etc. Then $$RAST08 continues to process the first entry. 

Figure 16. Interface Segirert fcr $$RAST01, $$RAST02, arc $$RASTO^ 
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CHAPTER 4: RECOVEBY Ki^NAGEMENT SUFPCRT RECCRDER (RMSR) 



RMSR increases 
writing record 
the Recorder F 
exairination an 
it is possible 
requirements f 
This early war 
spent in errcr 
iraintenance wh 
be in operatic 



system availafcility by 
s of environrrental data en 
ile (IJSYSRC). Through 
d analysis of these records, 

to anticipate service 
or the affected devices, 
ning can reduce the tiire 

recovery and unplanned 
ile the system is supposed tc 
n. 



RMSR is standard except fcr the Models 
115 and 125. Supervisor generaticr option 
CHAK=YES or RMS=YES specified causes RMSR 
support to be generated for these models. 

RMSR writes the following record types 
on the recorder file: 

• Machine Check (key=X'10M 

• Channel Check (key=X'20') 

• I/O Device Records 

Ty£e_l (key=X'30') 

Unit Check condition - a record written 
because an irrecoverable errcr (hard 
error) occurred. 

Device ECD (See $JOBCTLM in CCS/VS__IPL 
and Job Ccntrcl Logic.) - For each 
non-teleprocessing device that has 
statistics accumulated in its PUE2 
table, a record is written after a ROD 
command was issued. For tape drives 
(2400, 3410, and 3420) that have a 
volume open, no Device ECD record is 
written even though statistics may be 
accumulated, as statistics fcr these 
devices are kept by volume. For 3330 
and 3340 devices that have statistics 
accumulated, a type 3 (key=X'91') record 
is written. To write the records or the 
recorder file an SVC 44 is issued by 
$JOECTLM. $$AEERA3 is fetched to 
perform the actual recording. 

Volume Dismount (built by $$ECFEN and 
$$BCPEND; see DOS/VS LICCS Logic, 
Vol. 1) - a record is written fcr the 
previously mounted volume, when a new 
tape or disk volume is mounted and the 
system detects the change. To write the 
records on the recorder file, an SVC 44 



is issued by the cpen phase. $$AEERA3 
is fetched to perform the actual 
reccrdirg. 



SVC-requested - a record is written 
because an SVC 44 is issued after data 
has been built as input. 

Counter Cverflow - a record is written 
because at least cne cf the statistical 
data counters has filled up. 

Type 2 (key=X'34' ) 

Teleprocessing Access Method builds 
records, and requests service. 

Ty£e_3 (key=X'91') 

Miscellanecus Data Recording (MDR) 
record fcr nonstandard unit check type 
records . 

• System ECD (key=X*8C\- see $JOBCTLM 
in DCS/VS IjgL §gd^ Job Control Logic ) 
- Vihen a ROD ccmmard is issued and if 
ERRLCG=RDE was specified, during 
system generation the cperatcr is 
asked whether it is 'END CF DAY'. If 
his reply is 'Y* a System ECD record 
is built by $JCECTIM. To write the 
record on the recorder file, $JOBCTLM 
issues an SVC 44. $$AEERA3 is 
fetched to perform, the actual 
recording. 



• IPI (key=X'50«; see $JCBCTLM in 

DCS/VS IPL and Job Contrcl Logic ) ~ 
An IPL record is built after IPL by 
$JCECTLM if ERRLCG=RDE was specified 
during system generation. $JOBCTLM 
issues an SVC 44 to write the record 
en the recorder file. $$AEERA3 is 
fetched to perform the actual 
recording. 

Each of the records contains a standard 
24-byte header, and most have a data area 
following the header. Fcr record formats 
en the recorder file, see Figures 24 to 55. 
The formats cf the records net built by the 
phases that are described in this manual 
are also included. 
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Phase name 



Function 



T 1 

Frcgrair 
Level 
Chart ID 



4- 



H 



$$ABERAA 

$$i^.EERAl 
$$AEERA2 

$$AEERA3 

$$hBERM 

$$AEERA5 

$$AEERA6 

$$AEERA7 

$$AEERRJ 

$$ABERJ1 

$$AEERRK 

$$AEERRP 

$$AEERRQ 

$$RAST01 
$$RAST08 



Updates the stati 
3410, and 3420 ta 
Records I/O devic 
RD^SR message writ 
recorder file. 
Writes records en 
recorder file en 
Builds I/C device 
and 3211, 3504, 3 
Builds I/C device 
(type 1 or 3, key 
Sets OS/VS device 
$$AEERRK. 
Builds I/C device 
X'91') . 

Updates the stati 
(except 3330 and 
cartridge reader. 
Builds I/C device 
Diskette I/O unit 
and 3525) and 249 
Builds MDR (Misce 
1: FCB, FLB and 
Builds MDR (Misce 
2: UCB records). 
Builds machine ch 
Builds and record 
recorder file. 



stical data counters in the PUB2 Table fcr 24CC, 

pe devices. 

e records on the re 

er. Issues message 



ceccrder file. 

les regarding the status of the 



the recorder file 
SVC 44 request. 

records for 2400, 
505, and 3525 unit 

records for ETAM 

X«3C' or X'91«) . 

class and type co 

records for 334C 

stical data counte 
3340), unit record 



and enqueues or dequeues 

3410, and 3420 tape devices 
record devices, 
(type 2, key X'34') or 3330 

de in record. Called only by 

(type 1 or 3, key X'30' or 

rs in the PUE2 Table fcr DASE 
devices, and 2495 tape 



(except 3330 and 3340), 3540 

.ces (e3<c€pt 3211, 35C4, 35C5, 
reader. 

:rding) records for 3211 (phase 



records for DASE 
, unit record devic 
5 tape cartridge re 
llanecus Data Recci 
FCAR records) . 
llanecus Data Recording) records fcr 3211 (phase 



eck and channel ch 
s machine check an 



eck records. 

d channel check records on the 



07 

06,07 
06,07 



07 

06 

06,07 

06,07 

06,07 

06,07 

07 

07 

04,05 
04,05 



Figure 17. RMSR A- and R-transient programs 



The supervisor portion of RMSR consists 



of: 



• The resident routines. 

• The A-transients $$ABERAA, $$AEERA1, 
$$AEERA2, $$ABERA3, $$AEERA4, $$ABERA5, 
$$AEERA6, $$AEERRA7, $$AEERRJ, $$ABERRK, 
$$AEERRP, and $$ABERRQ. 

• The R-transients $$RAST01 and $$RAST08. 
Eesides other messages, $$RAST11 gives 
also information regarding the status of 
the recorder file. 

The following functions of RMSR involve A- 
or R-transients and are described in the 
following sections. 

• Unit Check Statistical Data Recording. 

• Machine Check and Channel Check 
Recording. 

• SVC 44 requested recording on the 
recorder file and en- and dequeuing of 
the recorder file ($$ABERA3). 



• ETAM Recording ($$AEERAb) . 



UNIT CHECK STATISTICAL DATA RECCRDING 



The unit check statistical data functions 
build and write unit check and counter 
overflow records. The customer engineer 
may request specific errors to be recorded 
through the use of the MCDE command (see 
DCS/VS Logical Transients_ Logic ) . 



The supervisor, through the ERP task 
routine, selects the proper RMSR 
A-transient for initial entry into unit 
check handling. Charts 06 and 07 provide 
an overview of unit check handling. The 
text in the following twc sections 
accompanies these charts. 
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RMSR/ERP FUNCTIONAL FLCW FCR UNIT CHECK 
TYPE ERRORS CN DISK DEVICES 



(Nuirbers refer tc Chart 06.) 



The CSW and the s 
in the last error 
the error Queue f 
initialized. The 
set if the addres 
coirinand is availa 
Allow Ignore bit 
user is not speci 
control is passed 
error recovery ro 
apply tc prcgrain 
or device not ope 
case the ERP task 



ense tytes are placed 

queue Entry. Also 
lag byte ERQFLG is 

allow retry tit is 
s of the failing 
ble. Cthervvise, the 
is set. If return to 
fied in the CCE, 

to the resident disk 
utine. This does not 
or prctecticn check, 
rational, in which 

will be activated. 



If an error occurs while reading the 
sense bytes, the message code x'20' (error 
on recovery) is posted in the Errcr Queue 
Entry. The unit check status is cleared. 

2. The disk errcr recovery routine 
determines the error type. Fcr initial 
soft (retriable) errors, the 
statistical data counters in the PUB2 
Table are to be updated (by $$AEERRJ) , 
unless the error is on SYSRES, SYSVIS, 
or the device is a 3340. The Error 
Queue Entry for this errcr is completed 
and the ERP task is activated. Byte 
ERQMSG of the Error Queue Entry 
contains C'S* to indicate that this is 
a soft error that is tc be retried. If 
the device is a 3330, this recording is 
not done for all soft error conditions. 
For a 3340, recording is dene fcr all 
soft errcr conditions. 

For hard errors (errors that still 
persist after a specified number cf 
retries, or that are not tc he retried at 
all and not to be ignored) the ERP task is 
activated. 

For soft errors that are not tc be 
recorded, and for errors that are tc be 
ignored, appropriate branches are taken to 
resident routines. 

3. When the ERP task is dispatched, 
$$AEERRJ is loaded into the PTA. For 
the Models 115 and 125 withcut RMSR, nc 
recording is performed and the ERP 
Monitor $$AEERRA is fetched. 

4. $$ABERRJ checks for which device it was 
entered. For devices requiring no 
statistics updating or nc recording. 



exit is immediately taken tc $$AEERRA. 
Fcr unit record devices exit is taken 
to $$AEERJ1. 

If the device is a 3330 or 3340, nc 
counters are updated, tut exit is taken 
immediately tc $$AEERA5 or $$AEERA7 (soft 
errcr) or tc $$AEERRA (hard errcr) . This 
is because of the presense of hardware 
counters in the control unit. $JOECTLJyi and 
$$EECJ7 may update the counters in the PUB2 
table entry (net 3340). 

If the device is a 2314, the module ID 
in the sense bytes may net be equal tc the 
ID in the PUB2 table entry, because cf a 
swapped mccule ID plug. If this is the 
case, and any statistics were accumulated 
in the PUE2 table entry, control is passed 
immediately to $$AEERRK to have a counter 
cverflcw record built and recorded on the 
recorder file. The RFEXIT field cf the 
recorder file table (RFTAELE) is set tc 
C'RJ' in order to cause recall cf this 
mcdule after reccrdirg. Then the 
statistical counters will have been cleared 
(by $$AEERRK) . The new mcdule IE will be 
set in the PUE2 Table, and the errcr will 
he accumulated. 

After the updating, a test is made to 
determine whether reccrding en recorder 
file is required. (For the Model 125, 
devices recorded by hardware nc recording 
mode is set by IPL.) If not, exit is taken 
tc $$AEERRA (hard errcr) cr tc resident 
routines fcr retry (soft errcr). If 
reccrding is tc be performed, ccrtrol is 
passed to $$AEERRK. This is the case when 
the follcwing conditicns exist: 

• The device is in diagrcstic mcde, the 
lim.it count is not reached, and this 
errcr was selected by the CE via the 
MCDE command. 

• The device is in intensive mode, the 
errcr is initial, the limit ccunt is not 
reached, and this errcr was selected by 
the CE via the MODE command. 

• A counter in the PUE2 Table is full. 

In the first two cases bit RECDERR (X'40') 
in RFIAGS3 is set and the limit ccunt is 
reduced by one. In the third case, bit 
RECDSF (X'20') is set. 

If it is found that the device is in 
diagnostic cr intensive mcde and the record 
limit has been reached (equal tc zero) , the 
device is reset to normal mode. 
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Chart C6. RKSR/ERP Functicnal Flcvv for Unit Check T^pe Errors en Disk Devices 
(Fart 1 of 2) 



Sense SUBRTN 



Get Sense data from 
Control Unit 



Unit Check RTN 



Build Error Queue 
Entry 

Program Check, Pro- 
tection Check or 
Dev. not operational 



Otherwise 



I 



ERPTASK 



^If no RMSR 
"(Model 115,125) 

Otherwise 



Disk ERP RTN 



Determine error type 

Initial soft error not on 
SYSRES, if system sup- 
ports RMSR 

*Hard errors 

Otherwise branch to 
INITRG for retry 





































■~~~ 


^ 
















^ 


I 




♦ 












$$ABERRK MA 
$$ABERA6 MG 




$$ABERRJ MP 
$$ABERJ1 MM 




$$ABERA5 ME 




$$ABERA1 MK 
$$ABERA2 MQ 








If any statistics 


Build Counter 


Soft error on 333C 
Soft error on 334C 


\ 






accumulated build - 
required record and 
reset statistics 

Build Unit Check 
or MDR Record 




Write record on SYSR EC 
and if necessary 
write message 
on SYSLOG 


Overflow record and reset 






n 










_J 


statistics 


5 






3340 

■ Device not in recording 
mode 




t 






10 




$$ABERA 1 MK 




1 




Write record on SYSR EC 


r 


2314 with s 


wapped 
plug 


u. 










s 


module ID 




SSABERA 1 MK 




-Normal condition 
Abnormal condition 








Update Statistics 
in PUB2 Table 

Device in diagnostic 




$$ABERA7 MH 




'■^ 




6 




Build Unit Check 






SYSREC 






t 




or MDR Record 






Normal condition^ 
Abnormel cond. 


"9" 






10 




$$ABERA2 MQ 















t 






,., 










Write proper 








$$ABERA2 MQ 






message on SYS LOG 


7 


of tha above 
conditions 

Hard error with 
none of the above 










$$ABERRK MA 
$$ARERAfi MG 




Write proper messa 
on SYSLOG 


ge 
















9 








Build Unit Check Cond. 
or Counter Overflow 
Record and 












4 
















y 


F 
\ 










reset statistics. 




.. ^ . ^ II 




-^ r 




8 




NO / S( 


nt \ 








X^^Er 


or^ 




>i 






X-^ II 






II 








\ 


f 






r 




06.2 




ERPEXITRTN 




"^y 


Dequeue Error 
Queue Entry and 
branch to routine 
for error retry 
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Chart 06. RN.SR/ERP Functional Flcv? for Unit Check Type Errors on Disk Devices 
(Fart 2 of 2) 



^ 



$$ABERRA 



MW 



Error on recovery. 
Devic e not oper., 
Prot. or Prog. Check 

None of the above — 



11 



$$ABERRB 



MY 



Analyze error type 
Post applicable 
msg code in Error 
Queue Entry 

If Data Check 
post CCB 



NO 




12 



3330 

or 
3340 



YES 



$$ABERRK 
$$ABERA6 



MA 
MG 



Analyze message Code 
and build Unit Check 
Condition Record if 
required. 

Exit to ERP message 
writer if no record is 
required or if Model 
125 without RMSR 



13 



RMSR Phases 



$$ABERA 1 



MK 



Write record on SYSREC 



Normal Condition 
Abnormal Cond. 



14 



$$ABERA2 



MQ 



Write proper 
message on 
SYSLOG 



14 



$$ABERA7 (3340) MH 



$$ABERA5 (3330) ME 



Analyze message 
code and build 
Unit Check Cond. 
record if required 

Exit to ERP msq 
writer if no record 
is required or if 
Model 125 without 
RMSR 



13 



ERP message writer 



Issue ERP message 

Analyze operator 

reply 

Set up for ignore 

retry, or cancel. 

(See ERP message 
writer, Chart 03) 



ERPEXITRTN 



Dequeue Error 
Queue Entry 
and take 
appropriate 
branches for 
ignore, retry 
or cancel 
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Ihis transient also sets the RFEXIT 
field of RFTi^EIE^ which will be used later 
to determine the exit froir this cr 



•Fi^l 1 



now 



ig tr 



+-'va-i^c'T ^=ir>-l-c:» 



4A. $$AEERJ1 updates the appropriate 
statistical data counters cf the 
affected device in the PUE2 tatle entry 
for unit record devices. 

5. $$ABERRK builds a counter overflow 
record and resets the statistics in the 
PUB extension. $$ABERA6 adds the CS/VS 
device class and type code to the 
record. 

6. $$ABERA1 reads the Recorder File header 
record and determines whether the 
record passed to it will fit in the 
file. If so^ the standard 24-tyte 
header is built and the reccrd is 
appended to it. The reccrd is now 
written on the next available space in 
the file, and the recorder file header 
record is updated and rewritter to the 
file. SVC 76 is used to write the 
record. If DOS/VS runs under Viyi/370, 
VM/370 will take over and handle the 
recording. If VM/370 is net active, 
SVC 76 has the same effect as SVC 15. 
(See also "J\-- and R-transient 
Supervisor Calls" in "Chapter 1, 
Introduction" . ) 

This phase passes normally ccntrcl to the 
transient specified in the REEXIT field. 
For the following conditions, control is 
passed to $$i^BERA2 to write a message en 
SYSLCG: 

• I/O~error while accessing the recorder 
file. 

• Recorder file is full. 



10. $$I^.BE'RI^.5 , using the sense bytes, builds 
a unit check condition reccrd (type 
X'30') if the errcr is equipment check. 
For other errors, a miscellanecus data 
reccrding reccrd (type X"91') is built. 

If there are any statistics in the 
statistical data counters in the PUB2 table 
entry, the reccrd is built using these 
statistics. The counters are cleared and 
the Kcdule ID in sense byte ^ is copied 
into the FUB2 table entry. $$AEERA1 is 
called to ^rite the reccrd cr the recerder 
file. The RFEXIT field is set to cause 
recall cf $$AEERA5, which will then perform 
the functien described abcve, as all the 
ccunters contain zero. 

11. $$.AEERRA is the ERP monitor. (See 
chart 02.) Control is passed to 
$$AEERA5 (3330), $$AEERA7 (3340) or 
$$AEERRK (other disks) fcr the 
fcllcvving errcr ccnditicrs: error on 
recovery, device net operational, 
program check or protection check. In 
the case cf prcgram cr protection 
check, the bits allow ignore and allow 
retry of ERQFLG (see item 1) are set to 
zero . 

Fcr other error conditions on disk, 
$$AEERRA exits to $$AEERRE. 

12. $$AEERRB analyzes the errcr ccndition 
and moves the appropriate message code 
to ERQF.SG in the errcr queue entry. 
For 3330 or 3340 devices, control is 
passed to $$AEERA5 or $$AEERA7, 
respectively fcr ether disk devices, tc 
$$AEERRK. I 

For the following eonditions, the Allow 
Ignore and Allow Retry bits in ERQFLG are 
set to zero: 



Last track of the recorder file is being 
used. 



Write assumed en disk with read-only 
sv^itch en. 



If the recorder file is not open and ready 
or is being accessed by EREF, exit is taken 
without recording. 

7. At this stage, the folloviing messages 
may be printed on SYSLCG: 

OTOOI LAST TRACK ON RECCRDER FILE 
0T03I ERROR ON RECCRDER FILE AT (cchhr) 
0T05I RECORDER FILE FULL—RUN EREP 

8. See item 5. A unit check ccndition 
record or a counter overflow record is 
built. 

9. See items 6 and 7. Control is passed, 
according to the contents of the RFEXIT 
field, either to resident routines fcr 
retry (scft error) or to $$ABERRA (hard 
error) . 



• File prctection violatec^* 

• Command reject. 

For data checks, the CCB is posted and if 
the user has return specified in the CCB, 
the PASSEK switch in ERCFLG is posted to 
indicate this situation tc the ERP m,essage 
writer. 

13. Except for the conditions specified 

belcw a unit check ccrditicn record is 
built by $$ABERA5 (3330), $$AEERA7 
(3340), cr $$AEERRK and $$ABERA6 (other' | 
disk devices). $$AEERRK also resets 
the statistics in the PUE2 table entry. 



Fcr the Models 115 and 125 if no RMSR is 
generated during system generation, or if 
devices are recorded by hardware, no 



I 
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recording is performed. This phase exits 
iirrrediately to the ERP rressage vvriter. 

The message code is tested ard an 
im.mediate exit to the ERP message v^riter is 
taken for the follo^^ing codes: 

X'08' - Intervention required 

X'17' - File protect violation 

X*18' - Command reject 

X'2U' - Program check 

X'25' - Protection check 

X'26* - Seek address not valid 

X'31' - Device not operational. 

14. See items 6 and 7. Exit is taken tc 
the transient specified in the RFEXIT 
field, \^hich in this case is $$AEERRL, 
the first module of the ERP message 
writer. 



RMSR FUNCTIONAL FLOW FOR UNIT CHECK TYPE 
ERRORS ON DATA CELL, TAPE AND UNIT RECORD 
DEVICES 



(Numbers refer to Chart 07.) 

1. The CSVi and the sense fc;ytes are placed 
in the last error queue entry. Also 
the error queue flag byte EBQ^flG is 
initialized. The Allow Retry kit is 
set if the address of the failing 
command is available. Otherwise, the 
Allow Ignore bit is set. If return to 
user is not specified in the CCE, the 
ERP task will be activated. 

2. For tape devices, excluding 2495 Tape 
Cartridge Reader, $$ABERAA is loaded 
into the PTA. For data cell and unit 
record type devices, including the 
2495, $$ABERRJ is loaded. 

For the Models 115 and 125 with nc RMSR 
generated during system generation, the 
RMSR phases are bypassed. 

3. $$ABERAA updates the appropriate 
statistical data counters in the PUB2 
table entry for the device. 

First the counters for temporary read and 
write errors are updated. If a threshold 
value is reached, the RFEVA hit (X'08') in 
RFFLAGS2 is set to indicate that ar EVA 
(Error Volume Analysis) message is 
required. 

After the updating, a test is made to 
determine whether recording en the recorder 
file is required. If so, control is passed 
to $$AEERA4. This is the case when the 
following conditions exist: 



• The device is in diagnostic mcde, the 
limit count is not yet reached, and this 
error was selected by the CE via the 
MODE command. 

• The device is in intensive mcde, the 
error is initial, the limdt ccunt is not 
reached, and this error was selected by 
the CE via the MODE command. 

• A counter in the PUE2 table is full. 

In the first two cases, bit RECDERR (X'40') 
in RFLAGS3 is set. In the third case, bit 
RECDSF (X'20'). The limit ccunt is reduced 
by one. 

If nc recording is tc be done, the RFEVA 
bit is tested. If or, $$AEERRA2 is called 
tc write an EVA message en SYSLOG, 

If nc record or message is tc be 
written, this phase exits to the first of 
the tape ERP transients. 

If it is found that the device is in the 
diagnostic or intensive mode and the record 
limit has been reached (equal tc zero), the 
device is reset to normal mode. 

This transient also sets the RFEXIT 
field of recorder file Table, which will be 
used later to determine the exit from this 
or following transients. 

4, $$AEERA1 reads the Recorder File header 
record and determines whether the 
record passed to it will fit in the 
file. If so, the standard 24-byte 
header is built and the record is 
appended to it. The record is now 
written on the next available space in 
the file and the header record is 
updated and rewritten tc the file. SVC 
76 is used to write the record. If 
ECS/VS runs under VM/370, VM/370 will 
take over and handle the recording. If 
VM/37C is not active, SVC 76 has the 
same effect as SVC 15. (See also "A- 
and R-transient Supervisor Calls" in 
"Chapter 1, Introduction".) 

This phase normally passes ccntrcl tc the 
transient specified in the RFEXIT field. 
Fcr the fcllowing corditicns, control is 
passed to $$AEERA2 to write a message en 
SYSLCG: 

• I/O-errcr while accessing the recorder 
file. 

• Recorder file is full. 

• Last track of ^ the recorder file is being 
used. 

If the recorder file is rot cpen and ready 
cr is being accessed by EREP, exit is taken 
without recording. 
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Chart 07. RI^SR Functional Flow for Unit Check T;ype Errors for Data Cell^ Tape and Unit 
Record Devices (Fart 1 of 3) 
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chart 07* BKSR Functional Flew fcr Unit Check Type Errcrs fcr Data Cell, Tape and Unit 
Record Devices (Fart 2 of 3) 
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Chart 07, RWSR Functicnal Flow fcr Unit Check T^^pe Errors for Data Cell, lape and Unit 
Record Devices (Fart 3 of 3) 
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At this stage, the follcv(iiEg iressages 
rray be printed on SYSLCG : 



OTOOI LAST TRACK ON RECORDEB FILE 
0T03I ERROR CN RECORDER FILE AT (cchhr) 
0T05I RECORDER FILE FULL--RUK EREF 
UEIOI xxxxxK cuu TR=nnn TW=nnn SIC=nnnnn 

6. See Chart 02, Device ERF functional 
flow. 

7. Usually the device is in recording mode 
(devices on the Model 125 vvhich are 
recorded by hardware - CHAN=YES - are 
set to non-recording nicde by IFL) and 
$$AEERRJ updates the statistical data 
counters in the PUE2 table entry fcr 
the device, except for the 3 886 OCR 
Reader. In the latter case exit is 
taken to $$AEERRA without updating the 
counters, as this function is perfcrrred 
by the 3886 ERP, $$ABERAN. 

After the updating, a test is trade to 
determine whether recording en the recorder 
file is required. If this is not so, exit 
is taken to $$ABERRA. If recording is to 
be performed, control is passed to $$AEERA4 
(3211) or $$ABERRK (other devices). This 
is the case when the following conditions 
exist: 

• The device is in diagnostic ircde and the 
limit count is not yet reached. 

• The device is in intensive ircde, the 
error is initial, and lirrit count not 
reached. 

• A counter in the PUE2 table is full. 

In the first two cases, bit RECEERR (X'40') 
in RFFLAGS3 is set and the lirrit count is 
reduced by one. In the third case, bit 
RECESG (X»20') is set. 

If it is found that the device is in the 
diagnostic or intensive mode and the record 
limit has been reached (equal tc zero) , the 
device is reset to normal mode. 

This transient also sets the RFEXIT 

field of RFTABLE, which will be used later 

to determine the exit from this or 
following transients. 

8. $$ABERRK builds the required unit check 
condition or counter overflow record 
and resets the statistics in the PUB2 
table. $$AEERA6 adds the CS/VS device 
class and type code to the reccrd. 

$$AEERA4 builds the required reccrd when 
the device in error is a 3211. Vvhen this 
record is handled, control is passed net tc 
the ERP miOnitor $$AEERRA, but to the 3211 
ERP transient $$ABERRF. 



9. See items 4 and b . The nessage 4E10I 
cannot be printed at this stage. 

10. $$AEERRA is the ERP monitor. (See 
Chart C2) control is passed tc $$AEERRK 
for the following error conditions: 
error en recovery, device net 
operational, program check or 
prctection check. Ir. the case of 
program or protection check cr device 
net cperational, the tits allow ignore 
and allow retry of ERQFLG (see item 1) 
are set to zero. 

Fcr other error conditions, this transient 
analyzes the device type and exits tc the 
proper ERF transient. 

lie If the error is to be retried cr 
igncrec, ccntrel is returned tc 
resident routines. If the error still 
persists after a specified number of 
retries or is not tc be retried cr 
ignerec, exit is taker tc $$AEERA4 
(3211, 3504, 3505, 3525, and 3886, and 
tape devices except 2495) cr $$ABERRK 
(unit record devices except 3211, 3504, 
35C5, 3525, and 3886). 

Before passing ccntrel tc the superviser cr 
tc the ERF message writer, the 3886 ERP 
phase $$AEERAN determines whether recording 
is required. If this is the case, control 
is passed to $$ABERA4. Otherwise, control 
is passed directly tc the superviser cr the 
ERP message writer. 

12. Except for the ccnditions specified 

belcw, a unit check cenditicn reccrd is 
built by $$ABERA4 or by $$AEERRK and 
$$AEERA6. The statistical data 
counters in the FUE2 table entry are 
reset . 

Fcr the Models 115 and 125 with nc RMSK 
generated during system generation, nc 
recording is performed. This phase exits 
immediately tc the ERP message writer. 
This is also true for devices en the Model 
125 recorded by hardware (CHAN=YES). 

The message cede is tested, and an 
immediate exit is taken tc the ERP message 
writer (cr to $$AEERRP when the device is a 
3211) for the following codes: 

X'08' - Intervention required 

X'17' - File protect violation 

X'18' - Command reject 

X'22' - Eallast cell 

X'23' - Blank strip 

X'24' - Pregram check 

X'25' - Prctection check 

X'26' - Invalid seek address 

X"29' - Backspace to load point 

X'31' - Device net cperatienal 

X'32' - Ken-compatible tape en drive 

X'3U' - Batch numbering switch eff. 
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Cn a Model 115 or 125 without RKSR, this 
phase also exits immediately to the ERF 
iressage writer. 

13. See iteirs 4 and 5. The iressage 4E10I 
cannot be printed at this stage. 

14. Ey inspecting the sense bytes, $$AEERRF 
first determines which type of 3211 
Miscellaneous Data Reccrding record cr 
records (type X'91') are tc be built by 
this phase and $$AEERRQ. It uses the 
switches REPLE (bit 1) , RFFCE (bit 2) 
and RFUCE (bit 3) of RFFIAGS4 in 
RFTAELE to register which reccrds are 
to be prepared. 

A Forms Control Buffer Off-Icad reccrd 
(RFFCB on) is required for the following 
error conditions: 

• FCB parity check 

• load check on 'FCB Load' command 

• Data check with line positicn. 

A Print Line Buffer / Check Read Buffer 
Cff-Load reccrd (RFPLB on) is required for 
the following error conditicns: 

• Mechanical motion 

• Data check without line pcsiticn 

• Data check with line positicn and print 
check 

• FLB parity check 

• Coil protection check 

• Hammer fire check, 

A Universal Character Set Buffer Cff-Lcad 
reccrd (RFUCE on) is required for the 
following error conditions: 



which a print error check occurred, are 
saved. The check infcrmaticr and the first 
ten PLB error positions are contained in 
the FIE reccrd (Figure 42) . 

Tc build the FCB reccrds, $$AEERRP first 
issues a Diagnostic Gate command, followed 
by a Check Read command, tc cbtain the 
eight bits of the Forms ccntrcl Address 
Register. If the FCAR is at pcsiticn 1, 
the FCB record is built and written in two 
parts (Figure 43). They contain the FCAR 
and the carriage codes obtained frcm the 
FCB by issuing the Read FCB command. 

If the FCAR is not at pcsiticn 1, the 
Read FCB command is not issued, to avoid 
misalignmert cf the fcrms. Cnly cne FCB 
record is built and written- This reccrd 
dees net ccntain the carriage cedes (Figure 
44). 

15. $AEERRC builds (and $$ABERA1 writes) 
the UCSB reccrd in three parts (Figure 
41). They contain the contents cf the 
Universal Character Set Buffer, 
obtained by using the Read UCSB 
command. See alsc items 4 and 5. The 
message 4E10I cannot be printed at this 
stage . 

16. The 3211 ERP transient $$AEERRF uses 
bit 4 (X'08') of RFFIAGS4 of RFTAEIE to 
indicate that the errcr is tc be 
ignored. When the 3211 MDR transients 
have completed their work this bit is 
tested. When on, exit is taken to 
residert routines. When cff, control 
is passed to the ERP message writer. 



• Load check on 'UCSB Load* command 

• Mechanical motion 

• Data check without line pcsiticn. 

• Data check with line position and print 
check 

• UCB parity check. 

After the sense bytes have been inspected 
and the RFFLAGS4 flag byte has been 
initialized, this flag byte is used to 
determine which MDR records are tc be built 
and written. The PLE/Check Read Euffer 
Off-Load and FCB Off-Load records are built 
by $$AEERRF. $$ABERRQ builds the UCSB 
Off-Load records. Every time a reccrd is 
completed, $$ABERA1 is called tc append it 
to the standard 24-byte header and to 
writer it on the recorder file. 



MACHINE CHECK AND CHANNEL CHECK RECORDING 



Recording cf these reccrds is performed by 
the R-transients $$RAST01 and $$RAST08. As 
this function is closely associated with 
the machine check and channel check 
recovery function, the description is 
included in "Chapter 3, Machine Check and 
Channel Check Handling". 



1£ 44 REQUESTED RECCRDING AKD ENQUEUING 
NdIdE£UEU3 
($$AEERA3T"' 



AND DEfiUEUING CF THE RECORDER FILE 



To build the PLB record a Check Read 
comimand is issued to read check infcrmation 
stored in each addressable pcsiticn of the 
PLB. Then a Read PLB commiand is issued to 
read in data from the FLB. The check 
infcrmation is scanned for error 
conditions. A maximum of 10 characters, on 



SVC 44 is used for twc functions: 

• Tc write records cn the recorder file 
from, outside the A- or R-transient area. 

• To enqueue or dequeue the recorder file 
fcr use by EREP. 
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1, Some phases (for example, $$ECFEN, 

$$EOPEND, and $$BECJ7) use SVC ^^ tc 
request recording from outside the i?^- 
cr R~Transient Areas. Vihen the 
resident routine that processes the SVC 
U4 request passes control tc $$AEERA3, 
the following interface exists: 



The first fullword in the erro 
entry (fcuilt for this request 
resident routine) contains the 
minus 4 of the record tc be wr 
The next six bytes contain the 
following interface infcriratic 
length of record to be written 
type code, the two reccrd-depe 
switches (each one byte), and 
address of the PIB of the requ 
(halfword) . See also Figure 3 
of Error Recovery Block and Er 
Entry. 



r queue 
by the 

address 
itten. 



record 
ndent 
the 
estor 
, Format 
ror Queue 



$$AEERRA3 reads the Recorder File 
header record and determines whether 
the record passed to it will fit in the 
file. If so, the standard 24-byte 
header is built and the data portion is 
appended to it. The record is now 
written on the next available space in 
the file, and the header record is 
updated and rewritten to the file. If 
the data portion consists cf mere than 
176 bytes, only 176 are actually 
written. To write the reccrd SVC 76 is 
used. If DOS/VS runs under Viyv370, 
VM/370 will take over and handle the 
recording. If VM/370 is net active, 
SVC 76 has the same effect as SVC 15. 
(See also "A- and R-transient 
Supervisor Calls" in "Chapter 1, 
Introduction. ") 

This phase normally returns control 
to the resident routines. Fcr the 
following conditions, ccntrcl is first 
passed tc $$AEERA2 to write a message 
on SYSLCG: 

• I/0-error while accessing the 
recorder file 

• Recorder file is full 

• Last track of the recorder file is 
being used. 

If the recorder file is not open and 
ready or is being accessed by EREP, 
exit is taken without recording. 



The four-byte interface area is set 
up by the user before issuing the SVC, 
and is saved in the second fullword of 
the error queue entry by the resident 
SVC 44 routine. 

Upon return of control, the user may 
inspect the third byte cf his interface 
area, which has been set up by $$AEERA3 
as a flagbyte: 



Eit C 
Bit 1 



X'80' 
X'40' 



Eit 2 X'20' - 



Operaticn complete 
I/C error while 
accessing the recorder 
file 

SVC issued before the 
file was opened, or 
while EREP accesses the 
file (see below). 



To prevent RMSR ( 
from accessing th 
EREP is processin 
enqueuing of the 
this is the case, 
the fcur-byte int 
above) contains X 
X'C4' (dequeue), 
posting bit 2 (X' 
the RFTABLE. It 
the key of the pa 
is running. 



$$AEERA1 and $$AEERA3) 
e recorder file while 
g it, EREP requests 
file via SVC 44. When 

the second byte of 
erface area (see 
•C5' (enqueue) or 

Enqueuing consists of 
20*) in RFFLAGS2 in 
also involves storing 
rtiticn in which EREP 



ETAM RECCRDING ($$ABERA5) 



A ETAM channel appendage routine may return 
tc the I/C interrupt handler with a 
recording request. When the request is 
serviced, control is passed directly tc 
$$AEERA5. 



A ETAM (type 2, key X'34') 
record is to be built. The fi 
bytes cf the error queue entry 
following information: flags, 
ccunt, errcr count, device typ 
each) and the terminal name (f 
See also Figure 3, Format cf E 
Elock and Error Queue entry, 
passes ccrtrol to $$AEERA1 tc 
standard header and write the 
$$AEERA1 returns ccntrcl tc th 
(ignore exit) . 



I/O Device 

rst eight 
contain the 
transmission 

e (one byte 

cur bytes) . 

rrcr Recovery 

$$AEERA5 

add the 

record. 

e supervisor 
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Beciiral 
Displacement 



Label 



T 'T 

Eyte 
Length 
-+ 



RFTAELE 
KFFLAGSl 



RFFLAGS2 



RFFLAGS3 



RFFLAGSa 



RFFLAGS5 
RFNOFN 



Eescripticr 



Label of Starting Address 

Eit 0: l=Fil€ full 

1: 1=REE option included 

2: l=Iritial IFL 

3: Reserved 

4: l=File is tc te created 

5: l=File has been created 

6: Reserved 

7: l=File open and ready 

Eit 0: l=File full rressage request 

1: l=Last track nessage request 

2: 1=I/C error iressage request 

3: l=Data lest iressage request 

4: 1=EVA message request 

5: l=File cwned ty RTA recorder 

6: l=File owned by PTA recorder 

7: l=Fil€ being accessed by FREE 

Eit 0: l=Last track iressage issued 

once 
1: l=Errcr is tc be recorded 
2: l=Short forir record request 
3: l=Individual records for 

unlabeled tapes 
4: Reserved 
5: Reserved 
6: l=E5<it to $$ECMT05 indicator 

for $$BCPE1S 
7: l=E3<it to $$ECMT01 indicator 

for $$BCPEK 

Vvork area switches for 
various transients including 
ETAK 
Eit 0: l=irultiple records required 
(3211 recording) 
1: 1=PLE record required (3211 

rec. ) 
2: 1=FCE reccrd required (3211 

rec. ) 
3: 1=UCE reccrd required (3211 

rec. ) 
4: l=igncre exit requested (3211 

rec. ) 
5: net used 
6: net used 
7: l=r€Cord not written 

Reserved 

N of N records (low crder 4 bits 
contain the number of records to be 
recorded and high order ^ bits 
contain the number of the record 
being prccessed) 



Figure 18. Recorder File lable (^jij^B^E) (Fart 1 of 2) 
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Eeciiral 
Displacement 

— _ — — —J 


Label 

L J 


Eyte 

Length 

L J 


Eescripticn 


6 


r — — i 
RFRECTYP 


r — 1 
1 


Record type cede 


7 


RFREL 


1 


DOS/VS ID-Release level cede 


8 


RFRDSWl 


1 


Record dependent svvitch 1 


9 


RFRDSW2 


1 


Record dependent svvitch 2 


10 


RFEXIT 


2 


Exit phase naire cr exit address 


12 


RFMCCNST 


2 


Multiplier for track balance 


14 


RFDCGNST 


2 


Divisor for track balance 


16 


RFOCCNST 


2 


1 Overhead for track balance 


18 


RFRECLEN 


2 


Length of record 


20 


RFTIMEA 


4 


Address of Pl^SR tine entry 


24 


RFRECADR 


4 


j Address of record 


28 


RFSEEK 


7 


1 Work area for seek address (EECCHHR) 


35 


RFEREPK 


1 


1 Key cf EREP partition 


36 


RFHDRCH 


4 


SYSREC cylirder/head 


40 


RFCHMAF 


1 


Map cf si^pported channels 


41 


RFCHIDC 


3 


Channel ID codes 



End of table for Model 115/125 v?ithout RMSR 



I I 

JRFEVARTHI 

I I 

|RFEVAWTH| 

I I 

|RFP2ENTL| 

I I 

IRFP2ENT I 

I I 

|RFP2ITAB| 
«X« X- 



44 
45 
46 
48 
52 



h 



EVA read threshold 
EVA write threshold 
Length of PUE2 Entry Area 
Address of PUE2 Entry Area 
PUB2 Index Table 



H 



*T^'o bytes are generated for each PUB2 entry in the systerr. See Figure 
26 for using the PUB2 Index lable to access the PUE2 entries. 

Bytes 100-103 (X'64'-'67') of the system communication region (SYSCCM) 
contain the address of the Recorder File Table. Label RFTAELE 
identifies the first byte of the table. 



Figure 18, 



Recorder File Table (RFTAELE) (Part 2 of 2) 
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PUB2 ENTRY ADDRESSING 
SYSCOiyUv 



Up ft 

+ 100 I 



-r 



PUBTAB 



A device PUB 



© Q- 



Q 



r? 



RF TABLE 



+46 



Lengthof PUB2 AREA 



+48 



Address of PUB2 AREA 



+52 



PUB2 INDEX TABLE 



2 bytes entries giving the 
displacement from the be- 
ginning of the PUB2 AREA 



PUB2AREA 



How to find the PUB2 entry for a device : | 

rn Subtract from the address of the device 
PUB, the PUB Table start address and 
divide the result by 4. 

[2] Find in the RF Table at displacement 52 
(X'34') the PUB2 Index Table. 

[3\ Use the result from(j]as a displacement 
into the PUB2 Index Table. This will give 
you the two bytes index (i.e. displacement) 
of the PUB2 entry of the device PUB. 

[4] Find in the RF Table at displacement 48 
(X'30') the address of the PUB2 AREA. 

I 51 Use the value fromSas a displacement 
inthePUB2AREA. 



See PUB2 for the format of 
the entries for the various 
device types 



Note: PUB2AREA is not generated for Model 1 15,125 without RMSR 
I support 

Figure 19. Accessing the FUE2 Table (PUE2AREA) 
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T T 

Byte 
Length 



Decirral 
Eisplaceirent 



Cescripticn 



Usage Count (number cf ncn-EBF SICs) 

flag Eyte 

Eit C: l=Device in intensive rrode 

1: l=Device in diagnostic mode 

2: l=Nc recording node* 

3: l=Call statistics transient 2 

4: l=Use FUE2 naire coirFleticn field 

5: l=Voluire opened on this device 

t,l Reserved 

CE ircde liirit byte 

CE ircde byte/bit rrask 

Statistical data counters 



^„ X-.„ X ^ -I 

I Total length 12 | 

L ^ , ^ ^ . . . ^ , .^ ^ ^«^— ^J 

♦ This bit is also set (during IFL) to indicate hardv^are recording for 
the device on the Model 115/125. 



Figure 20. FUE2 Table Entry Forrrat for Unit Record and Unsupported 
Devices 



Decimal 
Displaceirent 



T T 

Byte 
Length 



Description 



Usage Cc\:nt (nuirber of ncn-ERF SICs) 



Flag Eyte 
Eit 
1 
2 
3 
4 



l=Device in intensive mode 
l=Device in diagnostic mcde 
l=No recording irode 
l=Call statistics transient 2 
l=Use FUE2 name completion field 
l=Volume opened or this device 
6,7 Reserved 



1 
1 
20 



CE mode limit byte 
CE mode byte/bit mask 
Statistical data counters 



Total length 26 



Figure 21. FUB2 Table Entry Format for 3886 Cptical Character Reader 
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Deciiral 
Displaceirent 



Byte 
Length 



4 

5 

6 

14 

15 



Description 



usage count Cnuircer of rcn-ii'Kt SiCs) 

flag Eyte 

Hit 0: l=Device in intensive rrode 

1: l=Device in diagnostic ircde 

2: l=No recording ir.ode 

3: l=Call statistics transient 2 

4: l=Use PUE2 narre ccirpletion field 

5: l=Vcli]ire opened or this device 

6,7 Reserved 

CE rrode limit byte 

CE rrode byte/bit rrask 

Statistical data counters 



Eits 0- 



Reserved 

l=Systen file opened by Job Control 

l=Systerr file opened by Prcblerr 

Progran 



Reserved 



^ x«- 

I Total length 26 



Figure 22. FUE2 Table Entry Fcrrrat for 3540 Diskette 
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Decirral 
Cisplaceir.ent 

_ « - J 


Eyte 
Length 

L J 


L - — _ 




Cescripticn 


i 



r — 1 
3 


r ~ 
Usage Ccunt 


(number cf ncn-ERF SICs) 


3 


1 


Flag Eyte 
Eit C 
1 
2 
3 
4 
5 
6. 


r7 


l=Device in intensive irode 

l=Device in diagncstic mode 

l=Nc reccrding ircde* 

l=Call statistics transient 2 

l=Use FUE2 naire ccirpleticn field 

l=Voluire cpened en this device 

Reserved 


4 


1 


CE ircde liirit byte 


5 


1 


CE ircde tyte/bit irask 


6 


1 


Flag tyte 
Eit 0: 
1: 
2-7 


l=Soft DT^.SE error is queued 
1=ERF requests legging cf error 
Reserved 


7 


2 


Reserved 




9 


1 


Physical rrodule identifier 


10 


6 


Vcluire serial nuirfcer 


16 


8 


Statistical 


data counters 



X- 



F 

I End DASD except 3330: Total length 24 
|. 

24 



^ ^ 



— — ^ 
^ 



I 8 I Additional statistical data counters 
I I (3330 crly) 
^ X ± ^ 

I End 3330: Total length 32 | 

L . , , J 

♦This bit is also set (during IFL) to indicate hardware recording fcr the 
device on the I^cdel 115/125. 



Figure 23. FUE2 Table Entry Format for DASD 
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J. ^ ^ 


— — 


1 Deciiral 


Byte 






1 Displacerrent 


Length 




Description 


L , 









|. 









1 


3 


Usage Count 


(number of ncn-EHF SICs) 


1 3 


1 


Flag Eyte 








Eit C 




l=Device in intensive irode 






1 




l=Device in diagnostic mode 






2 




l=Nc recording node 






3 




l=Call statistics transient 2 






4 




l=Use FUE2 naire coirpletion field 






5 




l=Voluire opened en this device 






6,7 


Reserved 


1 ^ 


1 


CE ircde liirit byte 


1 5 


1 


CE ircde fcyte/bit irask 


1 6 


2 


Naire cf ERP 


that vvants contrcl 


1 8 


1 


Flag fcyte 1 








Eit 




Reserved 






1 




l=Unsclicited interrupt 






2 




1=ERF is in control 






3 




1=ERF requests repositioning 






4 




l=Use original TIE fcyte 








C=Use ofpcsite TIE fcyte 






5 




l=Intercept next SIC request 






6 




1=ERF read opposite request 






7 




l=Restart user's CCW chain 


1 9 


1 


Flag tyte 2 








Eit C 




last ERP cferatior was ERG 






1 




Last ERP operation was reposition 






2 




Cleaner action in progress 






3 




Read Cpposite Recovery in progress 






4 




i^.essage stored in F2CRGTIE 






b 




Error on atterrpt to recover fcy 








repositioning 






6: 


Data check after ERP in control 






7: 


Reserved 


1 10 


1 


Flag fcyte 3 








Eit C: 


Failing CCVv is Write or Control 
CciTirand 






1: 


User reading backwards 






2: 


Read Cpposite Recovery (RCR) 






3: 


Waxiiruir RCR retries 






4: 


Coirirand chaining RCR 






5: 


ROR suppressed incorrect length 






6,7 


Reserved 


1 11 


1 


Teirpcrary read ccurt 


1 12 


1 


leirpcrar^ w 


rite count 


1 13 


1 


Ncise record count 


1 14 


2 


Erase gap count 


1 16 


1 2 


Clearer action count 



Figure 24. PUE2 Table Entry Forirat for Tapes (Fart 1 of 2) 
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Eecirral 
Displacement 


r 


Byte 
Length 


1 


Eescripticn 


18 


1 


1 


t 


Periranent read errors count 


19 




1 




Ferrranent write errors count 


20 




1 




TIE original direction 


21 




1 




TIE opposite direction 


22 




1 




ERF counter 


23 




1 




ERF counter 1 


24 




8 




ERF work area 


32 




6 




Tape serial nurr.ber 


38 




2 




Block length 


40 




4 




RCR ccirirand address from CSW 


44 




2 




BCR residual count froir CS^ 


46 


1 


2 


1 


Reserved 


48 


1 


10 


1 


24C0-series statistical data counter area 


58 




2 




Reserved 



End 


X ^ 

2400-series: 


± ^ ^ - . .^ . .^ 

Total length 60 


48 


1 20 

X _ _ 


« ^ « - „« _v - - ~ ^- - - — ■ ^ 

1 3410/342C statistical data counter area 

J. _ -. « 


End 


3410/3420: 


Total length 68 



Figure 24. FUE2 Table Entry Fcrirat for Tapes (Fart 2 of 2) 
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J ^ 

Eyte Length 



Hi 



Eeciiral 
Eisplaceir.ent 



Ccntents/Descripticn 



4,5 
6 
7 

8-11 

12-15 

16 
17-19 
20,22 
20,21 
22,23 



}C«34« - Ti^pe 2 I/C Device Eeccrd. See t^te 3 for Unit 

Check Id. 

E'OOlxxxxx' - CCS/Helease Level. X'22' is DOS/Release 

28. 
E'OOCOOOOO' - Reccrd Irdependent Switches. 

Bit = 0: ISic rrore records to foiled. 

Bit 4=0: Tine field is in finer urits. 
X'OO' - Record Dependent Svvitches. ^•00'=Unit Check 

Ccnditicn Reccrd. 
i^'OOOO* - Reserved Reccrd Dependent Switches. 
}('ll' - Reccrd Be. cf Ictal Records (1 of 1). 
X'OO' - Reserved. 
}<'OO^YEDDF* - Date. 
X'xxxxxxxx' - Tiirer Units. 
}{'00' - Reserved. 
X^xKxxxx* - CPU Serial Nurrber. 

X'xxxx' - CPU id. 
X'OOCO' - lyiCEL Length. 



24-31 
32-39 
40-47 
48 

49-51 
52-55 



56 

57-5 9 
60,61 
62,63 
64,65 

66 

67 

68 

69 

70 

71 
72-79 

80 

81 

82-85 



! 

-X- 



Job Id. 

Failing CCW. 

CSW. 

}<'02' - Nuirber cf Double Words of Device Dependent 

Data. 
X'OQxxxx' = Failing CU/^.. 
X'xxxxxxxx* - Device T>pe 

52,53: DCS FUB h^^tes 4 and 5 

54,t)5: CS device class and type 
}('00" - Length (in bytes) cf Statistical Data Counter 

Area. 
}^'00C000' - Physical CUA . 
X'OOOO' - Nurrber of I/C Retries. 
}^'0002' - Nuirber cf Sense Bytes. 
Start I/O count, 
lerrpcrary Counter. 
}(*xx' - I^ask Byte. 
TP Code (Failing). 
IP Code (Original) . 
Flags. 
2740-2. 

lerminal Naire. 

Sense (Failing) - Sense/Status Byte 1 for 3270 Renrcte. 
Sense (Original) - Sense/Status Byte for 3270 

Rerrcte. 
X'QOxxxxxx* - SIC Count Since Last Reccrd. 



Figure 25. Unit Gheck Condition Record Forirat on IJSYSRC for 1030, 1050, 1060, 1130, 

115A, 2020, 2260, 2701, 27C2, 2703, 2740, 2760, 2780, 2848, 2972, 3270, 7770, 
83E3, TWX33, and WTIA 
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|H| 

|E| 

1^1 

|D| 

|E| 

Rl 



|..J 





— X 


^ ^ , — , 


Eeciinal 








Eisplaceirent 


1 Byte 
± 


Length 


Contents/Description 


^ :^. 


— t 





, , , , , 


1 




1 


}^'34* - Type 2 I/O Device Record. See displaceirent 3 
fcr specific record type. 


1 1 




1 


E'OOlxxxxx* - ECS/Release Level. X'22* is DOS/Release 

28. 
E'OOCOOOOO' - Record Irdependent Sv;itches. 


1 2 




1 








Bit = 0: No ir.ore records to follcvi. 








Bit 4 = 0: Tiire field is in tiirer units. 


1 3 




1 


X'xx - Record Type. (Record Dependent Svvitches) . 
X*80': Device ECE Record. 
X'40': Counter Cverflov^ Record. 
X*02': SVC-Requested Record. 


1 4,5 




2 


X'OOOO' - Reserved Record Dependent STwitches. 


1 6 




1 


X'll' - Record No. of Total Records (1 of 1). 


1 7 




1 


X'OO' - Reserved. 


1 8-11 




4 


X'OOYYDDDF' - Date. 


1 12-15 




4 


X'xxxxxxxx* - Tirrer Units. 


1 16 




1 


X'OO' - Reserved. 


1 17-19 




3 


X'xxxxxx' - CPU serial Number. 


1 20,21 




2 


X'xxxx* - CPU id. 


1 22,23 




2 


I^CEL Length CX'OCOO') . 


± 


_ J 








— t 


, 


«.^«. , ^ ^ ^_ ^_ ^ . 


24-31 




8 


Job Id Field (8 bytes of X'OO'). 


32-39 




8 


Failing CCW Field (8 bytes of X'OO'). 


40-47 




8 


CSW Field (8 bytes of X'OO'). 


48 




1 


X'02' - Nuirber of Double Words of Device Dependent 
Data. 


49-51 




3 


X'OOxxxx' - Failing CUA. 


52-55 




4 


X'xxxxxxxx' - Device Type 

52,53: DCS PUB bytes 4 and 5 
54,55: C£ device class and type 


56 




1 


X'OO* - Length of Statistical Data Counter Area in 
Bytes. 


57-59 




3 


Physical CUA Field (X'COOOOO' supplied). 


60,61 




2 


Nuirber of I/C Retries. 


62,63 




2 


X'0002* - Nurrber of Sense Bytes. 


64,65 




2 


Start I/C Count. 


66 




1 


Temporary Counter. 


67 




1 


Nask Field CX'OO') . 


68 




1 


X'OO' - TP Code (Failing) Field. 


69 




1 


X'OO' - TP Cede (Original) Field. 


70 




1 


X'OO* - Flags. 


71 




1 


X'OO' - 2740-2. 


72-79 




8 


Terminal Name Field (8 bytes of X'CO'). 


80 




1 


X'OO' - Sense (Failing) Field. 


81 




1 


X'OO" - Sense (Criginal) Field. 


82-85 




4 


X'OOxxxxxx* - SIC Count Since Last Record. 



X 



-X 



J 



Figure 26. Counter Cverflcv^, Device EGD, and SVC-Requested Record Fcrirats on IJSYSRC for 
1030, 1050, 106C, 1130, 115i^, 2020, 2260, 27C1, 2702, 27C3, 2740, 2760, 2780, 
2848, 2972, 3270, 7770, 83E3, TWX33, and WTTi^. 
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r— 


""'*■""'"'■""""*"'""" 


— X 


^ . ^ 




Decimal 










EisplaceiTient 


1 Byte 


Length 


Ccntents/Descripticn 


Hi 




1 






* ~" ■*""""" "^ '"""**"*'"""*"""" * 


— + 














1 


X'30' - Type 1 I/O Device Reccrd. See tyte 3 for Unit 
Check Id. 




1 




1 


E'OOlxxxxx' - ECS/Release Level. X'22' is EOS/Release 
28. 




2 




1 


E'OOCOOOOO* - Reccrd Irdependent Switches. 
Bit 0=0: Nc irore records to fcllcvv. 
Bit 4 = 0: Tiire fiel<3 is in tiirer ijr.its. 




3 




1 


X'OO' - Record Dependent Switches. }^'00' = Unit Check 
Ccnditicn Reccrd. 


|H 


4,5 




2 


X'OOOO* - Reserved Reccrd Dependent Switches. 


|E 


6 




1 


X'll' - Reccrd Nc. cf Total Records (1 of 1). 


1^ 


7 




1 


X'OO' - Reserved. 


|D 


8-11 




4 


X'OOYYDDDF' - Date. 


|E 


12-15 




4 


X'xxxxxxxx' - Tirrer units* 


|R 


16 




1 


}C'00* - Reserved. 




17-19 




3 


X'xxxxxx' - CPU serial Nuirber. 




20,21 




2 


X'xxxx' - CPU id. 




22,23 




2 


KCEL Length iX'QOOQ') . 


|..J 


. 


X 








— i 









24-31 




8 


Job Id 




32-39 




8 


failing CCW. 




40-47 




8 


CSW. 




48 




1 


X«03' - Nuirber of Double Words of Device Dependent 
Data. 




49-51 




3 


^•OOxxxx* - Failing CUi^. 




52-55 




4 


X'xxxxxxxx' - Device Type 

52,53: DCS PUB bytes 4 and 5 
54,55: CS device class and type 




56 




1 


X'OA' - Length (in bytes) of Statistical Data Counter 
Area. 




57-59 




3 


X'OOOOOO' - Physical CUA Field. 




60, 61 




2 


Nuirber of I/C Retries. 




62,63 




2 


X'0006' - Nuirber of Sense Bytes. 




64-69 




6 


Vcluire Serial Nuirber. 




70,71 




2 


Block Length. 




72-75 




4 


Reserved (4 bytes cf X'OO'). 




76 




1 


Terrpcrary Reads Counter. 




77 




1 


Teirpcrary Writes Counter. 




78,79 




2 


Start I/O Count for Volume. 




80 




1 


Permanent Reads Counter. 




81 




1 


Permanent Writes Counter. 




82 




1 


Noise Blocks Counter. 




83 




1 


Mode Set Count. 




84,85 




2 


Erase Gap Count. 




86,87 




2 


Cleaner Acticn Count. 




88-97 




10 


Statistical Eata Counter Area. 
Byte - Reserved. 

1 - Noise 

2 - Read/Write VRC 

3 - ly.TE/IRCR 

4 - EEC/CRC 

5 - ENV/CRC 










6 - bits 0-3 


Overrun 










4-7 


Skew 










7 - Bits 0-3 


C-Compare 










4-7 


Reserved 










8 - Not applicable 










1 9 - Net applicable 




98-103 




6 


Sense byte data 





L X . X 



Figure 27. Unit Check Condition Record Format fcr 2400T9 on IJSYSRC 



i A -n/^Q /^?Q 



DOS/VS Error Recovery and Recording Transients 



[-1 



|H| 
|R| 



HJ 



^ , ^ ^ , — ^- , — , ^ ^ ^ 

Decimal | | 

Displaceirent | Byte Length | Ccnterts/Descripticn 

_ _ « L^-. « ^-L « -. _ -, ^ , « « « -. 


T r~ — ^T ~ "" — — — - -. 

1 1 1 1 X'30* - Type 1 I/O Device Record. Record Dependent 

1 1 1 Switch Eyte (displaceirent 3) identifies the 

1 1 1 particular record type. 

1 1 1 1 1 E'OOlxxxxx' - DCS/Release Level. X'22' is DOS/Release 

1 1 1 28. 

1 2 1 1 I E'OOCOOOOO' - Reccrd Independent Switches. 

1 1 1 Bit 0=0: No irore records to fcllcw. 

1 1 1 4 = 0; Tiire field is in ti^er units. 

1 3 1 1 1 X'xx' - Record Dependent Switches. 

1 1 1 X'80" - Device ECD Reccrd 

1 1 1 X'40* - Ccunter Overflow Record 

1 1 1 X'04' - Vcluire Disircunt Reccrd 

1 1 I X'02* - SVC-Requested Record 

1 4,5 1 2 1 X'OOOO^ - Reserved Reccrd Dependent Switches. 

1 6 1 1 1 X'll* - Record Nc. of Total Records CI of 1). 

j 7 ill X»00' - Reserved. 

1 8-11 1 4 1 X'OOYYDDDF' - Date. 

1 12-15 1 4 1 X'xxxxxxxx* - Tiirer Units. 

1 16 1 1 1 X'OO' - Reserved. 

1 17-19 1 3 J X'xxxxxx' - CFU Serial Nuirter. 

1 20,21 1 2 1 X'xxxx' - CPU id. 

1 22,23 1 2 1 KCEL Length (X'OOOO'). 

JL _1 J. « _ « « , .^ _ 


a. -^ _ ^ - .^ -. - 

24-31 1 8 1 Job Id (Counter Overflew only, else zeros) . 
32-39 1 8 1 failing CCW (Ccunter Overflow only, else zercs). 
40-47 1 8 1 CSW (Counter Overflow cnly, else zercs). 
48 1 1 1 X'03' - Nurrfcer of Double Words of Device Dependent 

1 1 Data. 
49-51 1 3 1 X'OOxxxx' - Failing CU^.. 
52-55 1 4 1 X'xxxxxxxx' - Device Type 

1 1 52,53: DCS PUB tytes 4 and 5 

1 1 54,55: OS device class and type 
56 1 1 1 X'OA' - Length (fcytes) of Statistical Data Ccunter 

1 1 Area. 
57-59 1 3 1 X'OOCOOO' - Physical CUA Field. 
60,61 1 2 1 X'OOOO' - Nurrber of I/C Retries Field. 
62,63 1 2 1 X'00C6' - Nuirter cf Sense Eytes. 
64-69 1 6 1 Voluire Serial Nuirber. 
70,71 1 2 1 Elcck Length. 
72-75 1 4 1 X'OOOOOOOO' - Reserved. 

76 1 1 1 Teirpcrary Reads Count. 

77 1 1 1 Temporary Writes Count. 
78,79 1 2 1 Start I/C Count fcr Vcluire. 



L . JL . Jl ^ J 

Figure 28. Counter Overflow, Vcluire Disircunt, Device ECD, and SVC-Requested Reccrd 
Forirats on IJSYSRC for 2400T9 (Part 1 of 2) 
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Cisplaceir.ent 


1 Byte Length 


1 Ccnterts/Descripticn 


L«. 
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__L . ^ 
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„^ 






80 


1 1 


1 Permanent Reads Count • 






81 


1 1 


1 Permanent Writes Ccunt 


» 




82 


1 1 


1 Noise Blocks Ccunt, 






83 


1 1 


1 ly.cde Set Ccunt. 






84,85 


1 2 


1 Erase Gaps Count. 






86, 87 


1 2 


1 Cleaner Actions Count. 






88-97 


1 10 


1 Statistical Data Counter Area, 








1 Byte - Reserved 










1 1 - Noise 










1 2 - Bead/Write 


VRC 








1 3 - KTE/IRCR 










1 ^ - EEC/CRC 










1 5 - ENV/CRC 










1 6 - Eits 0-3 




Overrun 








1 a-7 




Skew 








1 7 - Eits 0-3 




C-Compare 








1 4-7 




Reserved 








1 8,9 - Not appl 


icatle 




98-103 


1 6 


1 Sense Byte Data 
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Figure 28. Counter Overflow, Volume Dismount, Device ECD, and SVC-Requested Record 
Formats on IJSl^SRC for 240CT9 (Fart 2 of 2) 
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|H| 
|E| 
|A| 
|D| 
|E| 



H- • 



, ^« . ^ ^ ^ , , 

Ceciitial I I 

Eisplaceirent | Byte Length | Contents/Description 

^ + + 

I I 1 I }('30' - Type 1 I/C Device Record. Byte 3 is Unit 

I I I Check Id. 

I 1 I 1 I E'OOlxxxxx - ECS/Eelease Level. X'22' is DCS/Release 

I I I 28. 

I 2 I 1 I E' 00000000' - Record Independent Switches. 

I I I Bit 0=0: No more records to follo\v. 

I I I Bit 4 = 0: Tiire field is in liner Units. 

I 3 I 1 I X'OO' - Record Dependent Switches. X'OO' = Unit Check 

I I I Ccnditicn Reccrd. 

I 4,5 I 2 I )(*0000' - Reserved Reccrd Dependent Switches. 

I 6 I 1 I X'll* - Reccrd No. of Ictal Records (1 of 1). 

I 7 I 1 I X'OO' - Reserved. 

I 8-11 I 4 I }(*OOYYDDDF' - Date. 

I 12-15 I 4 I X'xxxxxxxx' - Tiirer Units. 

I 16 I 1 I }C'00' - Reserved, 

I 17-19 I 3 I X'xxxxxx' - CPU Serial Nurrber. 

I 20,21 I 2 I X'xxxx* - CPU id. 

I 22,23 I 2 I X'OOOO' - MCEL Length. 

X + 1 ^„ 

24-31 I 8 I Job Id. 

32-39 I 8 I Failing CCW. 

40-47 I 8 I CSW. 

48 I 1 I X'03' - Nuirber of Doutle Words of Device Dependent 

I I Data. 

49-51 I 3 I X'OOxxxx' - Failing CUA. 

52-55 I 4 I X'xxxxxxxx' - Device Type 

I I 52,53: DCS PUB bytes 4 and 5 

I I 54,55: CS device class and type 

56 I 1 I X'14* - Byte Length of Statistical Data Counter Area. 

57-59 I 3 I X'OOCOOO' - Physical CUA. 

60,61 I 2 I Number of I/C Retries. 

62,63 I 2 I X'0018' - Nunber of Sense Bytes. 

64-69 I 6 I Vcluire Serial Nuirber. 

70,71 I 2 I Block Length. 

72-75 I 4 I X'OOCOOOOO' - Reserved. 

76 I 1 I lerr.porary Reads Count. 

77 I 1 I leirpcrary Writes Count. 
78,79 I 2 I Start I/C Count fcr Vcluire. 

80 I 1 I Permanent Reads Count. 

81 I 1 I Permanent Writes Ccunt. 

82 I 1 I Noise Blocks Count. 

83 I 1 I Kcde Set Ccunt. 
84,85 I 2 I Erase Gaps Ccunt. 
86,87 I 2 I Cleaner Actions Count. 

88-107 I 20 I Statistical Data Counter Area (See Part 2 cf this 

I I figure for use) . 

108-131 24 I Sense Byte data. 



L« X . X , , ^- 
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Figure 29. Unit Check Condition Record Format for 3420 on IJSYSRC (Part 1 of- 2) 
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Bytes 88-107 



DispX into 
Counter Area 


1 
2 
3 
4 
5 
6 



8 

9 
10 
11 
12 
13 

14 

15 
16 



17 
18 
19 



Statistical Data Counter Area Usage 



Hits 
Usea 

none 

0-7 

C-7 

0-7 

0-7 

0-7 

C-3 

14-7 

C-3 

4-7 


1-6 

7 
0-7 

0-3 
4-7 
0-3 
4-7 
0-3 
4-7 
0-3 
4-7 

0-3 

4-7 

C-3 

4-7 
0-3 
4-7 

none 
0-7 
C-3 
4-7 



Retrieved 
frcir Sense 
Byte, Eit(s) 



1,0 
3,0 
3,1 
3,3 
3,4 
0,5 
3,2 
3,7 
4,3 
5,3 



2,0-7 

5,2 
5,4 
5,5 
5,6 
8,0 
8,1 

8,3 

8,4 

8,5 

8,6 

8,7 

9,1 



3,6 
0,2 
^,0 



Type of Count 



" — H 



Spare byte 

Noise 

Read Write VRC 

MTE/LRCR 

EDC/CRC 

ENV CHK/VRC 

Overrun 

Skew 

C-Ccirpare 

Write Trigger VRC 

PE Id Burst Check 

Mask Bit Expansion 

Parity 

Track in Error Kask 

Bits 

Write Tape Kark Check 

Start Read Check 

Partial Reccrd 

Excessive Pcstairfcle 

IBG Drop While Writing 

Feed Thrcugh Check 

Spare 

Early Begin Read Back 

Check 

Early End Read Back 

Check 

Slow Begin Read Back 

Check 

Slow End Read Back 

Check 

Velocity Retry 

Spare 

Velccity Change During 

Write 

Spare byte 

Backward 

Bus Cut Check 

ALU Hardware Error 



Figure 29. Unit Check Condition Record Forirat for 3420 en IJSYSRC (Part 2 of 2) 
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1-1 



|E| 
|A| 

|E| 

|R| 



K-> 



^ — . ^ ^ , 

Decimal | | 

Displacement j Eyte Length | Contents/Description 

^ i_ \ _ -. « _ 


T 1 ^t - « 

1 1 1 1 X'30' - Type 1 I/O De^/ice Record. Reccrd Dependent 

1 1 1 Sviitch Eyte (displacement 3) identifies the 

1 1 1 particular reccrd type. 

1 1 1 1 1 E'OOlxxxxx' - DOS/Release Level. X'22' is DCS/Release 

1 1 1 28. 

1 2 1 1 1 E* 00000000' - Record Independent Sv?itches. 

1 1 1 Bit = 0: No mere records to fcllcvj. 

I 1 1 Bit 4=0: Time field is in timer units. 

1 3 1 1 1 X'xx* - Record Dependent Switches. 

1 1 1 X'80' ~ Device EOD Record. 

1 I 1 X'40' - counter Overflow Record. 

1 1 1 X'04' - Volume Dismount Record. 

1 1 1 X'02' - SVC-Requested Reccrd. 

I 4,5 I 2 1 X'OO' - Reserved Record Dependent Switches. 

1 6 1 1 1 X'll' - Record No. of Total Records (1 of 1) . 

1 7 1 1 1 X'OO' - Reserved. 

1 8-11 1 4 1 X'OOYYDDDF' - Date. 

I 12-15 1 4 1 X'xxxxxxxx* - Tim.er Units. 

1 17-19 1 3 1 X'xxxxxx' - CPU Serial Number. 

1 20,21 1 2 1 X'xxxx' - CPU id. 

1 22,23 1 2 1 X'OOOO' - MCEL Length Field. 

± ^.^ + 

24-31 1 8 1 Job Id (Counter Overflow only, else zeros). 
32-39 1 8 1 Failing CCW (Counter Overflow only, else zercs). 
40-47 1 8 1 CSW (Counter Cverflcw cnly , else zercs). 
48 1 1 1 X'03* - Number of Double Words of Device Dependent 

1 1 Data. 
49-51 1 3 1 X'OOxxxx' - Failing CUA. 
52-55 1 4 1 X'xxxxxxxx* - Device Type 

1 1 52,53: DOS PUB bytes 4 and 5 

1 1 54,55: OS device class and type 
56 1 1 1 X'14' - Length (in bytes) of Statistical Data Counter 

j 1 Area. 
57-59 1 3 1 X' 000000' - Physical CUA. 
60,61 1 2 1 Number of I/C Retries. 
62,63 1 2 1 X'0018' - Number of Sense Bytes. 
64-69 1 6 1 Volume Serial Number. 
70,71 1 2 1 Elock Length, 
72-75 1 4 1 X'OOCOOOOO' - Reserved. 

76 1 1 1 Tem.pcrary Reads Count. 

77 1 1 1 Temporary Writes Count. 
78,79 1 2 1 Start I/O Count for Volume. 

80 1 1 1 Permanent Reads Ccunt. 

81 I 1 1 Permanent Writes Count. 

82 1 1 1 Noise Blocks Ccunt. 

83 1 1 1 Mode Set Count. 
84,85 1 2 1 Erase Gaps Ccunt. 
86,87 1 2 1 Cleaner Actions Count. 

88-107 1 20 1 Statistical Data Counter Area. See part 2 of Unit 

1 1 Check Condition Record Format for 342C on IJSYSRC for 


1 1 use. 
108-131 1 24 1 Sense Eyte Data (Ccunter Overflow only, else zeros). 



L , ± X , , J 

Figure 30. Counter Overflow, Volume Dismount, Device ECD, and SVC-Requested Record 
Formats on IJSYSRC for 3420 
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Ki 



lEl 

|D| 

|Ei 



h-» 



^ -J. . 

Decimal | | 

Displacerr.ent j Byte Length | Contents/Description 

^_ 4. L_, ^ ^ 


^^ ^ — j.-., — ^ -. « - — — - 

1 1 1 i X'30' - Type 1 I/O Device Record. Eyte 3 is Unit 

1 1 1 Check Id 

1 1 1 1 1 E'OOlxxxxx' - DOS/Release Level. X'22' is DOS/Release 

1 1 1 28. 

I 2 1 1 1 E' 00000000' - Record Independent Switches. 

1 1 1 Bit 0=0: ^^c ircre records tc fcllcvv. 

1 1 1 Bit 4=0: Time field is in timer units. 

1 3 1 1 1 X'OO* - Reccrd Dependent Switches. X'OO* = Unit Check 

1 1 1 Condition Record. 

1 4,5 1 2 1 X'OOCO' - Reserved Reccrd Dependent Switches. 

1 6 1 1 1 X'll' - Record No. of Total Records (1 of 1). 
I| 7 1 1 1 }('00' - Reserved 
:| 8-11 1 4 1 )^'OOYYDDDF' - Date. 

1 12-15 1 4 1 }C'xxxxxxxx' - Timer units. 

1 16 1 1 1 X'OO' - Reserved. 

i 17-19 1 3 1 }<*xxxxxx* - CPU Serial Numter. 

1 20,21 1 2 1 X'xxxx' - CPU id. 

1 22,23 1 2 1 .X'OOCO' - WCEI length. 

X 1 L- ~ - 


24-31 1 8 1 Job Id. 

32-39 1 8 1 Failing CCW. 

40-47 1 8 1 CSW. 
48 1 1 1 }<'03' - Number cf Dcutle Wcrds of Device Dependent 
1 1 Data. 

49-51 1 3 1 X'OOxxxx' - Failing CUJv. 

52-55 1 4 1 X'xxxxxxxx' - Device Type 

1 1 52,53: DCS PUB fcytes 4 and 5 
1 1 54,55: CS device class and type 
56 1 1 1 X'14' - Eyte length cf Statistical Data Counter Area. 

57-59 1 3 1 X' 000000* - Physical CUA. 

60,61 1 2 1 Number of I/C Retries. 

62,63 1 2 1 X'0009' - Number of Sense Eytes. 

64-69 1 6 1 Volume Serial Number. 

70,71 1 2 1 Elock Length. 

72-75 1 4 1 X'OOOOOOOO* - Reserved. 

76 1 1 i Temporary Reads Count. 

77 1 1 1 Temporary Writes Count. 
78,79 1 2 1 Start I/C Ccunt for Vclume. 

80 I 1 1 Permanent Reads Count. 

81 1 1 1 Permanent Writes Ccunt. 

82 1 1 1 Noise Blocks Count. 

83 1 1 1 jy.cde Set Ccunt. 
84,85 1 2 1 Erase Gaps Ccunt. 
86,87 1 2 1 Cleaner Actions Count. 

88-107 1 20 1 Statistical Data Counter Area. See Part 2 of this 

i j figure fcr use. 
108-116 1 9 1 Sense Eyte Data. 



„, X X 



Figure 31. Unit Check Condition Record Format for 3410 on IJSYSRC (Part 1 of 2) 
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-107 


Statistical 


Data Counter 


Area Usag.e 






[ 










Retrieved 


. — ^ — ^ 






|Dis 


pl into 


Bits 




frcir 


Sense 








[counter Area 


Used 




Byte 


,Bit(s) 


Type of Count | 






1 














. _ . . J 






r 



1 
2 
3 
4 
5 
6 

7 

8 

9 
10 
11 
12 
13 
14 

15 

16 
17 
18 
19 




none 

0-7 

C-7 

0-7 

C-7 

0-7 

C-3 

4-7 

C-3 

4-7 

C 

1-6 

7 

0-7 

0-3 
4-7 
0-3 
4-7 
0-3 
4-7 
0-3 
4-7 
0-3 

4-7 
C-3 
4-7 
C-7 
0-7 
C-7 
0-3 
4-7 






1,0 
3,0 
3,1 
3,3 
3,4 
0,5 
3,2 
3,7 

5,3 

2,0-7 

5,2 
5,4 
5,5 
5,6 

8,1 

8,3 
8,4 

8,5 

8,7 

3,6 
0,2 
^,0 


- « - — • ^ 

Spare byte | 
Noise 1 
Read Vvrite VRC | 
WTE/LRCR 1 
EDC/CRC 1 
ENV CHK/VRC | 
Cverrun | 
Skew 1 
C-ccirpare | 
Spare | 
ID Burst Check | 
Mask Bit Expansion j 
Parity j 
Track in Error Kask j 
Bits 1 
Write Tape F.ark Check | 
Parity Ccirpare | 
Tachometer Check j 
False End Mark | 
Spare | 
Feed Through Check | 
Spare | 
End Velocity Check | 
Read Back Data Not | 
Detected j 
Start Velocity Check j 
Spare | 
Velocity Retry | 
Spare byte | 
Spare byte j 
Backward | 
Bus Cut Check j 
Tape Unit Pcsiticning | 
Check 
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Unit 


Check 


Condition 


Record 


Forirat for 3410 


on IJSYSRC (Part 2 of 2) 
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\A\ 
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Decimal 








Displaceirent 


1 Eyte 
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Length 


Contents/Description 
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— t 





"~~~~~~— ~—~~— ""^ "~~~~ ""—■""— —'"""■~~— '""''"■'■"""'""■—--—""■"""— ——""— ——_——-. 


1 




1 


i^'30' - Type 1 I/O De'vice Record. Reccrd Dependent 
Switch Eyte (displaceirent 3) identifies the 
particular reccrd type. 


1 1 




1 


E'OOlxxxxx' - CCS/Release Level. X'22' is DCS/Release 

28. 
E' 00000000* - Record Independent Switches. 


1 2 




1 








Bit = 0: No ncre records tc fcllcvi. 








Bit 4 = 0: Time field is in tiirer units. 


1 3 
1 




1 


X'xx' - Reccrd Dependent Switches. 
X'80* - Device ECD Record 
X*40' - Counter Overflow Reccrd 
X'04' - Volume Disirount Record 
X'02' - SVC-Requested Record 


1 4,5 




2 


X'OOOO' - Reserved Record Dependent Switches. 


1 6 




1 


X'll' - Reccrd No. of Total Records (1 of 1). 


1 7 




1 


X'OO' - Reserved. 


1 8-11 




4 


X'OOYYDDDF' - Date. 


1 12-15 




4 


X'xxxxxxxx* - Timer Units. 


1 16 




1 


X'OO' - Reserved. 


1 17-19 




3 


X'xxxxxx' - CPU Serial Number. 


1 20,21 




2 


X'xxxx' - CPU id. 


1 22,23 




2 


X'OOOO' - MCEL length. 


X 


_ r 


. 






— f 






24-31 




8 


Job Id. 


32-39 




8 


failing CCVv. 


40-47 




8 


CSW. 


48 




1 


X'03' - Number of Double Words of Device Dependent 
Data. 


49-51 




3 


X'OOxxxx' - failing CUA. 


52-55 




4 


X'xxxxxxxx' - Device Type 

52,53: DCS PUB Bytes 4 and 5 
54,55: CS device class and type 


56 




1 


X»14« - Eyte Length of Statistical Data Counter Area. 


57-59 




3 


X'OOCOOO* - Physical CUA. 


60,61 




2 


Number of I/C Retires. 


62, 63 




2 


X'0009' - Number of Sense Bytes. 


64-69 




6 


Volume Serial Number. 


70,71 




2 


Elock Length. 


72-75 




4 


X'OOCOOOOO' - Reserved. 


76 




1 


Temporary Reads Count. 


77 




1 


Temporary Writes Count. 


78,79 




2 


Start I/O count for Volume. 


80 




1 


Permanent Reads Count. 


81 




1 


Permanent Writes Count. 


82 




1 


1 Noise Blocks Count. 


83 




1 


Mode Set Count. 


84,85 




2 


Erase Gaps Count. 


86,87 




2 


Cleaner Actions Count. 


88-107 




20 


Statistical Data Counter Area. For usage, see Figure 
30. 


108-116 




9 


Sense Eyte Data (Counter Overflow Record only, else 
zeros) . 



L X X 



J 



Figure 32. Counter Overflow, Volume Dismount, Device ECD, and SVC-Requested Record 
Formats on IJSYSRC for 3410 
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1 
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1 




1 






}^'30' - Type 1 I/O Device Record. 

(see displacement 3 fcr specific type) 




1 


1 
1 




1 






E'OOlxxxxx' - DOS/Release Level. X'22' is DCS/Release 

28* 
E' 00000000* - Record Independent Sviitches. 
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1 

1 




1 










1 










Bit 0=0: No more records tc feller. 






1 










Bit 4=0: Time field is in timer units. 




3 


1 




1 






X'xx' - Reccrd Dependent Switches. 


|H 




1 










X'OO* - Unit Check Condition Record. 


|E 




1 










X'AO' - Device EOD Reccrd 


|A 




1 










X'60' - Counter Cverflow Record 


|D 




1 










X'22' - SVC-Requested Record 


|E 


4,5 


1 




2 






X'OOOO' - Reserved Record Dependent Sv?itches . 


|R 


6 
7 
8-11 
12-15 

16 
17-19 
20,21 
22,23 


1 
1 
1 
1 
1 
1 
1 
1 




1 
1 
4 
4 
1 
3 
2 
2 






X'll' - Reccrd No. cf Total Records (1 of 1). 

X'OO' - Reserved. 

X'OOYYDDDE' - Date. 

X'xxxxxxxx* - Timer Units. 

X'OO* - Reserved. 

X'xxxxxx' - CPU Serial Number. 

X'xxxx' - CPU id. 

X'OOOO' - MCEI Length. 


1 ^ 


L . 


i. 








-J. 




Second part of 


record 


for 


Unit 


Check Conditicn Record 




24-31 


1 




8 






Job Id. 




32-39 


1 




8 






Failing CCW. 




40-47 


1 




8 






CSW. 




48 


1 




1 






X'OO' - Double Words of Device Dependent Data. 




49-51 


1 




3 






X'OOxxxx' - Failing CVh. 




52-55 


1 
1 
1 




^ 






X'xxxxxxxx' - Device Type 

52,53: DCS PUB bytes 4 and 5 
54,55: OS device class and type 




56 


1 




1 






X'OA' - Eytes cf Statistical Data Counter Area. 




57-59 


1 




3 






X' 000000* - Physical CUA. 




60,61 


1 




2 






Number of I/C Retries. 




62,63 


1 




2 






X'OOOl' - Number of Sense Eytes 




64-73 


1 
1 




10 






Statistical Data Ccunter Area* See Figure 4^ for 
usage. 




74 


1 




1 






X'xx' - Sense Eyte Data. 




75-78 


1 
j._ 




4 




_± 


X'OOxxxxxx' - SIC Count Since Last Reccrd. 


1 c 

1 •>. 


Second part of 


record 


for 


other 


Type 1 I/C Device Records 




24-27 


1 




^ 






X'xxxxOOOO' - Device Type (PUB bytes 4,5). 




28 


1 




1 






X'OA' - Bytes of Statistical Data Counter Area. 




29-31 


1 




3 






X'OOxxxx* - Failing CUA. 




32-41 


1 
1 




10 






Statistical Data Counter Area. See Figure 4 8 for 
usage. 




a2-45 


1 




4 






X'OOxxxxxx' - SIC Count Since Last Record. 



L , X X . ^* . .-*- ^ -. . — «-^ : .^ J 

Figure 33. Unit Check Conditicn, Counter Overflow, Device EOD, and SVC-Requested Record 
Formats on IJSYSRC fcr 1017, 1018, 1403, 14C3U, 2245, 1419, 1419P, 1442N1/N2, 
1443, 2495, 2501, 2520E1/B2/B3, 2540P, 2540R, 2596, 2671, 3210, 3215, 3881, 
and Unsupported Devices 
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1 Eisplaceirent 
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Len 
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-J.. 
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r"~'X'~'""~~"~"~'"~"~'~"~'~"~'~"' 


— t 




—'—'—" 


T 




1 1 


1 
1 


1 






5('30' - Tvfe 1 I/C D€^;ic€ Record Key (see disrlaccircnt 
3 for specific record type) . 


1 1 1 


1 
1 


1 






E'OOlxxxxx' - ECS/Release Level. X'22' is EOS/Release 
28, 


1 1 2 


1 
1 
1 


1 






X*QO' - Reccrd Indeper.dent Switches. 
Bit 0=0: No rrore records to follcw. 
Bit 4 = 0: Tirre field is in tiirer ur.its. 


1 1 3 


1 


1 






}<'xx' - Record Dependent Switches. 


|H| 


1 








X'OO' - Unit Check Ccnditicn 


|E| 


1 








X'AO' - Device ECD 


1^1 


1 








X'60' - Ccurter Overflow 


|D| 


1 








X'22* - SVC-Requested 


|E| 4,5 


1 


2 






X'OOCO' - Reserved Reccrd Dependent Switches. 


|R| 6 


1 


1 






X'll' - Record No. of Total Records (1 of 1). 
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Figure 34. Unit Check Condition, Device EOD, Counter Overflow, and SVC-Requested Record 
Formats on IJSYSRC for 1287, 1288, and 1419S 
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Figure 35. Unit Check Condition, Device ECD, Counter Overflow, and SVC-Requested Record 
Forirats on IJSYSRC for 3886 
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Figure 37. Unit Check Condition, Counter Overflow, Voluire Dismount, and SVC-Requested 
Reccrd Forirats on IJSYSRC for 2311, 2314, and 2321 
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Figure 38. Unit Check Condition, Device ECD, Ccunter Cverflcw, and SVC-Requested Record 
Forirats on IJSYSRC for 3504, 3505, 3525 Punch, and 3525 Reader/Punch 



124 DCS/VS Error Recovery and Recording Transients 



|H| 
|E| 
\h\ 

|E| 
IRI 



, ^ J. , ^ ^ , 

Eeciiral | | 

Eisplaceirent | Byte Length | Ccrterts/Cescripticn 
^ ^ 4 4 ^„ 

I I 1 I }{'30' - Type 1 I/O Device Record Key. 

I I I Displaceirent 3 idertifies this as Unit Check 

I I I Ccnditicn fcy X'OO' . 

I 1 I 1 I E'OOlxxxxx' - ECS/Release Level. }C'22' is ECS/Release 

I I I 2 8. 

I 2 I 1 I X'OO* - Reccrd Independent Switches 

I I I Bit = 0: Nc irore records to follcvj. 

II I Bit 4 = 0: Tirre field is in tiirer units. 

I 3 I 1 I X»00' - Record Dependent Switches. X'OO' = Unit Check 

I I I Ccnditicn Reccrd. 

I 4,5 I 2 I X'OOOO* - Reserved Reccrd Dependent Switches. 

I 6 I 1 I X'll' - Reccrd Nc. cf Total Records (1 of 1). 

I 7 I 1 I }C*00* - Reserved. 

I 8-11 I 4 I }?'0OYYEDEF' - Date 

I 12-15 I 4 I }C'xxxxxxxx' - Tiir.er Units. 

i 16 I 1 I }C'00' - Reserved. 

I 17-19 I 3 I x'xxxxxx' - CPU Serial Number. 

I 20,21 I 2 I i^'xxxx' - CPU id. 

I 22,23 I 2 I }^'0O0O' - MCEI Length. 

X 4 4 

24-31 I 8 I Jcb Id. 

32-39 I 8 I Failing CCVi. 

4 0-47 I 8 I CSW. 

48 I 1 I }^'03' - Nuirfcer of Doutle Words of Device Dependent 

I I Data. 

49-51 I 3 I X'OOxxxx' - Failing CUA. 

52-55 I 4 I X'xxxxxxxx' - Device Type 

I I 52,53: DCS PUB bytes 4 and 5 

I I 54,55: CS device class and type 

56 I 1 I }('00' - Byte Length of Statistical Data Counter Area. 

57-59 I 3 I }('00xxxx' - Physical CUA. 

60,61 I 2 I Number of I/C Retries plus one. 

62,63 I 2 I X'0018* - Number cf Sense Bytes. 

64-69 I 6 I Volume Serial Number. 

70,71 I 2 I X'OQQO' - Unused. 

72-79 I 8 I Last Seek Address (KEECCHHR) . 

80-85 I 6 I Home Address Read (CCHHR) . 

86,87 I 2 I X'OOCO' - Unused. 

88-111 I 24 I Sense Byte Data 

112-115 I 4 I ^C'OOxxxxxx' - SIC Ccunt Since Last Reccrd. 



L , . . J. 1 , , , . , J 

Figure 39. Unit Check Condition Reccrd Format en IJSYSRC for 3330 and 3340 
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Figure 40. Counter Overflow, Vcluire Disrrount, Device ECE, and SVC-Requested Reccrd 
Forrr.ats on USYSRC for 3330 and 33t^C 
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Figure 41. Unit Check Condition Record Forrrat on IJSYSRC for 3211 
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X'80' - Device EOD Record. 
X*40' - Ccunter Cverflcvv Record. 
X'02' - SVC-Requested Record. 




1 4,5 




2 


X'OOCO' - Reserved Recerd Dependent 


Switches . 


1 6 




1 


X'll' - Record No. of Total Records 


(1 of 1). 


1 7 




1 


X'OO' - Reserved. 




1 8-11 




4 


X'OOYYDDDF' - Date. 




1 12-15 




4 


X'xxxxxxxx' - Tiner Units. 




1 16 




1 


X'OO' - Reserved. 




1 17-19 




3 


X'xx3<x3<x' - CFU Serial Nuirter. 




1 20,21 




2 


X'xxxx' - CPU id. 




1 22,23 




2 


X'OOCO' - NCEI Length. 




X 


1 










— t 









24-31 




8 


Job Id (counter Cverflew only, else 


zeros) . 


32-39 




8 


Failing CCW (Counter Cverflow only. 


else zercs). 


40-47 




8 


CSW (Counter Cverflow only, else zercs) . 


48 




1 


X'Ol' - Ni^rrfcer cf Dcutle Wcrds of Device Dependent 








Data. 




49-51 




3 


X'OOxxxx* - Failing CUT^.. 




52-55 




4 


X'xxxxxxxx' - Device Type 

52,53: DCS FUB fc^tes 4 and 5 
54,55: OS device class and t^^pe 




56 




1 


X'OA* - Byte length cf Statistical I 


^ata Counter Area. 


57-59 




3 


X'OOOOOO' - Physical CUA. 




60, 61 




2 


1 Wuirber cf I/C Retries. 




62,63 




2 


X'0006' - Nuirfcer of Sense Bytes. 




64 




1 


1 X' 00' - Net Used ty DCS. 




65-71 




7 


X'OOCOOOOOOOCOOO' - Reserved. 




72-81 




10 


Statistical Data Counter Area. See 
usage. 


Figure 48 for 


82-87 




6 


Sense Byte Data (Counter Cverflow or 


ily, else zercs) . 


88-91 




4 


X'OOxxxxxx' - SIC Count Since Last Recerd. 



L 



-X 



JL 



J 



Figure 42. Counter Overflow, Device BCD, and SVC-Requested Recerd Ferirats, en IJSYSRC fer 
3211 



DOS/VS Error Recovery and Recording Transients 



first Reccrd 



Hi 



.^ ^- -^ ^ ^ — ^« ^„ ^-.-- _ - 

Eeciitial 1 1 

Eisplaceirent | Byte Length | Ccnterts/Eescripticn 

^ « J. -. , -. J. - - -. - — - — . — 


y — « ^ - — -. -j. — - - -. - - - — ^ - 

1 1 1 1 X'91' - Type 3 I/C Device Record. See byte 

1 1 1 displacerrent 4 fcr device type and byte 

1 1 1 displacerrent 27 for buffer type id. 

1 1 1 1 1 E'OOlxxxxx' - ECS/Release Level. X'22' is EOS/Release 

1 1 1 28. 

1 2 1 1 1 X'80' - Reccrd Independent Svwitches. 

1 1 1 Bit 0=1: Wore records to follow-. 

1 1 1 Bit 4 = 0: Tiire field is in tiirer units. 

1 3 1 1 1 X'OO' - Record Dependent Svwitches. Ihis byte not used 

1 1 1 in this reccrd type. 

1 4 1 1 1 X'04" - Record Dependent Sv^itches. X'04' = 3211 

1 1 1 Printer. 

1 5 1 1 1 X'OO' - Reserved Dependent Record Svvitches. 
'! 6 1 1 1 X«13' - Reccrd Nc. cf Ictal Records (1 cf 3). 

1 7 1 1 1 X'OO' - Reserved. 
)| 8-11 1 4 1 X'OOYYEDEF' - Eate. 

1 12-15 1 4 1 X'xxxxxxxx' - lirrer Units. 
.| 16 1 1 1 X'OO' - Reserved. 

1 17-19 1 3 1 X'xxxxxx' - CPU Serial Nurrber. 

1 20,21 1 2 1 X'xxxx' - CPU id. 

1 22,23 1 2 1 X'OOOO' - WCEL Length. 


24, 25 1 2 1 X'xxxx* - CUP.. 

26 1 1 1 X'OO' - Not used by DCS. 

27 1 1 1 X'Ol' - Buffer lype Id (X'Ol' = UCSE). 
28-199 1 172 1 UCSB 



|H| 

|E! 
\h\ 
|D| 
|E| 
|R| 



|.-J 



L 



X 



X . 



^ , , ^ ^ J 



Second Record 



j Same as First Record except byte displacerrent 6 = X'23* for Reccrd 2 cf 3 , 

L ^ . . . . 



Third Reccrd 



I 



HI 

E| 

A| 

D| 

E| 

R| 
|.-X. 



Header same as First Reccrd except: Byte displacement 2 (bit 0=0 tc indicate 
no more records tc feller); byte displacement 6 = X'33' tc indicate reccrd 3 cf 
3. 



24,25 

26 

27 
28-195 



I 
-X- 



1 

1 
168 



X'xxxx' - CUi^.. 

X' 00' - Not Used by 

X' 01 • - Buffer Type 

UCSB. 



DCS. 
Id (X^ 



01' = UCSB) . 



Figure 43. UCSE Off-Lcad Record Format on IJSlfSRC for 3211 
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Ki 



|H| 
|E| 

|E| 
|R! 



^ ^ ^^ , 

Decimal | | 

Displaceirent j Byte Length | Contents/Description 

. . i ^ «. L 


^ + - + ^ . _. 

1 1 1 1 }C'91' - Type 3 I/C Device Record. See byte 

1 1 1 displaceirent 4 for device type and byte 

I 1 1 displaceirent 27 for buffer type id. 

1 1 1 1 1 E'OOlxxxxx' - DCS/Release Level. X'22' is DCS/Release 

1 1 1 28, 

1 2 1 1 1 }C'00' - Record Independent Switches. 

1 1 j Bit = 0: Kc irore records to fellow. 

1 1 1 Bit 4 = 0: Time field is in tiirer units. 

1 3 1 1 1 X'OO' - Record Dependert Switches. This byte not used 

1 I 1 in this record type. 

1 a 1 1 1 X'04* - Record Dependert Switches. X'C4' = 3211 

1 1 1 Printer. 

I 5 1 1 1 }^'00' - Reserved Recorc: Dependent Switches. 

1 6 1 1 1 ]<«11,' - Record No. of Total Records (1 of 1). 

1 7 111 X'OO' - Reserved. 

1 8-11 j ^ 1 iCOOYYDDDF' - Date. 

1 12-15 1 4 1 X'xxxxxxxx' - Tiirer Units. 

1 16 1 1 1 ){'00* - Reserved. 

1 20,21 1 2 1 X'xxxx* - CPU id. 

1 22,23 1 2 1 }<'00C0' - KCEL Length. 

X L . • L ^ -* — 


* ^ 1. — ^ «_ « « 

24,25 1 2 1 X'xxxx' - CUi^.. 

26 1 1 1 5C'00' - Not Used by DCS. 

27 1 1 1 X'03' - Buffer Tvpe Id (X'03' = FLE) . 
28-177 1 15C 1 Check Read Buffer. 

178-187 1 10 1 First 10 FIB Error Positions, left justified. 



L •, JL X 



J 



Figure 44. FLE/Check Read Buffer Cff-Load Reccrd Forirat on IJSYSRC for 3211 



130 DOS/ys Error Recovery and Reccrding Transients 



first Reccrd 



-. , ^ _^- 



Eecimal | | 

Eisplaceir.ent j Byte Length | CcEterts/Descripticn 

^ „^ --4 ^ ^^^4 ^ ^ 

1 1 1 X'91' - Type 3 I/O Device Record. See byte 
1 1 displaceirer.t 4 fcr (5evice type and fcyte 

1 1 displacerrent 27 for buffer type id. 

1 1 1 1 E'OOlxxxxx' - ECS/Release Level. X'22' is DOS/Release 
1 1 28. 

2 1 1 1 X'80' - Reccrd Indeper<:ent Switches. 

1 1 Bit 0=1: Another record to fcllovv. 

1 1 Bit 4 = 0: Tiire field is in tiirer units. 

3 1 1 1 X'OQ* - Record Dependent Switches. This byte not used 
1 1 in this reccrd type. 

4 1 1 1 X'04' - Record Dependent Switches. X'04' = 3211 
1 1 Printer. 

5 1 1 1 X'OO' - Reserved Record Dependent Switches. 

6 1 1 1 ^•12' - Reccrd Nc. cf Tctal Records CI cf 2). 

7 1 1 1 }<«00« - Reserved. 
8-11 1 4 1 )('00YYEDEF' - Eate. 

12-15 1 4 1 }('xxxxxxxx' - Tirrer Units. 

16 1 1 1 }(*00' ~ Reserved. 
17-19 1 3 1 X'xxxxxx* - CPU Serial Nurrber. 
20,21 1 2 1 X'xxxx' - CPU id. 

22,23 1 2 1 X'OOOO' - l^^CEL Length. 

_ ^ _ , \ . 1 , _^ «. „ 


- — ^^ - — ^ _ — — - 

24, 25 I 2 1 }<»xxxx' - CUA. 

26 1 1 1 X^OO* - Not Used by DCS. 

27 1 1 1 i(«02« - Bluffer Type Id (X'02' = FCE) . 

28 1 1 1 forms control i^ddress Register. 
29-199 1 171 1 ICB. 



|H| 
|E! 

W\ 

|R| 



L J. Jl , . , ^ ^«- 



Second Record 



r-*T- 



I I 
|H| 
|E| 

|D| 
|E| 
|R| 



Header same as First Reccrd except: Eyte displacerrent 2 = X'CC* 
indicate no more records to follow); fcyte displacem.ent 6 = X'22' 
record 2 of 2. 



(bit 0=0 tc 
to indicate 



I 



24,25 I 

26 I 

27 I 

28-36 I 
X. 



X'xxxx* - CU2^. 
X'OO* - Net Used by 
X*02' - Buffer Type 
FCB. 



ECS. 
Id (X' 



02* = FCE) 



Figure 45. FCB Cff-Load (Jcfc Cancel Ccnditicn) Reccrd Fcrirat en IJSYSRC fcr 3211 
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r~ 



Hi 



|E| 
iHi 



K^ 



^ -J. ^ , 

Decimal | | 

Cisplaceirent | Byte Length | Ccnterts/Descripticn 
^ + 4 „^ 

I I 1 I x'91' - Type 3 I/O Device Record. See byte 

I I I displaceirent ^ for device type and tyte 

I I I displaceirent 27 for buffer type id, 

I 1 I 1 I E'OOlxxxxx* - DCS/Felease Level. X'22' is DOS/Release 

I I I 28. 

I 2 I 1 I X'OO' - Device Independent Switches. 

I I I Bit 0=0: Nc rrore records to follcvv. 

I I I Bit 4 = 0: Tirre field is in tiirer units. 

I 3 I 1 I X'OO* - Record Dependent Switches. Ihis byte not used 

I I I in this record type. 

I U I 1 I X'04' - Record Dependent Switches. X'04* = 3211 

I I I Printer. 

I 5 I 1 I X'OO' ~ Reserved Record Dependent Switches. 

I 6 I 1 I X'll' - Reccrd Nc. cf Tctal Records (1 of 1). 

I 7 I 1 I X'OO' - Reserved. 

I 8-11 I 4 I X'OOVYEDDF' - Date. 

I 12-15 I 4 I X'xxxxxxxx' - Tiir.er Units. 

I 16 I 1 I ]<'00' - Reserved. 

I 17-19 I 3 I X'xxxxxx' - CPU Serial Nurrber. 

I 20,21 I 2 I X'xxxx' - CPU id. 

I 22,23 I 2 I X'OOOO' - MCEI Length. 

X + 1 

24, 25 I 2 I }{'xxxx' - CUi^. 

26 I 1 I X'OO' - Not Used by DCS. 

27 I 1 I X»00' - Buffer Type Id (X'OO' = FCAR). 

28 I 1 I Forms Control Address Register 



L 



X X 



J 



Figure 46. FCE Cff-Load (Condition other than Cancel) Record Format on IJSYSRC for 3211 



132 DQS/VS Error Recovery and Reccrding Transients 



Hi 



lEJ 
\h\ 

|D| 

[ ^ i 



[-' 



, . ^« ^^ — ^ , ^ — ^ , 

Eecimal | ( 

Eisplaceirent j Eyte Length | Contents/Description 
^ ^^ + ^„ 

1 1 1 1 5?'91' - Type 3 I/C Eevice Record. See Eisplaceirent 4 
1 j 1 fcr device type. 

1 1 1 1 1 :k'001xxxxx' - ECS/Release Level. X«22' is EOS/Release 
1 1 1 28. 

1 2 1 1 1 E'OOCOOOCO' - Record Irdependent Svvitches. 
1 1 1 Bit = 0: No irore records to follcvv. 
1 1 1 Bit 4=0: Tirre field is in tiirer units. 
1 3 1 1 1 X'OO* - Unused Record Eependent Sv«itch in this record 
1 1 1 forirat. 

1 4 1 1 1 £• 00001000' - Record Eependent Svvitches. 
1 1 1 Bit 4=1: Eevice type is 2715. 
I 5 1 1 1 X'OO' - Reserved Record Dependent Svvitches. 
[6 1 1 1 X'll' - Record Nc. of Tctal Records (1 cf 1). 
1 7 1 1 1 X'OO' - Reserved. 
1 8-11 1 4 1 X'OOYYEDEI' - Eate. 
i 12-15 j 4 j X'xxxxxxxx' - Tirrer Units. 
1 16 1 1 1 X'OO' - Reserved. 
1 17-19 1 3 1 X'xxxxxx' - CPU serial Nurnber. 
1 20,21 1 2 1 X'xxxx' - CPU id. 
1 22,23 1 2 1 KCEL Length (X'OCOO'). 
X -.X- - - 4. - - 


J. _^-. • -. — ^ — «. « 

24, 25 1 2 1 X'xxxx' - CUi^ . 

26,27 1 2 1 Station Id. 

28-30 1 3 1 Eate. Date-tiire stairp for first group of seven 

31-34 1 4 1 Tiire. records 

35 1 1 1 Error Type. 
36-38 1 3 1 Logical Record. 

39 1 1 1 Error Type. 
40-42 1 3 1 Logical Record. 

44-46 1 3 1 Logical Record. 

47 1 1 1 Error Type. Seven 4-fcyte records 
48-50 1 3 1 Logical Record. 

51 1 1 1 Error Type. 
52-54 1 3 1 Logical Record. 

55 1 1 1 Error Type. 
56-58 1 3 1 Logical Record. 

59 1 1 1 Error Type. 
60-62 1 3 1 Logical Record. 

63-65 1 3 1 Eate. Date-tiEe stairp for second group cf seven 
66-69 1 4 1 Tiire. records 
70-97 1 28 1 Sarre as tytes 35-62 (i.e., 7 fcur-tyte records 

1 1 consisting cf 1 errcr-type byte and a three-byte 
1 1 logical record) . 



L X 



X 



J 



Figure 47. 2715 Record Forirat on IJSYSRC 
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R 


hrl 


(jj 


H- 


^ 


U2 




ci 




H 


D 


(D 


O 




CO 


4=- 


\ 


cr» 


< 


• 


CD 




W 


O 


H 


< 


M 


fD 


O 


li 


N 


<J 




H- 


» 


fD 


fD 


^ 


O 







O 


<t 


hh 


fD 




h 


rt 


^<: 


irr 




(T) 


0) 




M 


G 


Qj 


tn 




fD 


w 




fD 


O 


O 


hh 


O 




H 


d- 


Cb 


D- 


p. 


fD 


a 




ua 


CD 




rt 


H 


QJ 


H 


ft 


QJ 


M- 


3 


W 


0) 


d- 


M- 


H- 


m 


n 


3 


QJ 


rt 


K-" 


0) 






O 




QJ 




rt 




QJ 




n 




o 




c: 




3 




rl- 




fD 




h{ 




cn 




rr 




k: 




o 




0) 




<r! 




p. 




O 




fD 




U) 



BYTE DISPLACEMENT 
INTO COUNTER 





1 


2 




3 


4 


5 


6 


7 




AREA (HALF- 
BYTE) COUNTER 


TEMP 
READ 


TEMP 
WRT 


INTER- 
VENTION 
REQUIRED 


BUS 
OUT 
CHECK 


EQUIP- 
MENT 
CHECK 




NON 
RCVY 


BROKEN UN- 
TAPE SAFE 


LATE NO 
STACKER DOC 
SELECT FOUND 


LINE "^ 


Y 

TRACK "^'^^"^^ 


CHAN 
DATA 
CHECK 


BYTES 8 AND 9 
ARE ZEROS 


2671 

3210,3215 

1017 

1018 

1403, 1403 U 

1443 


X 
X 
X 
X 
X 
X 


X 

x 
x 

X 

x 

X . 


> 

y 

X 
X 
X 
X 


X 
X 
X 
X 
X 
X 


X 
X 
X 
X 
X 
X 






X 
















X 
X 
X 
X 
X 
X 


















POS 

CHECK 






















2495 


X J 


x 


X 


X 


X 




X 


















X 












^ 






UNCMD 
SEQ 






















2540 R. 2540 P 3881 


X 


x 


X 


X 


X 




X 






J 












X 
















OVER- 
RUN 


NON 
RCVY 


^ 




















1287 

1288 

UNSUPPORTED 

2501 

1442N1,N2/2596 

2520 

2520 B1/B2/B3 


X 
X 
X 
X 
X 
X 

_x 


x 

X 

x 
x 

X 
X 
X 


X 
X 
X 
X 
X 
X 
X 


X 
X 
X 
X 
X 
X 
X 


X 

X 

X ^ 

X 

X 

X 

_ x_ 


X 
X 
X 

X 
X 
X . 


X 
X 






X 


X 
X 




X 
X 






X 
X 

X 
X 
X 


















AUTO 
SEL 






















1419, 1419 P/S 


X 


X 


X 


X 




X 


X 


















X 


















TRACK 
CONDENSE 


SEEK 
CHECK 






SERIAL 
DATA 
SET ERASE 




ALU 










2311,2314.2321.3330 


X 


X 


X 


X 


X 


X 


X 


■ 
X 


X 




X 


X 


X 


X 


X 


X 










USCAR 
SYNC 




PSE 
SYNC 


PI RT 
FAIL 


SKEW 


COM- 
MAND 
REJECT 


SERV 
AID 


COM- 
MAND 
RETRIED 


COMMAND 
SUPPRESSED 














3211 






X 


X 


X 


X 


X 


X 


^ 


X 


X 















Note 1 See individual record formats for 3410, 3420 and 2400- series Tapes 

The SDR counters for certain DASD errors may not match the I/O retry counters 



I counter j condition 




No Record Found (\^ith ID CRC Error) 
No Record Found (without ID CRC Error) 
Fast or Slow Index 
Address Mask IE Failure 
Data AM Incorrect 
Data CRC Error 
Da.ta Overrun 
Eus Out Check 



j 8 one-byte counters are used (8 tytes) . 



Figure 49. 3540 Use of Statistical Data Counters 



I event 
i-— 



I counter 



I condition 



j intervention 


1 1 


Separator Jam Switch 


1 required 


2 


Separator Timeout 




3 


Document Tec Lcng 




4 


Aligner Section Timeout 




5 


Intermediate Transport Timecut 




6 


Stacker Select Error 




7 


Hopper Not In Position 




8 


Serial Num Update Check 




1 9 


Stacker A Jam 




10 


Stacker E Jam 




1 11 


Intermediate Transport Overrun 




12 


Step Motor Stop Error 




13 


Stacker A Cr E Jam 




14 


Stepping Meter Start Error 




1 15 


Stepping Meter Speed Error 




16 


Increment Timeout 




17 


Stacker Sel Jam 




1 18 


Clutch Fail To Pick 




19 


Not Used 


1 equipment check 


20 


Traverse Limit Switch 




1 21 


Traverse Time Overrun 




22 


Traverse Emitter Error 




23 


Traverse Speed Error 




24 


Traverse Scan Pitch Control Er 




25-26 


Not Used 


I irark check 


27 


Line Mark Kot Complete 




28 


Serial Numter Print Check 




29 


Line Mark Print Check 




30 


Line Mark Detect Error 


t 


31 


Line Mark Miscompare 


1 

1 incomplete scan 


32 


Character Cut Cf Scan 




33 


Field Delimiter Not Found 




34 


Character Cn Field Eeundary 


1 


35 


Video Cverrun 


1 


36 


Character Euffer Overflow 




37 


Noise Check 


1 


38 s 


Not Used 


I ncn recovery 


39 1 


Read Station TM. Check 




40 


Line Mark Bequest Error 



I 40 four-bit counters are used (20 bytes) 

L , 



Figure 50, 3886 Use of Statistical Data Counters 
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|H| 

|E| 

|E| 
!R| 



Eecimal | | 

Eisplaceirent j Eyte Length | Conterts/Eescripticn 

+ 4 

i 1 1 iC'50' - IPL Record Key. 

1 1 1 1 E'OOlxxxxx' - ECS/Release Level. X'22' is EOS/Release 
1 1 28, 

2 1 1 1 E'OOCOOOOO' - Record Independent Svvitches. 
I 1 Bit 0=0: No irore records to follow. 

1 1 Bit 4 = 0: Tirre fiel(5 is in tiner i:rits. 

3 1 1 1 X'OO' - Record Eependent Switches. Ko rreaning in IPL 
1 1 record. 

4,5 1 2 1 X'OOQO' - Reserved Record Dependent Switches. 
6 1 1 1 X'll' - Reccrd Nc. of Total Records (1 cf 1). 

7 1 1 1 X'OO' - Reserved. 

8-11 1 4 1 X'OOYYDDDF' - Eate. 
12-15 1 4 1 iCxxxxxxxx' - Tirrer Units. 

16 1 1 1 i('00' - Reserved. 
17-19 1 3 1 X'xxxxxx' - CPU Serial Nurrber. 
20,21 1 2 1 iC'xxxx' - CPU id. 
22,23 1 2 1 X'OOOO' - WCEL Length. 
1 ^_j. 


^ — - ^^ — « — 

24 1 1 1 Si3bsysterr Id. 
25-27 1 3 1 X'QQOQOQ' - Unused. 
28, 29 1 2 1 Reason Code. 
30,31 1 2 1 Channel Map. 

32-39 1 8 1 X'xxxxxxxxOOCCOOCO* - Channel Type Assigrrrents . 
40-43 1 4 1 Highest Storage Address. 
44-47 1 4 1 X'OOCOOOOO' - Unused. 



J. 



-I 



Figure 51. IPL Record Forirat on IJSYSRC 



Hi 



Eecimal 








Eisplacemtent 

_ I 


Eyte Len 

L 


gth 


1 Contents/Description 

.X - 




— 




.^ ^ 





1 




1 X'80' - Systeir End of Eay (SECE) Reccrd Key. 


1 


1 




1 E'OOlxxxxx' - ECS/Release Level. X'22' is ECS/Release 

1 28. 

1 E' 00000000' - Record Independent Switches. 


2 


1 










1 Bit = 0: Nc irore records to fcllcw. 








1 Bit 4=0: Time field is in timer units. 


3 


1 




1 X'OO' - Record Eependent Switches (nc meaning in 
1 System End of Day record) . 


4,5 


2 




1 5('00C0' - Reserved Reccrd Dependent Switches. 


6 


1 




1 X'll' - Record No. of Total Records (1 of 1). 


7 


1 




1 ii'OO' - Reserved. 


8-11 


4 




1 X'OOYYEDDF' - Date. 


12-15 


4 




1 X'xxxxxxxx' - Timer Units. 


16 


1 




1 X'OO' - Reserved. 


17-19 


3 




1 X'xxxxxx* - CPU Serial Number. 


20,21 


2 




1 X'xxxx' - CPU id. 


22,23 


2 




1 NCEL Length (X'OCOO'). 



I 7\ I 

|R| 



L-X ± 



1 



Figure 52. System End of Eay (SECE) Reccrd Format on IJSYSRC 
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First Reccrd 



„ — ^ J. — . , ^ ^«« ^ 

Eecimal | | 

Displaceirent | Byte Length | Contents/Description 

__ x^« « i - « » - « ^ -. - - « 


1 1 1 1 X'lO' - Reccrd type key fcr irachine check. 

1 1 1 1 1 E^OOlxxxxx* - ECS/Release Level. X'22« is DCS/Release 

1 1 1 28. 

1 2 1 1 1 E* 10000000' - Record independent svvitches. 

1 1 1 Bit 0=1: i^.ncther reccrd tc fcllcvv. 

1 1 1 Bit 4 = 0: Time field in tiirer units. 

1 3 1 1 1 E'OxxOOOOO* - Reccrd dependent svvitches 

1 1 1 Bit 1=1: Reccrd incomplete (rrissing data vtfithin 

1 1 1 reccrd) 

1 1 1 Bit 2=1: Systeir termination 

1 4, 5 1 2 1 X'OOCO' - Reserved reccrd dependent svvitches 

1 6 1 1 1 X'12' - Record nc. of Total records (1 of 2). 

1 7 1 1 1 X'OO' - Reserved. 

1 8-11 1 4 1 X'OOYYDDDF' - Date 

1 12-15 1 4 1 ]<*xxxxxxxx' - Tiirer units. 

1 16 1 1 1 X'OO' - Reserved. 

1 17-19 1 3 1 X'xxxxxx' - CPU serial Nurrher. 

1 20,21 1 2 1 X'xxxx* - CPU Id. 

1 22,23 1 2 1 :X'OOCO' - Uni^sed. 

X , . X - L -. - - - . -. « - 


24-31 1 8 1 Program Id. 

32-39 1 8 1 Job Id. 

40-47 1 8 1 Program Status Word (PSW) . 

48-199 1 152 1 Independent logout (certains zercs). 



I D I 
|E| 
|R| 



[-' 



L X 



-X 



J 



Second Record 



r~T- 
I I 
I I 
|H| 

|E| 
1^1 
|D| 
|E| 
|R| 



Same as First Reccrd except: Byte displacement 2, hit 0=C tc indicate nc more 
records to follov*. Byte displacement 6 = X*22' to indicate reccrd 2 cf 2 . 



-T- 

I 
-X- 



24-151 



128 



I Independent Icgcut (certains zercs), 

.X ^ . 



Figure 53. Wodel 115/125 D^achine Check Reccrd Format en IJSYSRC 
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First Record 



|E| 
\A\ 

ID I 
|E| 
|R| 





— T- 




-T' 


""———"" — ""—""—""—" 


~ "~ *'■—'■"■— "~ ""■——■—■"" "^ '——'"——■'—■—■——''—'—'■—■—""■——''——■■— ~~ —■—■—'—''"■ ~~ ■—""—■ '~ "" 


Decimal 












Displaceinent 


4., 


Byte Length 


1 




Ccnterts/Descripticn 


1 


[•- 


1 


i 


X'lO* - Record type key for machine check. 


1 1 




1 




E' OOlxxxxx' 

28. 
E'lOOOOOOO' 


- ECS/Release Level. X'22' is ECS/Release 


1 2 




1 




- Reccrd independent switches. 










Bit 0=1: 


i^nother record to follow. 










Bit 4=0: 


Tiire field in tiirer units. 


1 3 




1 




E« OxxOOOOO' 
Bit 1=1: 
record) 
Bit 2=1: 


- Record dependent switches 
Reccrd irccirplete (irissing data within 

System termination 


1 ^.5 




2 




X'OOOO' - Reserved reccrd dependent switches 


1 6 




1 




X'12' - Reccrd nc. cf Tctal reccrds (1 cf 2). 


1 7 




1 




X'OO' - Reserved. 


1 8-11 




4 




X'OOYYEDEF' 


- Eate 


1 12-15 




4 




X'xxxxxxxx* 


- Timer units. 


1 16 




1 




X'OO' - Reserved. 


1 17-19 




3 




X'xxxxxx' - 


CPU serial Number. 


1 20,21 




2 




X'0135' - CPU Id. 


1 22,23 

X 


JL. 


2 


1 


X'OOOO' - Unused. 


24-31 




8 




Frcgrair Id. 




32-39 




8 




Job Id. 




40-47 




8 




Erograir Statfs Wcrd (FSW) . 


48-199 




152 




Independent 


logout. 



L 



.X X . ==__ ,^^^^^^^^^^^. — «.-.-, 



.«J 



Second Record 



I I 
I I 
|H| 
|E| 

|A| 
|D| 

|E| 
|R| 

I 



Same as First Record except: Byte displacement 2, bit 0=0 to indicate no more 
reccrds to follow. Byte displacement 6 = X'22' to indicate reccrd 2 cf 2. 



-T- 

I 

-X- 



24-151 



128 



I Independent logout. 

-X 



Figure 54. t^odel 135 l^achine Check Record Format on IJSYSRC 



138 DGS/VS Error Recovery ard Reccrdina Transients 



First Record 



H 



^ — ^---^ — . -^-^ ^ ^ . . 

Eecimal | | 

Displaceirent j Eyte Length | Contents/Description 

^ +. + ^ 

I I 1 I X'lO* - KachiE€ Check Eeccrd Key. 

I 1 I 1 I E'OOlxxxxx' - ECS/Release Level. X'22« is DOS/Release 

I I I 28. 

I 2 I 1 I E'lOOOCOOO* - Record Independent Sviitches. 

I I I Bit 0=1: i^ncther record to fcllc\%. 

I I I Bit t^ = 0: Time field is in tiirer units. 

I 3 I 1 I E'OxxOOOOO* - Record Dependent Switches. 

I I I If bit 1f1, record is incomplete (missing data 

I I I within reccrd) . 

I I I If bit 2=1, system termination. 

I 4,5 I 2 I X'OOCO" - Reserved Reccrd Dependent Switches. 

I 6 I 1 I X'13' - Record No. of Total Records (1 of 3). 

I 7 I 1 I X'OO' - Reserved. 

I 8-11 I 4 I X'OOYYDDDF' - Date- 

I 12-15 I 4 I X'xxxxxxxx' - Timer Units. 

I 16 I 1 I X'OO* - Reserved. 

I 17-19 I 3 I X'xxxxxx' - CFU Serial Number. 

I 20,21 I 2 I X'0145« - CPU Id. 

I 22,23 I 2 I X'OOCO* - Machine ChecK Extended Lcgcut CMCEL) Length 

I I I (decimal 192) . 

X ^-^+ ^„ ^^-+ ^^ 

24-31 I 8 I Frcgram Id. 

32-39 I 8 I Job Id. 

40-47 I 8 I FSW. 

48-199 152 Independent logout. 



L . 

Second Record 


-1- 






-X 




J. 

1 Decimal 

1 Displacement 

L„.« 


1 
1 
1 

-X- 


Byte 


Length 


1 

1 

.J. 


Ccnterts/Descripticn 



^ 

I I Saire as First Reccrd except byte displaceirent 6 = X'23' to indicate reccrd 2 of 

I I 3. 

|H| 

|E| 

|A| 

|D| 

|E| 

|R| 

|._X ,. T- \ 



I 



24-151 
152-199 



128 I Independent Lcgout 
4 8 I Dependent Lcgcut 

L 



Ihird Reccrd 



r-T- 



H| 
E| 
A| 
D| 
El 
R| 



|E| 
|R| 



Sam.e as First Reccrd except: Byte displacement 2, bit 0=0 to indicate no mere 
records to follow. Byte displacement 6 = X'33' to indicate record 3 of 3. 



-T- 

I 
-X- 



24-167 



144 



I Dependent Icgcct 

-X 



Figure 55. Model 145 Machine Check Record Format on IJSYSRC 
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first Record 



r— 


Eeciinal 


y- 




-T- 






Eisplaceirent 




Eyte Length 




Contents/Description 


Hi 




_ i . 




1 







f- 


1 


1 


X'lO' - Kachime Check Peccrd Key. 




1 




1 




E'OOlxxxxx' - CCS/Release Level. X'22' EOS/Release 

28. 
E'lOOOOOOO' - Record Independent Switches. 




2 




1 














Bit 0=1: i^ncther record to fcllcw. 












Bit 4 = 0: Time field is in tirrer units. 




3 




1 




E'OxxOOOOO' - Record Dependent Switches. 

If bit 1=1 f record incomplete (missing data within 

record) . 

If bit 2=1, system termination. 


|H 


14,5 




2 




X'OOCO* - Reserved Reccrd Dependent Switches. 


|E 


6 




1 




)('18' - Record No* of Total Records (1 of 8). 


1^ 


7 




1 




JC'OO' - Reserved. 


|D 


8-11 




4 




X'OO^YDDDF' - Date. 


|E 


12-15 




4 




X'xxxxxxxx' - Timer units. 


|R 


16 




1 




X'OO' - Reserved. 




17-19 




3 




X'xxxxxx' - CPU SERIi^I Number, 




20,21 




2 




X'0155' - CPU id or X'0158'. 




22,23 




2 




^•03E0' - Machine Check Extended Lcgcut (MCEI) Length 
(decimal 992). 


F-^ 


L_ ^, 


_ ±- 




f 




24-31 


f- 


8 


1 


Program Id. 




320S39 




8 




Job Id. 




40-47 




8 




PSW. 




48-193 




152 




Independent logout. 



L X- 



X .^ 



Second Record 



J.™.. y ^- 

I Decimal | | 

I Displacement | Byte Length | 

X X- 



Ccntents/Descripticn 



I I Same as First Record except byte displacement 6 = X'28' to indicate record 2 of 

I I 8. 

|H| 

|E| 

|A| 

|D| 

|E| 

|R| 

|..X ^ -. 

I 24-151 
I 152-199 

L 



'i 



^ 



128 I Independent logout 
48 I Dependent Logout 

X 



Third Reccrd - Seventh Record 



I I 
I I 
|H| 
|E| 
|A| 
|D| 
|E| 

|R| 
|.-X. 



Same as First Record except byte displacement 6 = X'38' - X'78' tc indicate 
records 3 of 8 through 7 of 8. 



I 
-X- 



24-199 



176 



I Dependent Logcut 

-X . . .. — . — 



Figure 56a lyiodel 155-11/158 B^achine Check Reccrd Format on IJSYSREC (Fart 1 of 2) 



140 DGS/VS Error Recover^ and Reccrding Transients 



Eighth Record 



I 
I 
HI 
E| 
^1 
D| 
E| 
R| 



Saire as First Record except: byte displaceirent 2, tit 0=C to indicate no ircre 
reccrds to follow; byte displacement 6 = X'88' to indicate record 8 66 8. 



24-87 



64 



I Dependent Lcgc\3t 

-JL . 



Figure 56. l^odel 155-11/158 Machine Check Record Forirat on IJSYSRC (Part 2 of 2) 



ki 



^ . , ^ ^ — , ^„ . 

Decimal | | 

Displaceirent j Eyte Length | Contents/Description 

^_ ^« J X - ^ -.— . — . 


T T 1 

jo 1 1 ^^•20' - Channel Check Record Key. 

1 1 1 1 1 E'OOlxxxxx' - DOS/Release Level. X'23' is DOS/Release 

1 1 1 28. 

1 2 1 1 1 E* 00000000' - Record Independent S\(vitches. 

1 1 1 Bit 0=0: Kc Hcre reccrds tc fcllcw. 

1 1 1 Bit 4 = 0: Time field is in tiirer units. 

1 3 1 1 1 E'lxxOOOxO' - Record Dependent S\^itcbes. 

1 1 1 Bit = 1: Message required. Alviays on for 

1 1 1 Channel Check reccrds. 

I 1 1 If bit 1=1, record is incomplete. 

1 1 1 If bit 2=1, systen terminaticn. 

1 1 1 If bit 6=1, ERP in progress. 

1 4,5 1 2 1 X'OOCO' - Reserved Record Dependent Switches. 

1 6 1 1 1 X'll' - Record No. of Total Records (1 of 1). 

1 7 1 1 1 X'OO' - Reserved. 

1 8-11 1 4 1 X'OOYYDDDF' - Date. 

I 12-15 j 4 1 X'xxxxxxxx' - Tiirer Units. 

1 16 1 1 1 X'OO' - Reserved. 

1 17-19 1 3 1 X'xxxxxx' - CPU Serial Nuirher. 

1 20,21 1 2 1 X'xxxx' - CPU Id. 

1 22,23 1 2 1 X'OOCO' - MCEI Length. 

X + 4 

24-31 1 8 1 Job ID. 

32-47 1 16 1 i^ctive I/C Units at Failure. -A series cf tvvc-byte 

I 1 channel-unit addresses (Ocuu) . 
48-55 i 8 j Failing CCW. 
56-63 1 8 1 CSW. 
64-67 1 4 1 ECSW. 
68-71 1 4 1 X'xxxxOOOO' - Device Type 

1 1 68,69: DCS PUE bytes 4 and 5 
72 1 1 1 Channel Id. 
73-75 1 3 1 X'OOxxxx' - CUA. 
76 1 1 1 E'xOOOOOOO' - Reserved for DCS/EREP Use. 

1 1 If bit 0=1, I/C units are invalid. 
77-79 1 3 1 X'OOOOOO' - Reserved for DCS Use. 



|H| 
R| 



L X 



X 



J 



Figure 57. Model 115/125 Channel Check Record Forirat on IJSYSRC 



Chapter 4: Recovery Manageirent Support Recorder (RMSR) 141 



r— 


. ^ . ^^ — . ^ -„_« . . . 




Decinial 






1 


DisplaceiTient 


Byte Length 


CCEterts/Descripticn 


r— 







_ __ 

1 


X'20' - Channel Check Fecord Key, 




1 


1 


E'OOlxxxxx' - DOS/Release Level. X'22' is DCS/Release 
28- 




2 


1 


E'OOCOOOOO' - Record Irdependent Sviitches. 
Bit 0=0: Nc rrore records to fcllc\«i. 
Bit 4 = 0: Tiire field is in tirrer units. 




3 


1 


E'lxxOOOxO* - Record Dependent Switches, 

Bit 0=1: Kessage required, Always cr fcr channel 

Check records. 

If bit 1=1, reccrd is inccnplete* 

If bit 2=1, systeir terirination. 

If bit 6=1, ERP in progress. 


|H 


4,5 


2 


X'OOOO* - Reserved Record Dependent Switches, 


|E 


6 


1 


xn2« - Reccrd Nc. of Total Records (1 of 2). 


1^- 


7 


1 


X'OO' - Reserved, 


\^ 


8-11 


4 


X'OOYYDDDF' - Date. 


|E 


12-15 


a 


X'xxxxxxxx' - Tiirer units. 


|K 


16 


1 


X'OO' - Reserved, 




17-19 


3 


X'xxxxxx' - CPU Serial Number. 




20,21 


2 


X'0135' - CPU Id, 




22,23 


2 


X'OOOO* - MCEI Length. 


K^ 


t 






, -.^^.^ 









24-31 


8 


Job ID. 




32-47 


16 


i^ctive I/O Units at Failure, A series of two-byte 
channel-urit addresses (Ocuu) . 




48-55 


8 


Failing CCW, 




56-63 


8 


csw 




64-67 


4 


X'OOxxxxxx' - ECSW, 




68-71 


^ 


X'xxxxOOOO - Device Type 

68,69: DCS PUB bytes 4 and 5 




72 


1 


Channel Id. 




73-75 


3 


X'OOxxxx' - CUA. 




76 


1 


E'xOCOOOOO' - Reserved for DOS/EREP Use. 
If bit 0=1, I/O units are invalid 




77-79 


3 


X'OOCOOO' - Reserved fcr DOS use. 




80-199 


120 


Independent Logout 



L , X X 



Figure 58. Wodel 135 Channel Check Record Forirat on IJSYSRC 
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|H| 

|E| 

|H| 



^ ^ — ^ — ^„ , ^-^^ , — , ^, ^-. ^ — , — ^- , ^ ^ 

Eeciroal | | 

Eisplaceitient j Byte Length | Ccntents/Descripticn 

« 4._ L ^ _ _ « « ^ _ _ _ _ 


T — T — r — ^ • • — "• ~ • ^ 

1 1 1 X'20' - Channel Check Record Key. 

1 1 1 1 1 E'OOlxxxxx' - DOS/Release Level. X«22' is DCS/Release 

1 1 1 28. 

1 2 1 1 1 E'OOCOOOOO* - Record Independent Switches. 

1 I 1 Bit 0=0: No irore records to follcv?. 

I 1 1 Bit 4 = 0: Tiire field is in tiirer units. 

I 3 1 1 1 E'lxxOOOxO' - Record Dependent Switches. 

1 1 1 Bit 0=1: Message required. Always on for 

1 1 1 Channel Check records. 

1 1 1 If bit 1 = 1, reccrd is inccirplete. 

1 1 1 If bit 2 = 1, systerr termination. 

I 1 1 If bit 6 = 1, ERP in progress. 

I 4,5 1 2 1 X'OOOO' - Reserved Record Dependent Switches. 

1 6 1 1 1 X'll' - Record Nc. cf Tctal Records (1 cf 1). 

I 7 1 1 1 X'OO' - Reserved. 

i 8-11 j 4 1 X'OO^YDDDF' - Date. 

1 12-15 1 4 1 X'xxxxxxxx' - Tirrer Units* 

1 16 1 1 1 X'OO' - Reserved. 

1 17-19 1 3 1 X'xxxxxx' - CPU Serial Number. 

1 20,21 1 2 i X'0145' - CPU Id. 

1 22,23 1 2 1 X'OOOO' - MCEL Length (none for channel check). 

JL .^ 1 _ i « .^ , 


24-31 1 8 1 Job ID. 

32-47 1 16 1 i^ctive I/C Units at Failure. A series of two-byte 

1 1 channel-unit addresses COcuu) . 
48-55 1 8 1 Failing CCW. 
56-63 1 8 1 CSW. 

64-67 1 4 1 ECSW (X' OOxxxxxx' ) . 
68-71 1 4 1 X'xxxxOOOO' - Device Type 

1 1 6 8,69: DCS PUB bytes 4 and 5 
72 1 1 1 Channel Id. 
73-75 1 3 1 X'OOxxxx' - CUA . 
76 1 1 1 E'xOOOOOOO' - Reserved for DOS/EREP Use. 

1 1 Bit 0=1 indicates I/O units are invalid. 
77-79 1 3 1 Reserved fcr ECS Use. 
80-175 1 96 1 Channel Logout. 



L X 



X . ^ , — ^ J 



Figure 59. Kodel 145 Channel Check Record Format on IJSYSRC 
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r— J.- 



|E| 
\h\ 

IRI 



(..i 



isplaceirent | Eyte Length | Contents/Description 

, 1 1 . ^^^^ ^^^^^^^ — .^^^^^^^^^^ = ^^^.^^^^^^^^^^^^^^ — .- 

I 1 I X'20' - Chanrel Check Eeccrd Key. 

1 I 1 I E'OOlxxxxx' - DCS/Release Level. X'22' is DOS/Release 
I I 28. 

2 I 1 I E' 00 0000 00' - Record Independent Svvitches. 
I I Bit 0=0; Kc iicre reccrds tc fcllc^v. 

I I Bit 4 = 0: Time field is in tiirer units. 

3 I 1 I E'lxxOOOOO' - Record Dependent Switches. 

I I Bit 0=1: Message required. Always on for Channel 

I I Check reccrds. 

j I If bit 1=1, record is incomplete. 

I I If bit 2 = 1, systeir termination. 

I I If bit 6=1, ERP in progres. 

4,5 I 2 I X'OOCO' - Reserved Record Dependent Switches. 

6 I 1 I X'll'- Record No. of Total Records (1 of 1). 

7 I 1 I X'OO' - Reserved. 
8-11 I 4 I X'OOYYDDDF' - Date. 
12-15 I 4 j X'xxxxxxxx' - Tiner units. 

16 I 1 I X* 00 - Reserved. 
17-19 I 3 I X'xxxxxx' - CPU Serial Nuirfcer. 
20,21 I 2 I X'0155' or X'0158' - CPU Id. 
22,23 ! 2 I X'OOOO' - MCEL Length. 
+ 4 

24-31 I 8 I Job Id. 

32-47 I 16 I Active I/C Units at Failure. A series cf twc-hyte 

I I channel-unit addresses (Ocuu) . 

48-55 I 8 I Failing CCW. 

56-63 I 8 I CSW. 

64-67 I 4 I ECSW. 

68-71 I 4 I X'xxxxOOOO' - Device Type 

I I 68,69: DCS PUB bytes 4 and 5. 

72 I 1 I Channel Id. 

73-75 I 3 I X'OOxxxx' - CUA. 

76 I 1 I E'xOOOOOOO' - Reserved for DCS/EREP Use. 

I I If bit 0=1, I/C units are invalid. 

77-79 I 3 I X' 000000' - Reserved for DOS Use. 



I X 



X 



J 



Figure 60. Model 155-11/158 Channel Check Reccrd Format on IJSYSRC 
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EEIAIL CriARTS 



retail Charts 145 



Chart MA. $$ABERRK - Unit Check Record Builder (Fart 1 cf 2) 
Refer to Charts 06 and 07. 



* $i;aberrk * 

♦ * 

4i # )|( 4e )K « 4c « «< «:!> 4c # 4: # 



MAINOO 

**4!**c 1********** 
♦TNTTOO HA* 

4(-4c-*- 4'-*- *-♦-♦-* 

* INITIALIZE * 

♦ PHASE * 

«4(*4>«**4c4c***^«:*^* 



FILE OPEN *, NO 
AND READY .*. ,. 



.♦. 

Fl *. 

.* *. 

RECORDING * 

REQUIRED 

*. .♦ 



MATN05 

4c 4<4<**F1 ********** 
♦DEVDOO MB* 

4c-4c-*-*-4c- *-*-*-* 

* BUILD DEVICE * 

* DEPENDENT * 
+ DATA * 
4c4c4<************** 



Gl *. 

.* *, 

SHORT *. 
FORM 

•REQUESTED,* 



**** 

♦ * 

♦ B2 * 

♦ ♦ 
*♦*♦ 



* BUILD LONG * 

* FORM RECORD * 

* *A4 * 

* * 
4c«4<*** *********** 



**C2******* 

* SET LONG * 

FORM IN 
RFRDSWl 
(X'OOM 

* ♦ 

# 4c 4c 4t ******* 



4(4<**#D2 ********** 

* GET LENGTH * 

* OF RECORD * 

* IN REG ♦ 

* WORKZ * 

* * 
4c*«4(************* 



4c4c4i4iA3********* 

* * 

* INITOO * 

* « 
*************** 



INITOO 

4c4c***B3**** ****** 

* SET DP PHASE * 

* REGISTER * 

* USAGE * 

* * 

4e«4c 4c 4c**** ******** 



,* 



.* 



4c 4c 4c 4: 4:H1 ********** 

* HOVe SHORT * 

* RECORD TO * 

* DATA AREA, * 

* GET LENGTH * 

* IN PEG WORKZ * 

4c 4c 4c4i****** ******* 



4c4'Jl*4t***** 

* SET SHORT * 

FORM IN 

RFRDSWl 

{X»60' ) 

4c 4c 

4c«4c4c*4c4c*4c*4( 



* E2 *.X 



**** 

EXITOO X 

4c4>E 2 ******* 

* RESET * 

* REQUEST 
♦ FLAGS IN 

* RFFLAGS3 

* * 

4c 4c 4c 4c 4c 4c 4c 4!4c 4c 4c 



4c 4c 4c*4>F2 ********** 

*SETUP CONSTANTS* 
*IN PFTABLE FOR * 

* USE BY * 

* RECORD WRITER * 

4c * 

4c4c4c*****4c4c**4:***4c 



«4<4c^G2 ********* 

* EXIT TO * 
*FETCH $$A8ERA6 * 

* CHART MG * 

4c 4c 4c************ 



4c4c4<**H2********** 

* SET UP ♦ 

* RFEXIT WITH * 

* $$A8ERRL AS * 

* NEXT PHASE * 
4c * 
4c 4c*************** 



**J2******* 

* RESET * 
REQUEST 

FLAGS IN 
RFFLAGS3 

* * 

4c4c4c4c******* 



♦«**K2 ********* 

* EXIT TO FETCH * 
*PHASE SPECIFIED* 

* IN RFEXIT * 
4c4c4c*4c**4'******* 



RMSR 
SUPPORT 



*A4 
VIA BAL TO 
9I.DLF00, 
WHICH IS NOT 
FLOWCHARTED. 



INIT15 

«4>***B4********** 

* SET UP * 

* CONSTANTS ♦ 
esX* AND HAP TT ♦ 

* PUB2 TABLE * 

* ♦ 
4c4i4i4i«>4i«c4c4'******** 



♦****C4********** 

* SAVE RFTABLE * 

* AMD PUB 2 ♦ 

* TABLE * 

* ADDRESS * 

* * 
4t4:«4i4i4t*********** 



MESSAGE CODE TABLE CONTAINS 
A LIST OF ERROR CODES FOR 
WHICH NO RECORDING IS MADE 
C^OES AND MEANINGS AREO 
.X«08»-INTPRVENTT0N ^EQUIPEO 
.X»17«-FILE PROTECT 
•X'lB'-COMMAND REJECT 
.X»22«-8ALLAST CELL 
.X«23'~8LANK STRIP 
.X»24'-PRnGRAM CHECK 
.X»25»-PR0TECTI0N CHECK 
.X»26«-INVALT0 SEEK ADDRESS 
.X'3l«-N0T OPERATIONAL 
,X»34'-8ATCH NUMBERING 
SWITCH OFF 



INIT05 K 




4c4c4:**D3********** 


* GET PUB OF 




♦ DEVICE IN ERR 




* AND ADDR 




* OF DEVICE 




* TABLE 




4c4c*4c4c4i***4i4i4t«t**** 


*♦♦♦ I 




* * . 




* E3 *.X. 




♦ * , 




**** X 




INITIO .*. 




E3 *. 




.* *. 




.* END * 




*. OF 


,* 


*. TABLE .* 





DEVICE *. 
TYPE .♦ 

HATCH .* 



4c 4c4i:4c*G3**** ****** 

* ♦ 

* UPDATE BUFFER * 

* TO NEXT ENTRY * 

* IN TABLE ♦ 

* * 
4c4c«4c************* 



**** 

♦ 4t 

♦ E3 * 

♦ * 



.* RECORDING *. YES 


*. ALREADY .* 




*. REQUESTED.* 




*, ,* 




*. .* 


X 


* NO 


**** 


* 


* * 




* J4 * 




* ♦ 


. 


**** 


X 


• *. 


4c 4c 4c 4c* E4********** 


F5 *. 


* SET RFEXIT * 


.♦OFVICE ♦ 


* TO CALL * 


.*NOT IN REC 


* S6ABFR9L *< 


, X*. MODE OR 


* (ERP MESSAGE * 


*. UNSUPP 


* WRITE") * 


*. « * 


4c4c4t4c4c*:4c4c4c4c**4c**«« 


*. .* 



* POINT TO * 

* MSG CODE * 

* TABLE * 

* *A5 * 

4(4c:«:4i*** ********** 



**** 

* * 

* G4 *.X 



END OF 
MSG CODE 
. TABLE . 

♦ • «* 



INIT30 X 


.♦. 


4C4CH4******* 


HS *, 


* POST ERP ♦ 


.♦ ♦* 


* TO BE * 


YES .* COOES *. 


* RECORDED * 


......*. ^fkTZH .* 


* IN RFFLAGS3 * 


. *. .* 


* * 


*. . * 


4c4c*4c**4(**** 


. *. .* 




* NO 


**** 






* * 


'x« ••••••••• 




* J4 *.X 






* * 






***♦ 




, 


INIT35 




X 


X 


4c 4c4c 4c4c J5 4c4<** ** **** 


4c4(4c*J4********* 


* UPDATE * 


* RETURN * 


* POINTER * 


» TO LINK * 


* TO NEXT ENTRY * 


* ADDR * 


* IN MSG CODE * 


«:4c4c***********4c 


* TABLE * 






4c4c«c4c4c 4c**4c 4c4e4cM>* ** 
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Chart MB. $$AEERRK - Unit Check Record Builder (Part 2 cf 2) 
Refer to Charts C6 and C7. 



♦♦♦♦A l******#*« 

* * 

* OEVDOO * 

* ♦ 



DEVDOO 

* ByiLD DEVICE ♦ 

* DEPENDENT ♦ 

* PORTION OF ♦ 

* LONG AND ♦ 

* SHORT FORM * 
»««4[](^*4e4c*4;4i«***** 



1287 *. YES 

OR 1419S .*.... 

*. .* 

♦ . «* 
* NO 



X 

.♦. 



DEVDIO 

*4c«*4c (^2 ********** 

* ADJUST SDR * 

* COUNTERS * 
...X* FOR THIS *• 

* DEVICE * 



*4'*4c*4<4'*****4c«*** 



0EV020 

«*4c**D2********** 



* SET UP * 
X* I/O ADDRESS * 

* (PUBCHANN! * 

* * 

**4c*4c 41 *********** 



*4i4'**C3********** 

* MOVE SDR * 

* COUNTERS * 
.X* TO SHORT ♦ 

* RECHRO * 

* ♦ 

*4i4c4i4c*«4e*4(******* 



X 
• *• 
El * 
.* 
.* 2311 
OR 
*. 2321 
*. 



*. YES 
•*. ... 



4>*4c#*E2********** 

* SET MODULE * 
*ID AND CORRECT * 

* SHORT UNIT * 

* ADDRESS * 

* * 

4r*4>******4c*4c*4t*#« 



* ADJUST SDR * 

* COUNTER 16 * 

* FOR UNIT ROD * 
*AND UNSUPPORTED* 

* DEVICES * 

*4e**************4> 



DEV030 X 

4e*4c**F 2 ********** 



4c4n*««**********«:* 



DfVOOS 

*4c4c**H 1 **♦♦♦♦*♦♦♦ 

* * 

* MOVE SDR * 

* COUNTERS *. 

* TO SHORT * 

* RECORD * 
4c#4E«*4c4t4»^«4'***4c** 



* RESET * 

* THE * 

* COUNTERS * 

* * 

**#*4[4c*4t«:4:**4c**** 



4i4>**H2 ********* 

* RETURN * 

* TO * 

* LINK ADOR * 
4t4c*4c*********:*« 
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Chart MC. $$AEERA4 - Unit Check Record Builder (Part 1 cf 2) 
Refer to Chart 07. 



♦ $*ABERA4 ♦ 



♦♦** 










EXITOO X 








ilitA2******il' 








* RESET * 


4E4i«4tA3*4'**^4'4'** 






♦ REQUEST * 
♦ FLAGS IN ♦ 


* * 






* INITOO * 






* RFFLAGS3 * 


* ♦ 






* * 


■^:f************* 




**** 


4i4c4>*4<*4(*4i4>4< 






♦ 4^ 










* B*) * 








♦ *** 


* * 


* 






♦ * 


♦♦** 








* B4 *.., 


, 








* * , 










♦ *** 




X 


INITOO X 


IMIT30 X 


INTT15 X 


inii^nni%2********** 


i^iftmifB'i********** 


**B4**«***« 


4c«4:4c4ip(t^ 4t4'4>*:4'*4:!^4t4E 


* SAVE LEKGTH * 


* SET UP PHASE * 


* POST ERP * 


* SPT Uf> ♦ 


* AUD * 


* REGISTERS * 

* IF OMSR NOT * 


* TO BE * 


* TlhlSTAMTS * 


♦ ADDRESS OF * 


* RECORDED IN * 


* ^ND POINT * 


* RECORD DATA * 


♦ SUPPORTED EXIT * 


* PfFLAGS3 * 


* rn 01JB7 * 


♦ FOR WRITER * 


* TO $$ABERRL ♦ 


* * 


* TARLF * 


*4<*-4i4<«4i4>*4'*4t4>*«4'* 


4t4i4<4t»*4'*4' ♦#*♦♦*«* 


4c4t4>4t4c4E4i4<4'«4i 


«4c4e4t4t:*c**««4e«:4:«4:*« 



MAINOO 

♦INITOO MC* 

♦ INITIALIZE ♦ 

♦ PHASE * 

♦ ♦ 



.♦ ERROR 
!«. TO BE 

♦.RECORDED 



X 


INIT05 X 


♦♦C2 *♦♦♦*♦♦ 


««*4>:#:C3 ***««♦♦♦♦* 


SET RFRD SW2^ 


♦ GET PUB OF ♦ 


♦ TO X»00' ♦ 


♦ DEVICE IN ♦ 


♦ SET NUMBER ♦ 


♦ ERROR. GET ♦ 


♦ OF RECORDS ♦ 


♦ AOOR OF * 


♦ ♦ 


♦ DEVICE TABLE ♦ 




^^^^^^^'♦♦♦♦♦♦♦♦♦l' 






♦♦♦♦ I 






♦ ♦ . 






♦ D3 ♦.X. 






♦ * , 






♦♦♦♦ X 






INITIO .♦. 


X 


03 *. 


♦♦♦♦02 ♦**♦♦♦♦♦♦ 


,♦ ♦. 


♦ SVC 5 ♦ 


.♦ eno ♦. 


♦FETCH $$ABERAl ♦ 


♦ . OF TABLE .♦ 


♦ CHART MH ♦ 


♦ . .* 


4t4c««4:a|4! 


|t4<4c4t4E*^* 


♦ • .♦ 



♦ * 

♦ E4 * 

♦ ♦ 

♦ ♦** 

..xl 



MAIN05 X 

♦DEVDOO ^0* 

♦ BUILD DEVICE ♦ 

♦ DEPENDENT ♦ 

♦ DATA ♦ 
♦^^'♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ BLDLFOO MD^ 

♦ BUILD LONG ♦ 

♦ FORM OF ♦ 

♦ RECORD ♦ 



E3 



*f 



• ♦ 

♦ NO 



*4i4i4t|f: 2 ♦♦♦♦♦♦♦♦♦ 

♦ SVC 5 ♦ 
♦FETCH $$ABERRL ♦ 

♦ CHART QA ♦ 
Hfittt** ********** 



.♦ 
♦ . 
♦ • 



♦ . NO 
.♦. .. 



*****[^l********** 
♦DEVD35 MD^ 

♦ 8UIL0 * 

♦ ADDITIONAL ♦ 

♦ DATA FOR 3886 ♦ 
*if*************** 



.♦ DEVICE 
TYPE 
♦ . MATCH . 

♦ , ,♦ 

♦ • •♦ 
♦ NO 



*****f^********** 

♦ * 

♦ POINT TO ♦ 

♦ NEXT ENTRY ♦ 

♦ IN TABLE ♦ 

♦ ♦ 

^c*:tL************** 



**** 

♦ ♦ 

♦ 03^ 

♦ * 

♦**♦ 



T35 X 

**^iy*****im 

* TURN OFF * 

♦ E^^R TO BE 

► PECHRDEn TN 

♦ RFFLAG<-3 

♦t * 

********^f^iH 



.♦ RFCOPOTN^^ 

*. REQUFSTFD 

*. ALREADY . 



:^ !<t4e )(e4< 9 5 )«( * 4c « ]«c « «4e if; 4c 

* SpT PFPWIT « 

* "^n CALL * 

* S^ABFORL * 

* <FRP MFSSAf^F * 

* WR|TFR) * 

i^*if:**'tf***-ttc*****iti* 



.* Pf-i DKlllNr, w, f FS 



DEVTCF 

A 

3211 



*-^f***Q/^*ili***st,1^^if^ 

* * 

* SET PFEXIT * 

* T'j CALL * 

* S.^ABFPPO * 

* ♦ 

*iicit:********i)(**it^** 

**** 









* F4* 






* * 






**** 




y 






«4c*4>*F^ ♦♦♦♦♦♦♦♦ 


** 




* PRTNT opr; 14 


* 




* in mfs'^a';f 


* 




* Cioe TABLE 


* 




* *J^ 


* 




* 


ft 




:«:4(«*^^4: >»:««♦ *4c^1!<^^ 




**** 








* * 








* '~5 *. X 








* * 








***ih X 




TN 


TT25 .*. 






.* FNO * 


. YES 




*. OP 


.*.... 




*. TABLF .* 





MAIN07 X 

♦♦J !♦♦♦*♦♦♦ 
♦SET RECORD ♦ 

♦ DEP SHS FOR ♦ 
♦ LONG FORM AND 

♦ UNIT CHECK ♦ 
» RECORD ♦ 

*********** 



X 

.♦. 

"1 *. 

•♦COUNTER*. 

.♦ OVERFLOH ♦. YES 

RECORD ...... 

♦. REQUEST .♦ 



♦ POST ♦ 

♦ OVERFLOW 
•X^ RECORD 

♦ SWITCH 

♦ ♦ 
*********** 



****^-i********* 

♦ SVC 5 ♦ 
♦FETCH f$ABERRP * 

♦ CHART TP ♦ 

*************** 



♦ J3 
THIS TABLE CONTAINS A LIST OF COOES 
WHICH NO RECORDING WILL BE MADE. IF THE 
INPUT ERROR CODE MATCHES O-^E IN THE LIST, 
THE RFLAGS3 BIT FOR ERROR OECQROIMG !<; 
TURNED OFF. CODES AND MEANINGS A^? EO 
.X«0B»-INTERVENTION REQIJI!?ED 
.X'17«-FILE PROTECT 
.X»18«-C0MMAN0 REJECT 
*X»24«-PR06RAM CHECK 
.X»25»~PR0TECTIQN CHECK 
.X«29«-BACK SPACE TO LOAD POINT 
.X»31»-N0T OPERATIONAL 
.X* 32 '-NON-COMPATIBLE TAPE 



MFSSAGF 
CODES 
MATCH 



* B4* 

* * 



* * 

* F4* 

*♦♦* 



4c DHTNT TO * 

* N»=XT FNTRY * 

* TN MFS<^Af^E * 

* C^nE TABLE * 

* * 



♦♦♦* 

, ♦ ♦ 

..X^ A2 ♦ 

* * 

**** 



**** 

* * 
,X* A2 ♦ 

♦ * 
**** 
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chart MD. $$AEERA4 - Unit Check Record Builder (Fart 2 cf 2) 
Refer to Chart C7. 



* ♦ 

* A4 ♦ 



«: 4t 

* DEVDOO * 

♦ ♦ 



DEVDOO 

♦CLEAR 152-BYTE * 

♦ RCD APEA. MOVE * 
*IN DEV TYPE, NO* 
♦OF RETRIES, AND* 

♦ I/n ADDRESS ♦ 
««#4c 4c 4c 4c 4c* «♦♦♦♦♦♦♦ 



« ♦ 

* BLDLFOO * 

* ♦ 
^s******* ♦*♦**»* 



BLDLFOO .♦. 

B3 ♦. 
.♦ *. 
NO .* CCB ♦. 
...♦. AVAILABLE .♦ 
*. .» 



♦*♦* 

* * 

* B4 * 

* « 



BLDLF25 X 

4e4t4c4c*A4******4i*** 

♦ MOVE PffOGRAM * 

♦ NAME FROM * 

♦ SAVE AREA * 

♦ TO RECORD * 

♦ * 
4c*4c4t4E4i*«*«4t*4<4<#** 



♦ BA ♦.X 



**** 
BL0LF3O X 

* MOVE CSW ♦ 

* TO RECORD, * 

* POINT TO * 

* PREVnUS CCM ♦ 

* * 



*4(4t«A 5 ♦♦♦♦♦♦*♦♦ 

♦ * 

♦ 0FVn35 * 

♦ ♦ 

4c4e ♦* «* *4i4t*4E4t ♦* * 



DEVD35 X 

4i4c«#*B5 4<*****4e4c** 

* MOVE U5AGE ♦ 

* COUNT INTO * 

* RECORD. RESET * 

* IT TN P'J82 ♦ 

* ENTRY * 



.* IS ♦. NO 

DEVICE .♦.., 

♦. TAPE .* 



4:4i*4r4cOL ♦♦♦♦♦♦*♦♦* 

* MOVE IN TAPE ♦ 

* INFORMATION ♦ 

* FROM PUB2 ♦ 

* ENTRY ♦ 

* *D2 ♦ 
4c4t4<4c#*4c*«««*4'*«*^ 



DEVD05 X 

4e 4c 4'«*E1 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE SENSE * 
*INFO TO RECORD * 
♦AND SET STATIS-* 

♦ TICAL DATA * 
♦COUNTER LENGTH ♦ 
ilf^itc:iit ************ 



X 

.*. 

Fl ♦. 

.* ANY ♦. 

.♦STATISTICAL*. NO 

. DATA FOP .*... 

*. DEVICE .* 



4:4(4c*4eGl ********** 

* MOVE DATA * 

* FROM PU82 TO * 

* RECORD, RESET ♦ 

* DATA COUNTERS * 

* IN PUB2 * 

4:4c#*««4<*i»:#*V«**«# 



DEVDIO X 

4c4c«4c4cHl ********** 
♦SETUP DEV OEPEN* 
♦DENT DATA LEN, * 
♦OS DEVICE TYPE * 
♦AND CLASS CODE * 
* IN RECORD * 

4c4t4(4t4(****«4(4'***«« 



*D2 

.VOL SERIAL NO. 

.MODE BYTE 

•TEMPORARY READ ERRORS 

.TEMPORARY WRITE ERRORS 

.NOISE COUNT 

.ERASE GAPS 

.CLEANER ACTIONS 

.VOLUME SIO COUNT 

•PERM, READ ERRORS 

•PERM. WRITE ERRORS 



*****C3 ********** 

* GET CHANQ * 

* ENTRY AND ♦ 

* POINT TO ♦ 

* PIB * 

* 4" 
4c**4t*«**4i«4i4E«4t4c*4' 



4i*4c4c4cQ3*4i4c4e**4c«*« 

* MOVE CCW TO * 
*OBR RECORD *E2 * 

* MOVE DEFAULT * 
*NAME (DOS/ 370 » ♦ 

* TO RECORD ♦ 
4c**4c4c*^** *****♦*♦ 



C4 *. 
.* ♦. 

CCW *. NO 
ADDRESS .*... 
. EXIST .* 
*. .* 
*. .♦ 
» YES 



«*4<#*D4********** 

* ♦ 

* MOVE CCW * 

* TO RECORD ♦ 

* ^£2 * 

* 4t 
^^^^41************* 



*E2 
IF USER TRANSLATED 
CCB, ISSUE SVC 70 
TO CALCULATE THE 
VIRTUAL CCW ADDRESS 
FROM THE REAL ADOR. 



**** 

* * 

* G2 * 

* * 

♦**♦ 



DEVD30/ • 
DEVD40 X 

* ****G2 ********** 

* MOVE USAGE * 
*CQUNT TO RECORD* 

* AND RESET IT * 

* IN PU82 * 

* ENTRY * 

4:*4(«**#««***#*«*# 
**** 



****H2 *♦»♦*♦♦♦♦ 

* RETURN * 

* TO * 

* LINK ADOR * 
^if*^*********** 



:»*«*♦ J2 ♦*** ♦♦**** 



BLDLF15 

4i««4(4cE3********** 

* POINT TO * 

* PROPER PIB ♦ 

* EXTENSION AND * 
*COMMUNICATIONS * 

* REGION * 

4c ^c***:************ 



4!4c4t4t4'F3********** 

* MOVE JOB * 

* NAME FROM * 

* COMM REGION * 

* TO RECORD * 

* ♦ 

4c#4c4(«:**«**'#**'** *4t 



.*. 

G3 *. 
.* *. 

.* THIS * 

*. A 

*. SUBTASK .♦ 
*. •* 



4c4t*4tE4********* 

* RETURN * 

* TO * 

* LINK AODR ♦ 

4i4c4c«***4(4e4e4c«*** 



.♦ CCW DATA *. NO 
ADD»FSS .*... 
*. AVAILABLE.* 
*. .* 



4c4c4<^4tD5 ********** 
*MnVE COMM CODE * 
*nF FAILING CCW * 

♦ TH 3B'^6 OECHRO ♦ 

* EXTENSION * 
4c 4c 
4c4c4c 4c4c 4'#4t*^4(4c* ♦♦♦♦ 



.* READ *. YES 

*. COMMAND .*... 

*. .* 



4c*4c*4tF 5 ********** 

* MOVE RELATED * 

* DATA BYTES TO * 

* RECORD * 

* EXTENSION * 

* 4c 

mtt*************** 



**4i4en5 ********* 

* RETURN TO * 

* LINK ADDRESS * 

* * 

4i4t4'4c 4c«*4c^4i*4e ♦♦* 



**** 

* * 

* A4 * 

* * 
**♦♦ 



.♦ BG *. YES 
PROGRAM .♦... 
*. .» 

*. .* 
*. .* 
* NO 



DEVICE *. 


3400 


* 


MOVE EXTENDED * 


TYPE .* 




• .X* 


SENSE INFO * 


,* 




4c 


TO RECO'^D * 


. .* 




♦ 


* 


*. .* 




4c4c4c4t*««*4c#^**4c«4c4'« 


* 3211/ 








. 3505/ 








. 3525P/ 








X 352 5RP 






X 


**♦* 






*♦♦:♦ 


* ♦ 






4 ♦ 


* G2 * 






* H2 * 


* * 






♦ * 


**** 






***♦ 



. .* 
*. .* 
* NO 



* A4 * 

♦ 4t 
♦♦** 



**** 

* * 

* 84 * 

* ♦ 
♦ ♦♦4c 
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Chart ME. $$AEERA5 - EMSR I/O Device Record Ei^ilder for ETAM and 3330 
Refer to Chart 06. 



(Part 1 cf 2) 



***«:A I********* 

♦ * 

♦ $$ABERA5 ♦ 

♦ * 



* * 

* MOP 00 * 

* * 



MDROO 

*CLEAR PCD APEA * 

* AND MOVF * 

* CONTROL ♦ 

* UNIT ADDRESS * 

* TO RCD AREA * 

« 4t4c«4t«4c4[4c «**4e4c4i *« 



MAINOO X 

♦INITOO MF* 

* INITIALIZE ♦ 

* PHASE * 

* * 



.* ANY *. NO 
*, STATISTICS .*... 

*. IN PU82 .* 



BTAM 
REQUEST 



* SAL TO BTAMOO * 

* I NOT SHOHNI ♦ 
.X* TO BUILD ♦ 

* BTAW RECORD * 

* ♦oa * 

* 41** * « 4i«4' ♦ * *4> ♦ in* ♦ 



*D3 
ALSO SETS RFEXIT 
WITH ADDRESS OF 
SUPERVISOR IGNORE 
EXIT, 'IGNORE*. 



.♦ ANY ♦. NO 
*. RECORDING .*... 
♦.REQUESTED.* 
*. .* 
♦ . .♦ 
♦ YES 



4t*4t4t*p4*4t4t4>4<4c«*4t4t 

♦HOVE PUB2 DATA ♦ 

♦ TO RECOPD APEA * 

♦ SET RFEXIT TH ♦ 
♦RECALL $$ABFRA5^ 

♦ ♦ 



*4t£44t*4t3|i*** 
♦ POST ♦ 

♦ MDR RECORD 

REQUEST 

♦ (RFFLAGS3, 
♦X»20' BIT) ♦ 

*4i#4t*4c4(**;4t4t 



MDR05 X 

***«i«t05 ♦**♦♦**♦♦* 

* MOVF, MODULF ♦ 

* in FPOM SENSE ♦ 

* BYTES TO MOR ♦ 

* RFCORO AREA ♦ 

* AND PUB2 ♦ 



*«4t*4<E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE FTRST 6 ♦ 

♦ AND LAST 18 ♦ 

♦ BYTES Tn MDR ♦ 

♦ RFCORO ♦ 

♦ ♦ 



X 


EXIT05 X 


^^c^^^p X«4<*«*4i**4>« 


*#***|:2********** 


♦MDR 00 HE* 


* LOAD EXIT ♦ 


♦_♦«*_*_♦-.*_*_*«.♦ 


* CODE FROM * 


* BUILD MDR ♦ 


♦ RFEXIT * 


♦ RECORD ♦ 


* IN REG 15 ♦ 


♦ * 


* * 


** * * «:* 4t ** * t****** 


*4>*************** 


X 


X 


.♦. 


.*. 


Gl *. 


G2 ♦. 


.♦ ♦, 


.* ♦. 


.♦ HDR *. YES 


.♦SUPERVISOR ♦. 1 


♦ . RECORD .*.... 


*. EXIT .* 


♦.REQUESTED.* 


*. .♦ 


♦ . .♦ 


*. .* 


♦ • .♦ 


*. .* 


♦ NO 


* NO 




*♦♦* 


* 


*MF * 




* 01 ♦.X. 




* * . 




JtE*** 


X 


. EXITIO X 


^^^^^Hl***^****** 


4>4c)|e**H2 ****♦**♦** 


* * 


* SET PROPER * 


* BUILD LONG ♦ 


* PHASE NAME ♦ 


* FORM OF * 


* IN SVC5NM * 


♦ RECORD * 


* FROM RFEXIT * 



♦ Jl ♦.x. 



♦♦** 

EXITOO X 

♦♦♦♦♦J i**«*«***#* 

♦ SET NO. OF ♦ 

♦ RECORDS AS ♦ 

♦ 1-OF-l, SET * 

♦ SVC5NM FOR * 

♦ $$ABERA1 ♦ 
4c4>4t*4i4c*4i4<4i*4t«***^ 



4t4E4c4cK x********* 
^ SVC 5 if 

♦ FETCH $$ABERAi * 

♦ CHART MH ♦ 



mm*********'****** 



m*** j2********* 

* SVC 5 * 

* FETCH NEXT * 

* PHASE * 
*************** 



*K2 
VIA bal to BLOLFOO 
THIS ROUTINE NOT 
FLOWCHARTED. 



*m***H3********** 

♦ RESTORE ORIG. ♦ 

♦ CSW. RESTORE ♦ 

♦ SVC5NM. RESET * 

♦ PU8FLGS. MOVE ♦ 
♦lOAODR TO X'BA'^ 



****J3********* 

♦ BRANCH TO ♦ 

♦ ERPEXIT ♦ 

♦ IN SUPERVISOR ♦ 
*************** 



MOPIO X 

m****f 3 ********** 

♦ PUT VOL ID IN ♦ 

♦ MOP RCD AREA ♦ 

♦ STORF RCD LEN ♦ 

♦ AND ADD«? FOR ♦ 

♦ RECORDER ♦ 
***************** 



**G5 ******* 

♦SET RFCORn ♦ 

♦DEPENDENT SW.^ 

♦ X'OO" AND ♦ 

♦ SW2 X'Ol' ♦ 

* (MDPr ♦ 

*********** 



**^5******* 

* * 

♦ SET RECORD 
♦ TYPE CODE TO 

♦ X»9l • (MDRI 

♦ * 
*********** 
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Chart MF. $$ABERA5 - RWSR I/O Device Record Euilder for ETAM and 3330 
Refer to Chart 06. 



(Part 2 cf 2) 



♦ A3 ♦ 



****A1********* 

* * 

* INTTOO * 

* ♦ 



♦ ♦ 

♦PESET RECORD ♦ 
* REQUEST FLAGS ♦ 

* IN RFFLAGS ♦ 

* * 



.* RMSR ♦. YES 
►. SUPPORTED .♦,... 
♦ . .♦ 



INITIO X 

*****A3**** ****** 

* SET RFEXIT ♦ 

* TO CALL ♦ 

* S$ABERRL, * 

* POINT TO MS6 • 
♦CODE TABLE ♦A4* 
***************** 



**** 
* 
* B3 



♦ .X. 



**♦* X 
1NIT15 .*. 

B3 ♦. 
.*END OF *. 
.* MSG CODE ♦. YES 
*. TABLE .♦... 
*. »♦ 

♦ . .♦ 
*. .♦ 
* NO 



*A^ 
MESSAGE CODE TABLE CONTAINS A LIST 
OF ERROR CODES FOR WHICH RECORDING 
IS SUPPRESSED. COOES AND MEANINGS 
AREO 

.X»OB»-INTERVENTION REQUIRED 
.X«17'-FILE PROTECT 
.X«18»-C0MMAND REJECT 
.X«24«-PR0GRAM CHECK 
.X'25»-PR0TECTI0N CHECK 
.X»26»-INVALID SEEK ADDRESS 
.X»31»-N0T OPERATIONAL 



*****Q],********** 

* * 

* SET UP RFEXIT * 

* WITH $$A8ERRL ♦ 

* AS NEXT PHASE ♦ 

* * 

***4i:^*#4i***4<***** 



X 

***** 

♦ ME * 

* H2* 



4i****c 2 «♦♦♦♦♦**♦* 

* SAVE ADDRESS * 

♦ OF RFTABLE * 
♦AND PUB2 ENTRY * 

♦ AT RFSAVE * 

* * 

«4:**:«[*«******4i«## 



.* BTAM ♦. YESX 
♦ . REQUEST .♦ 

♦ . .♦ 

*• .* 



**E2*4i*4<4i4(* 

* RESET ♦ 
LOG ERROR 

REQUEST IN 
P20FLG, 

* BIT I * 

**********3|^ 



NO .* ♦ 

...*. RECOVERABLE 
♦. ERROR .* 



*♦♦* 

* * 

* A3 * 

* * 
**♦* 



^^iHti^Q2 ********** 

* SET RFEXIT * 

* WITH AOOR OF ♦ 

* SUPERVISOR ♦ 
♦RETRY ROUTINE, ♦ 

* 'INITRG* ♦ 

#*#*««*****#4e**** 



YES .♦ 

...♦. EQUIPMENT 
♦, CHECK . 



♦ F3 ♦ 

* * 

**** 



* POST ♦ 

♦ SHORT FORM ♦ 
RECORD SWITCH 

♦ CRFFLAGS3 ♦ 
♦X«20* BITI * 

*********** 



.♦ MESSAGE ♦. 

COOES .♦ 
♦ . MATCH .♦ 
♦. ♦C4 .♦ 



*****03**** ****** 
♦UPDATE POINTER ♦ 

♦ TO NEXT ENTRY ♦ 

♦ IN MSG CODE ♦ 

♦ LIST ♦ 

♦ * 
***************** 



♦ B3 ♦ 

♦ * 
**** 

**** 

♦ * 

♦ F3 ♦ 

♦ * 
**** 



INIT20 X 

**P3******* 
* POST ♦ 

♦ LONG FORM ♦ 
♦ RECORD SWITCH ' 

♦ (RFFLAGSa. ♦ 
♦X»40» BIT! ♦ 

*********** 



****(;3 ********* 

♦ RETURN ♦ 

♦ TO ♦ 

♦ LINK ADOR ♦ 
*************** 



♦ C4 

IF COOES MATCH, NO 
RECORDING IS PERFORMED. 
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Chart MG. $$AEERA6 - Set CS Device Codes in SYSREC Record 
Refer to Charts C6 and C7. 



* $$ABE0A6 * 

♦ * 
^iti^^Hit ********** 



tt*,ltH,ilfQl:tit******** 

* INITIALIZE * 

* REGISTER ♦ 

* VTA BAL * 

* TO MNITOO' * 

* INOT SHOWN) * 



*CnDEOO MG* 

♦ SET OS CODE ♦ 

♦ IN RECORD * 

♦ *02 ♦ 
***^it************ 



EXITOO .*. 

El *. 

.* *. 

.*SET SVC5NM *. 

♦.TO CALL RMSR . 

RECORD WRITER 



• * 



ici^c^^^cf I********* 

♦ SVC 5 FETCH * 

♦ $$ABERAI * 

♦ CHART HH ♦ 
**il^^iti^iH***,ti^*** 



*D2 
SETS OS CODE 
(DEVICE CLASS 
AND DEVICE) 
FOR THE 
FOLLOWING: 
2540R-X»0a01 • 
25^0P-X»0802« 

1442 -X«0803« 
2501 -X»0B04« 
2520 -X»0805« 
1403 ~X»0808« 

1443 -X«080A« 
2671 -X»0810' 
2495 -X»0818' 
1285 -X»081A« 
1287 -X«081B» 
1419P-X«081D« 
1419S-X*081E' 

CONS PR-KEYB -X»0820» 
2311 -X«2001» 
2321 -X'2005» 
2314 -X«2008' 
FOR OTHER DEVICES 
APPROPRIATE BUILDER 
PHASES SET THE 
CS DEVICE CODE. 



****K3********* 

* CaOEOO ♦ 

* * 

*************** 



* SET POINTER ♦ 

* TO DEVICE * 

* CODE LIST ♦ 

* * 

***^f*tt******itiif*** 



C0DE05 .», 

C3 ♦. 

.♦ CODE ♦. 
,* MATCHES ♦. YES 
*. CODE IN .*.... 

*. RECORD .♦ 
♦ . .♦ 



NO 



*****OJ,*****:t**** 

♦UPDATE POINTER ♦ 

♦ TO NEXT ♦ 

♦ ENTRY IN ♦ 

♦ DEVICE CODE ♦ 

♦ LIST ♦ 
***:tiilf****^,* ****** 



NO .♦ END ♦. 

...♦. OF 

♦. LIST .♦ 

♦ « .♦ 



♦ HOVE OS ♦ 

♦ CODE TO * 

♦ RECORD * 

♦ ♦ 
***************** 



^***f:(l^********* 

♦ RETURN • 

♦ TO ♦ 

♦ CALLER ♦ 

*m*m*******m*** 
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Chart MH. $$ABERA7 - RMSR I/C Device Record Ei:ild6r fcr 33^0 (Part 1 cf 2) 
Refer to Chart 06. 



* $$ABERA7 * 

* * 



♦INTTOO HJ* 

»-♦-♦-♦-♦ _» -♦-* -♦ 

* INITIALIZE ♦ 

* PHASE ♦ 

* 4t 



NO .* DEVICE IN ♦. 
••.♦. RECORD MODE •♦ 



♦ ♦ ♦ ♦ 

♦ ♦ SET UP TO * ♦ 

♦ ♦ RETURN TO * *> 

♦ *SUPERVISOR * * 

♦ * * * 



* EXIT TO ♦ 

* SUPERVISOR ♦ 

* « 



X 


X 


EXIT05 .*. 


.*. 


D2 ♦. 


03 *. 


.♦ *• • 


• * *. 


NO .* ANOTHER *. 


NO .* *. 


....... .^. PHASE TO BE «• .. 


....*. ANYTHING TO .* 


♦. CALLED •* 


*. RECORD .* 


*. .♦ 


♦ . .♦ 


». .* 


*. .* 


♦ YES 


* YES 


**** . 


* 


♦MJ * 




* C3 ♦.X. 




* * • 




**«4> 


X 


EXITIO X 


• *• 


4c4c*«4<E2 *«***#4<*4'>|r 


E3 ♦. 


♦ ♦ * * 


.* ♦. 


* * SET UP * » 


.*MDR RECORD ♦. 


* * TO CALL * * 


*. TO BUILD .♦ 


♦ ♦ S$ABERRL * * 


*. .* 



4t4i4c**4i4t4t*:»*«**«4i4c 



ilL:i^i$iff 2 ********* 

* * 

* SVC 5 * 

* ♦ 



HDROO 

4E4c**4[E4**4!*'i'4'**4<* 
*MOffO0 HH* 

»_♦_»_♦-♦_«_*_♦-♦ 

. ..X* BUILD MDP * 
* 'RECORD * 



t**************** 



♦BLDLEOO MJ* 



ifinntm************ 



* * 

* xnooo * 

* ♦ 

■tim*****'^******* 



««4c*4cBS4'« 



^iii'tii^m****** ****** 



* ♦ 

* TNSERT OEVTCE * 

* AOOOESS IN * 

* »ECnRD * 

* * 



* ^ 

* MOVE SFNSF * 

* BYTFS/VGLTO * 

* INTH PFCOPD * 

* * 

i^^m^i************* 



itcm***tE'^ ********** 

* * 
*SETUP INTERFACE* 

* BYTFS FOR * 

* SliABEPAl * 

* ♦ 

4c4c4c ************** 



iHiH-iltitifS ********* 

* RETURN in * 

* *IArNLTNF * 

* ♦ 



Jltr^if************** 



*4t4>4cH3********* 

* * 

* SVC 5 * 

* ♦ 
■ti^f ************ 
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chart MJ. $$AEERA7 - RMSR I/O Device Record Builder for 3340 (Part 2 cf 2) 
Refer to Chart 06. 



♦ A5 ♦ 
♦♦♦♦ 



♦ ♦ 

♦ INITOO ♦ 

♦ * 



♦ * 
♦ESTABLISH BASE ♦ 

♦ REGS AND * 
♦aDDPESSABILITY * 

♦ ♦ 



C2 *. 

.♦ *. 

.* RMS * 

. GENERATED 

♦. (125/115). < 

♦ . .♦ 

♦. .* 

♦ YES 



* * ♦ * 

* *SET UP FOR * ♦ 

* * $tABERPl * *X.» 



:i^ii:ittitit^t********** 



RECORDING *. NO 
REQUIRED .*... 



iH)t,t^it:QliHt******** 



*t*^*t*:tt****^***** 



♦ ♦ 

♦ GET PU62 AND * 

♦ RESET LOGGING * 

♦ SIT * 

♦ ♦ 



E2 *. 

,♦ ♦, 

SOFT ERROR 



«4i«»4(F2***4'**«*** 



4c4i«4t«4i4<t4<4[«*#«*«« 



* * * ♦ 

* ♦ SET IIP * * 
X* * TO CALL * * 

♦ * $$ABERR1 ♦ * 

♦ ♦ ♦ ♦ 



****** 

♦ MH ♦ 

* E2* 



.* ENVIRON ♦. YES 
*.OATA PRESENT ...... 



* * * * 

* ♦ SET MDR * ♦ 
X* * RECORD * * 

* * SWITCH * ♦ 

* * ♦ * 



#*4c4t*H 2 *♦♦♦*♦♦*♦♦ 

* * * * 

* * SET UNIT * ♦ 

* CHECK RECORD* * 

* * SfelTCH ♦ ♦ 

4: «; * * 

4c*:iec4c«*«4i4c****4c4c*4c 



♦ RETURN TO * 

♦ MAINLINE ♦ 

♦ * 



♦ BLDLEOO ♦ 

♦ * 



4t4c4[*«g^*«4t4<4t*4<**4t 



CLEAR 
RECORD AREA 



« *«#4<* **4>4>«** * 4t « * 



* INSERT VALID * 

* USAGE COUNT * 

♦ IN RECORD * 

♦ ♦ 

^ciHf ************** 



lftft**0^********** 

* * 

* INSERT PMG * 

* NUMBER AND * 

* DEVICE ADDR * 

* * 
*4<4t4c4c«4t«**«i4c«t4i*)|t4t 



* * 

* INSERT DASD ♦ 
♦DEVICE TYPE AND* 

* RETRY COUNT * 



*:titi**f^ i^********** 



IHt^ii^************* 



*,CCB AVAILABLE.*. 

*. .* 



*4c4t4c4cH4********** 



■tt^iicic************* 



•* IS *. NO 
♦.COMMAND SEEK .*... 
*, .* 

*. .* 
♦ . .* 
* YES 



« *«[ 4!*K 4****** ♦*** 



4c 4t*************** 



*****l^^ 4i4>******** 



* GET JOB NAME * 
*FROM SAVE AREA * 



*******♦*♦*****♦♦ 

♦*** 

* * 

* B5 *.X. 

* * 
**** 

X 
4e***«B5 ♦♦*♦***♦♦* 

* ♦ 

* PUT CSW IN * 

* RECORD ♦ 

* ♦ 

* ♦ 
4[4t«4i4>************ 



4t4[«t«4cC5 **♦*****♦* 



********nt*m****** 



«*:»:«[*£ 5 ********** 



PUT CCW IN 

RECORD 



• 4e******4(«4c4c4>**** 



**** 

* * 

* 85 * 

* * 

♦*** 



*«***F5 ********** 

* * 

* SET UP LENGTH * 

* OF SENSE AND * 

* OSCLASS CODE * 

* * 
***********jtt***** 



* 4t***G 5 ********** 

* * 

* SET UP * 

* INTERFACE FOR * 

* SSABERAl * 

* ♦ 

* 4c4> *# 4<* «**♦ 4t«: ** 4i% 



****H5 ********* 

* RETURN TO * 

* MAINLINE * 

* * 

*#♦##♦♦♦***«*** 
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.X.. 
X 
**** 

* * 

* A5 * 

* * 

**** 



Chart MK. $$ABERA1 - RMSR Heccrd Writer (Part 1 cf 2) 
Refer to Charts 06 and 07. 



♦ ♦ 

♦ $$ABERA1 ♦ 

♦ ♦ 



A2 * 
.* IS 
* FILE 
FULL 



♦WRTRECOO MK* 

♦_♦_»_♦_♦-♦-♦_♦-♦ 

* WRITE THE ♦ 

* RECORD * 

* ♦ 



MAINOO 

♦♦♦♦♦CI********** 
*TNITOO MK* 

*_*_♦_♦_*_♦_♦_♦-♦ 

* INITIALIZE * 

* PHASF * 



♦ ♦♦♦♦ 



(♦♦♦♦♦♦♦♦♦♦♦ 





.*. 




X 




Dl *, 




♦****02 ********** 




♦ IS * 




*WRTHDOO MK* 


* 


FILE 


*. 


♦_♦_♦_♦_♦_♦_♦_*_♦ 




READY 


.* 


* WRITE HEADER * 


♦ 




♦ 


* RECORD * 




'♦. .* 




* ♦ 




* . •* 




***************** 




* YES 




**** I 

*ML * .X. ...... 

♦ El *.X. 

* * . 








**** . 




•♦ • 




EXITOO X 




El *. 




*****l£ 2 ********** 




.* * 




* GET ADDR OF * 


♦ 


EREP 


*. 


* ERBLOC. RESET * 




IM 


.♦ 


..X* PTA OWNERSHIP * 


* 


.PROGRESS 


* 


. *0F SYSREC FILE ♦ 



***************** 



****A3********* 

* * 

* INITOO * 

* * 
♦♦******♦♦«♦**♦ 



* SET PHASE * 

* REG USAGE * 

* RELOCATE CCWS * 

* * 
***************** 



*****(;3********** 

* * 
♦COMPUTE CURRENT* 

* TOD AND MOVE * 

* TO RECORD * 

* * 
♦♦♦♦*♦**♦♦♦♦♦♦♦♦♦ 



*****03 ********** 

* SET UP FIELDS * 

* IN HEADER * 

* PART OF * 

* RECORD * 

* * 
***************** 



****E3********* 

* RETURN TO * 

* LINK ADDRESS * 

* ♦ 

*************** 



****A4********* 

* * 

* WRTHOROO * 

* * 
*************** 



* SET HOPKZ * 

* REG TO WRITE * 

* HEADER * 

* * 
***************** 



****B5 ********* 

* * 

* ROHDROO * 
» * 

*************** 



* SET UP CCWS * 

* FOR READ * 

* OP WRITE * 

* « 

*♦♦♦♦*****♦*♦*♦** 



♦ 04 *.X 



*♦** 
lOREOOO X 

*****Q4********** 

* MAP TO SYSREC ♦ 

* PUB. SET * 

* CCBBY3 TO * 

* INDICATE ERP * 

* CCB * 
***************** 



YES .* FILE 
...*. OWNED BY 

*. RTA 



♦♦♦♦♦PX ********** 

* * 

* SET WORKZ * 

* REG TO READ * 

* HEADER * 

* * 

*♦*♦♦♦♦♦*♦******* 



♦♦♦♦♦Q !********♦* 
♦°DHOR00 MK* 

♦_♦_♦_♦_♦_♦_♦_♦_♦ 

* READ HEADER * 

* RECORD * 

* ♦ 
♦♦♦♦♦♦*♦**♦♦♦♦*♦♦ 



.* ANY *. YES 

MESSAGE .*.... 
♦.REQUESTS .* 



* GET * 

* EXIT * 

* CODE * 

* * 
***************** 



****G3 **♦♦♦♦♦♦♦ 

* SVC 5 * 
*FETCH $$ABERA2 * 

* CHART MN * 
*************** 



.YES .* I/O *. 


.* TAKE *. 


X...*. ERROR .* 


*. SUPERVISOR ,* 


*. .* 


*. EXIT •* 


*. .* 


*. .* 


X *. .* 


*. .* 


**** * NO 


* NO 


* * . 




* F? * 




* ♦ . 




**** 


I 


X 


X 


♦♦*♦♦ J X ********** 


*****J2 ********** 


*NEXTAVOO ML* 


* SET SVC5NM * 


♦ _♦_♦_♦_♦_♦_♦_♦-.* 


* FROM RFEXIT * 


* GET NEXT * 


* TO FETCH * 


* AVAILABLE * 


* PROPER PHASE * 


♦ RECORD AREA * 


* * 


*♦♦♦**♦♦♦♦♦♦♦♦♦*♦ 


***************** 


X 
**♦♦ 


• 


♦ ♦ 


* 


* A2 * 




♦ ♦ 


X 


**** 


****K2********* 




* SVC 5 * 




* FETCH PHASE * 



.* 



F4 *. 

* *, 

OEV'CE 

QUEUED FOR 

*. ERROR . 

*. .* 

*. .* 

* NO 



G4 *. 

REQUEST 

QUEUED TO 

PUB 



X 
***** 
*ML * 
* Al* 

* * 
♦ 
I0RE005 



***«n5 ********* 

* * 

* WRTRFCOn * 

* * 
♦♦♦♦♦♦*♦♦♦♦♦♦♦♦ 



DATA *, NO 

TOn LONG .*... 



****f:5 ********* 

* t>ETURN TO * 

* LINK ADDRESS * 

* ♦ 
*************** 



*♦♦**[; 5 ***♦♦♦*♦♦♦ 

* SFT UP DATA * 
♦PORTTON OF RCD.* 

* SET UP COUNT * 

* FIELD * 

* * 
***************** 



♦♦♦♦♦H5 ********** 



***♦*♦***♦♦♦♦*♦ 



*****J3 ********** 

* RESTORE ORIG * 
*CSW REST SVC5NM* 
*RESET PUBFLAGS * 

* MOVE I/O ADDR * 

* TO LOC X»BA» * 
*********♦**♦♦*♦♦ 



****K3 ********* 

* BRANCH TO * 

* ERPEXIT * 

* IN SUPERVISOR * 
*************** 



.* DEVICE * 


. NO 




SET UP TO 


*, BUSY 


.*.... 




WRITE COUNT- 


*. .* 






KEY-DATA 


*. .* 








*. •* 


X 


************* 


* YES 


***** 








*ML * 




, 


X^ 


* Al* 




. 




* * 




X 


* 


* 




***♦ 




IORE005 




* * 


I0REOO2 X 






* 04 * 


*****J4*********« 




* * 


* ENABLE AND 


* 




**** 


* THEN DISABLE 


* 






* FOR I/O 


* 






* INTERRUPTS 


* 







***************** 



* 04 * 

* * 
**** 
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Chart ML. $$AEERM - RMSR Record Writer (Part 2 of 2) 
Refer to Charts C6 and C7. 



***** REFERENCES 

* * TO MLAl: 

* •♦ mf^f MKH4 



POST PTA 

OWNERSHIP 

OF FILE 



*4c4t4c***4t**# 



CI *, 
.♦SYSREC *• 
.* DATA RCD *. YES 
♦.BEING WRITTEN.*...* 
*. IWRITE .* 
*.CKD> .* 
*. •* 
♦ NO 



*4t*«*C2********** 

* ALARM V«/370 * 

* (TURN ON * 
X* HIGH ORDER ♦ 

* BIT OF ♦ 

* REGISTER II * 



♦♦♦Dl************ 

♦ SVC 76 * 

REQUEST 
♦ EXCP * 



«* *t 


UPDATE TO 


.♦HAS VM/370 ♦. YES 


NEXT TRACK 


♦ . TAKEN OVER ,*.... 


(UPDATE TO 


*. .♦ . 


NEXT CYLINDER 


*. .* 


IF NECESSARYI 


*. .* X 




♦ NO ♦♦♦♦♦ 




♦MK ♦ 




♦ F2* 




* ♦ 
♦ 




EXITOO 
X 






♦ENABLE FOR I/O ♦ 




♦ INT. WAIT FOR ♦ 




♦ I/O COMPLETE. ♦ 




♦ DISABLE FOR ♦ 




♦ I/O INTERRUPTS ♦ 




4c ^^^^(^^^(♦♦♦♦♦♦♦♦♦^ 





4r*4t*A3********* 

♦ ♦ 

♦ NEXTAVOO * 

♦ ♦ 



NEXTAVOO 

4t*«*«iB3 ********** 

* ♦ 

* GET NUMBER * 

* OF BYTES * 

* LEFT ON TRACK * 

* ♦ 
*4i it 4i)|i«4c4t*4t«: ** 4t4i 4i4t 



.* WILL 

*• RECORD FIT 
*. . 

*. .* 



* UPDATE TO ♦ 

* NEXT TRACK ♦ 

* (UPDATE TO NEXT* 

* CYLINDER IF * 

* NECESSARY) * 
«***«! 4t4r«*4t 4c 4(41** 4c 4c 



4t 41 4i4<^E3**** *****' 

* SET UP NEW 

* HEAD AND 

* RECORD ID 

* VALUES 
♦ 



4i«4i4i4ip3«:4t^*4i«^^^^ 

* RESTORE BYTES * 

* LEFT ON * 

* TRACK TO * 

* MAX VALUE * 

* ♦ 
4c4E**4t4c«^4(***««^«* 



NEXTAV25 

4c«4t**C4********** 

* STORE BYTES * 

* LEFT ON TRACK * 
...X* IN HEADER * 

* RECORD * 



4i4t4c^*^4'4t4>*4t4E4i4>«'^4c 



D4 * 
.* IS 
.* FILE 
*» FULL 



4c4>E4******* 

* POST FILE * 
♦ FULL BIT IN * 

♦ STATUS BYTE I 
♦AND MSG CODE ♦ 

* (BYTE 21 * 

^^♦♦♦♦***4>« 



4c4t^«F4********* 

♦ RETURN TO ♦ 

* LINK ADDRESS * 

4> ♦ 

4c4i4i*4i«i4(^*^4t^4c^^ 



NEXTAV30 .*. 






E5 ♦. 






.* *. 






.* LAST 


*. 


NO 


*. TRACK 




*• . 


*. OF FILE , 






*. .* 






*. .♦ 






* YES 







4c4>F5 ******* 

* POST LAST * 

♦ TRACK 
MESSAGE 

* CODE 

* ♦ 
4t4i4<^^«^^^«^ 



.♦ ♦. 
* I/O ♦. NO 
ERROR .♦.. 



♦ ♦J1^^4"^^+^ 

* ♦ 
POST I/O 
ERROR MSG 

CODE 

♦ * 



NEXTAV35 

4c 4>4e^«G5 ♦♦♦♦****** 

* UPDATE TO ♦ 

♦ NEXT RECORD ♦ 

♦ AND STORE * 

* AS LAST * 

4c 4c 

4c 4c4i 4i4c ♦4c 4i4c 4c 4> ♦♦ ♦ ♦ ♦♦ 



♦ 4c 

♦ PUT SEEK ♦ 

♦ ADDRESS IN ♦ 

♦ WORK AREA ♦ 

4c 4c 

4c4c4c 4c4c 4i4c4c4i4c4t^^ ♦♦ ♦♦ 



4c4c4c4' J5 4i4i4c*4c^^4c* 

♦ RETURN TO ♦ 

♦ LINK ADDRESS ♦ 
4c ♦ 

4c4c4c*4c*4'^^^^^^^^ 



4c4c*4cK l^^^^^^^^^ 

♦ RfcTURN TO ♦ 

♦ LINK ADDRESS ♦ 

♦ « 
4c4c4:4c4c4c4c4t4c^^^^^4> 
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chart MM. $$ABERJ1 - Statistical Counter Update for Disk and Unit Record Eevices (Part 
1 of 2) 
Befer to Charts C6 and C7, 



♦ ♦ 

♦ $$ABERRJ ♦ 



HATNOO 

♦♦♦*♦£!♦♦♦ ♦***♦♦♦ 
*INITOO MN* 

♦ INITIALIZE * 

♦ PHASE ♦ 

♦ * 



.* RECORDING ♦. YES 
►. SUPPRESSED .♦. 
*. (EXITSH .* 
♦• ONI .♦ 



* DMCHKOO MN* 

* SET UP ♦ 

* DEVICE * 

* POINTERS * 
4c4c«******* ******* 



* ♦ 

* UPDATE PUB2 * 

* SDP COUNTERS * 

* *H2 * 

* * 



4c4t4:*«Gl ********** 

* * 

* RESTORE * 

* CONTROL ♦ 
♦BLOCK ADDRESSES* 

* * 



*^*««H1 ********** 
*RECTSTOO MM* 
♦_♦_♦_♦-♦_♦_♦_»_* 

* TEST IF * 

* RECORDING * 

* REQUIRED * 



.* RECORDING *. NO 
. REQUIRED .*. .. 
*{RFFLAGS3),* 

*. .* 



*♦** 

♦ ♦ 

♦ B2 * 

♦ ♦ 



* GET TARGET * 

* EXIT CODE * 

* FROK RFEXIT * 

* * 



•4E**A4********* 
» * 

* RECTSTOO * 

* * 
#«4c««)|t4c*4c****** 



RECTSTOO .*. 

84 *. 



NO .* DEVICE 
...*. IN CE HOOE 



*. 



.*. 

C2 *• 
.* *. 

PHASE *. YES 
NAME CHARS .*.... 
IN EXIT .* 
*. FIELD.* 
.* 
NO 



* SET UP NEXT * 
K* PHASE NAME * 

* FROM RFEXIT * 

* * 



4(**4r03********* 

* SVC 5 * 

* FETCH NEXT * 

* PHASE * 



SSABERRA (CHART MM} 
$$A8ERA5 (CHART HE) 



.* RECORD *. NO 
*. LIMIT .*... 
*. REACHED .* 

*. .* 



«4i04******* 

* SET * 
P2FLAGS 

TO NORMAL 
MODE 

* * 
«4i*4c******* 



.* RECORD *. 
.X*. ALL 

*. ERRORS .* 



iHm* **05 ********** 



MAP TO 
BIT MASK 



m**************** 



*. .* 

* YES 



4i4c***P2 ********** 

* CLEAR STATUS * 

* BYTE CERQDVCl * 

* IN ERROR * 

* RECOVERY * 

* BLOCK * 
***************** 



***** 
♦MP ♦ 
♦ 02 + 





• ♦, 


NO .♦ 


CANCEL 


...*. 


EXIT 


* 






♦ . .* 


X 


*. .* 


♦♦♦♦♦ 


* YES 


♦ MP * 




* B2* 




* ♦ 


X 


♦ 


****♦ 


X RETRY 


*MP * 




* Dl* 




* * 




* 




X CANCEL 




***♦ 




♦ * 




♦ H3 ♦ 




♦ ♦ 




***♦ 



RECTST20 .*. 

E4 *. 
.* *. 
NO .* COUNTER *. 
...*. FULL .* 



ti^fi^******* 

* POST * 

* SHORT FORM 
» FLAG IN 

* RFFLAGS3 

♦ * 
*********** 



NO .* 



* YES 

Ix.... 



RECTSTIO .*. 

F5 *. 

.** DEVICE '*. NO 
*. IN .*.., 

♦.INTENSIVE.* 
*.MODE .* 



* YES 



* YES 

Tx.... 



*H2 
SUBROUTINE 
CNTROO PERFORMS 
UPDATES ON COUNTERS 
INDICATED BY MASK 
BITS, JUB ROUTINE 
IS NOT FLOWCHARTED. 
POSTS COUNTER 
FULL FLAG IN 
PHASESW IF 
APPLICABLE. 



****jS********* 

* SVC 5 * 
*FETCH $$ABERRK * 

* CHART MA * 
*************** 



****jit********* 

* SVC 5 ♦ 
♦FETCH $$ABERA4 ♦ 

♦ CHART MC ♦ 
*************** 



♦ YES 


♦ ♦♦♦ 




♦ ♦ 


, 


♦ B2 * 


X 


♦ ♦ 


♦♦♦* 


♦♦♦♦ 


♦ 




H3 ♦ 




♦ 




♦ ♦♦♦ 





RECTST15 X 

*4[H5 ******* 

* POST * 

♦ ERR TO BE 
* RECORDED IN 

* RFFLAGS3 

♦ ♦ 
*********** 



*****JS ********** 

* * 

* REDUCE ♦ 

* LIMIT COUNT ♦ 

* BY ONE ♦ 

* ♦ 
***************** 



4i*4e*K5 ********* 

* RETURN TO ♦ 

* LINK AODR ♦ 

* * 
*************** 
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Chart MN. $$AEERJ1 - Statistical Counter Update fcr Disk and Unit Record Devices (Part 
2 of 2) 
Refer to Charts C6 and C7. 



*♦♦♦ 



*♦♦* 

* * 

♦ A3 * 

♦♦♦* 



4i**«A l^******** 

* INITOO ♦ 

♦ > » 



INITOO 

♦ SET UP REGS. ♦ 

* SET RFEXIT TO * 
♦$$ABERRA. RESET* 

* RECORDING * 

♦ REQUEST FLAGS * 



*• .* 

NO 



* A4 * 



• • YES 



INIT02 X 

♦MOVE SENSE DATA* 

♦ TO WORK ARE A ♦ 

♦ ♦ 

♦ GET POINTER ♦ 

♦ TO PUB2 ♦ 



X 
.♦. 

B2 ♦• 

.♦ ♦. 

.♦ DEVICE ♦. 

♦. A 2314 

♦ . .♦ 

♦ . .♦ 

♦. .♦ 

♦ YES 



♦ ♦ 

♦ ISOLATE ID ♦ 

♦ PORTION OF ♦ 

♦ SENSE ♦ 

♦ * 



.♦. 

D2 ♦• 

.♦ SAME ♦• 

.* MODULE ♦• Y 

♦ . AT THIS .♦. 

♦. ADDRESS .♦ 

♦ • .♦ 

♦• •♦ 

♦ NO 



X 

.♦. 

El ♦. 

,♦ ♦. 

YES .♦ ♦. NO 

.*. 3340 .♦. .. 

♦ . •♦ 

♦ . .♦ 



♦ ♦ 

♦ Fl ♦... 

♦ ♦ , 
♦♦*♦ 

INTOl X 

4c 4:p I ******* 

♦ * 

♦ POST EXIT ♦ 
♦SWITCH (PHASESW^ 

♦ X»80» BIT) ♦ 

* * 



♦ Jl ♦ 
♦♦*♦ 



Gl ♦. 
.♦ ♦. 

.♦RECOVERABLE*. NO 
♦. ERROR .♦... 

*. .* 



«*«4E4t HI ♦♦♦**♦♦♦** 

♦ ♦ 

♦ SET RFEXIT ♦ 

♦ TO CALL ♦. 

♦ $$ABERA5 ♦ 

♦ ♦ 

♦ ♦ 

♦ Jl ♦... 

♦ ♦ . 
♦♦♦♦ X 

.*- 
Jl 



♦ MOVE MODULE ID ♦ 

♦ FROM SENSE ♦ 
♦BYTE 4 TO PUB2 ♦ 

♦ '* 
4t«4t*4i4t4>tr*4t«4t«t«4> *♦ 



INITIO .*. 

83 ♦. 
.♦ ♦. 
.♦ SOFT ♦. NO 
♦. DISK .♦«., 
♦. ERROR .♦ 
♦ • .♦ 
♦ • .♦ 
♦ YES 



#««4(«C3********** 

♦ SET RFEXIT * 

♦ WITH RETRY ♦ 

♦ ADDRESS ♦ 

♦ 'INITRG* ♦ 

♦ * 



♦ POST EXIT ♦ 
♦SWITCH (PHASESW* 

♦ X«80» BITI ♦ 

* * 

4c*4<*)«i*4i*4t4t4i 

4c 4> 

♦ 84 ♦.X. 



*4c*4cB4^*^^^^^** 

♦ RETURN TO * 

♦ LINX ADDR ♦ 

♦ * 
4i4i 4c 4e4> 4i «*4'4t4c4i 4i4i4< 



4i«c 4c 4c A5 ♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ DMCHKOO * 
4t * 

4>4t4i4c4c4c4:4t 4i4c4c4i ♦It ♦ 



DMCHKOO 


.♦. 

R5 ♦. 

4c ♦ 






• * 


CHANNEL 


*. 


Nfl 


*. 


DAT« 




*. . 


*. 


CHECK 

♦ . .♦ 

*. .* 
♦ YES 


♦ 





4'4tC5 4i*4c4c4E*4> 

4c ♦ 

POST IT 

FOR 
COUNTER 

4c 4c 

4i4c4c4i4<«4c*4c4>4t 



X 
IT15 .♦. 

03 ♦. 
.♦DEV NOT+. 
.♦IN RECORD. ♦. YES 

♦. MODE on ...... 

♦. UNSUPP. .♦ 



» Fl * 
♦ * 



E2 ♦- 

.♦ ANY ♦. 

.♦STATISTICS ♦. 

. ACCUMULATED . 

♦. .♦ 

♦ . .♦ 

*, ,* 

♦ YES 



4i*f:2«*4>4c#*>ic 

* * 

♦ POST EXIT ♦ 
♦SWITCH (PHASESW^ 

♦ X«80« BIT) ♦ 

♦ ♦ 
4i4c****4'4'*4c* 



^iH^iltmGZ********** 

♦ SET RFEXIT ♦ 

♦ TO $$ABERRJ ♦ 

♦ FOR RECALL ♦ 
*AFTER iSABcKftK * 

♦ ♦ 
4[)|i4c4c* * *4>*4i****4i*4> 



4t4cH2 ♦♦♦♦♦♦♦ 

♦ POST ♦ 

♦ SHORT FORM 
♦ OF RECORD TO 

♦ BE WRITTEN 
♦IRFFLAGS3) ♦ 



♦ A3 ♦ 

♦ ♦ 
♦4>4c4c 



.♦ 
•c NO 



*:^4c4c4iE3^^^^^^^^^* 

♦ 4c 

♦ GET ADRESS ♦ 
♦OF DEVICE/MASK ♦ 

♦ TABLE ♦ 

♦ * 
**4c4c*«4c4<««***«4c4c4( 

♦♦♦4c 



CLFAR 
UNUSEO BITS 



4t4>4c4c4c4c4c4>«4>4c4t4i4c4E4c4c 



* A4 * 

* 4< 
4i4c*4! 



.♦ ♦. 

♦ END ♦. YES 

OF .♦..X 

». TABLE .* 



* B4 ♦ 

♦ ♦ 



**4c*4cH3^^^^ ♦♦♦♦♦♦ 
♦UPDATE POINTER ♦ 

♦ TO NEXT ♦ 

♦ ENTRY IN ♦ 

♦ TABLE ♦ 
4> ♦ 

4t4i«*4c4>*4i4c4c4>4c4c4c4c4c4c 



.♦ 



3540 

.♦' 
♦. .♦ 

♦ NO 



♦. ♦♦♦♦ 

♦. YES ♦ ♦ 
......X* A4 ♦ 



..X. 
X 

♦♦♦4c 

♦ ♦ 

♦ 84 ♦ 

♦ ♦ 
♦♦♦♦ 



E5 ♦. 
.♦ 
NO *♦ DATA 
...♦. CHECK 



,♦ ♦ 
NO .♦ CCW 
...♦. ADDRESS 
♦ . EXIST 



♦ . .♦ 
♦ YES 



4c4tH 5 ♦♦♦♦♦♦♦ 

4c 4c 

TURN ON 

TEMPORARY 

READ BIT 

♦ * 

4c^4c^««^«^^4c 



♦ SET POINTERS ♦ 

♦ TO COUNTERS ♦ 

♦ AND MASK * 

4c 4c 

♦ ♦^♦♦♦^'♦♦♦♦♦♦♦♦♦^ 



♦♦4c^K4^^^^^*^*4c 

♦ RETURN TO ♦ 

♦ LINK ADDR * 

♦ * 

*♦♦♦♦♦♦♦♦♦♦♦ ♦♦4c 



TURN ON 

TEMPORARY 

WPITE BIT 

♦ * 

4c4c ♦♦♦♦♦♦♦♦♦ 
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chart MP. $$ABERRJ - Statistical Counter Update fcr Disk and Unit Record Devices 
Refer to Charts 06 and 07. 



♦ F3* 



XRETRY X 

* LOAD REG 15 * 

* WITH RETRY * 

* EXIT ADDRESS ♦ 

* ♦ 



RETRY ♦. YES 
ALLOWED .*. 



♦♦**♦ 

*MM * 
F3* 



* * 




•«** 


* 




♦MM * 


, 




* F2 *.X. 






♦ * • 


^ 




*•♦* 


X CANCEL X 




XIGNORE X 


^f$im**Dl********** 


*«4i4t«D2 ****if***** 


* 


* 


* * 


* LOAD REG 15 


* 


* LOAD REG 15 ♦ 


* WITH CANCEL 


♦ 


♦ WITH IGNORE ♦ 


♦ EXIT ADDRESS 


♦ 


* EXIT ADDRESS * 



^^^^C*****!******** 



4t4i«*«4t*4(4i«4:*4<4i*«* 



**#4t*E2 **♦♦«**♦** 

* RESTORE ORIS. * 

* CSW. RESET * 
♦SVC5NM AND PUB ♦ 
♦FLAGS. MOVE I/O* 

* ADDR TO X»BA» ♦ 



*it4>*F 2 ♦♦♦♦*♦♦*♦ 

♦ BRANCH TO * 

♦ ERPEXIT * 

♦ IN SUPERVISOR * 



Detail Charts 159 



Chart MQ. $$AEERA2 - RMSR l^essage Writer (Part 1 cf 2) 
Refer to Charts C6 ard C7. 



* If 

* $$ABERA2 ♦ 

* * 

«** 4c« « «;4t 4i « t « « 4t # 



MAINOO 

♦INITOO MO* 

* INITIALIZE ♦ 

* PHASE * 

* * 



.*. 
CI ♦. 

.♦EVA MSG*. 
REQUEST 
AND EVA 

.SUPPORTED. 



* * 

* SET UP EVA ♦ 

* MESSAGE ♦ 

* *A4 * 



♦lOREQOO MR* 

* ISSUE EVA * 

* MESSAGE * 

* * 

*4c******** ****«#« 



MAIN05 

4(*4:4t* F 1 it>4i****4i4c*)»: 

*SET UP IN WORK * 

* AREA MSG BITS * 

* AND TURN OFF * 
*ALL EXCEPT THE * 

* BIT INSPECTED * 
4c«*i(c 4c4c 4c ««* iK4c4t4>4i4>:(c 



*4:4c4:4cGl********** 

♦MSGDETOO MO* 
«_♦_♦_*_♦_♦_♦_*_♦ 

* CHECK AND IF * 

* BIT ON SET * 

* Fnn MESSAGE * 



**A2******* 

* * 

♦ PREPARE TO 
INSPECT NEXT 

♦ MSG REQUEST 

* BIT * 

^(♦^c******** 



.*. 

B2 ♦. 

.* ALL ♦. 

NO .* MSG REO. ♦. 

#..*.BTTS CHECKED «* 

*. NOW .♦ 

*. .* 

*. .* 



**C2******* 

* RESET ♦ 
MESSAGE REQUEST 

♦ BITS IN * 
♦ RFFLAGS2 * 

* * 
4c)|t*4<4>«4t**4<4t 



D2 



«* 



♦ . 



.* TAKE ♦. NO 
SUPERVR •♦... 
EXIT .* 

*. .* 
*. .* 
* YES 



.* IS 
EXIT 
*. IGNORE 



«#F2 ******* 

* CLEAR * 

* ERODVC BITS * 
* IN ERROR * 

* RECOVERY * 

* BLOCK * 
4c#4t«««*4c*** 



4.4>«:4t*A3********** 
*SET UP NAME OF ♦ 

* PHASE TO BE * 
.X* FETCHED IN ♦ 

* SVC5NM ♦ 

* * 



* SVC 5 * 

* FETCH PHASE ♦ 

* » 



BAL TO EVARTNOO I NOT S 
FOR MSG '^EIOIXXXXXX 
ecu TR RRR TU MMM 
SIO SSSS» MHERE 
XXXXXX SERIAL NO. 
CUU CHAN AND UNIT 
RRR TEMP, READ COUNT 
MUM TEMP, MRITE COUNT 
SSSSS SIO COi^T 



4>«4c4cD3********* 

* * 

* INITOO * 

* * 

*«:*4i4c4t4i4c3»4t«4(*** 



ITOO 
4t4t4!«4>E3********** 

* SET UP PHASE * 

* REG USAGE. ♦ 

* MAP TO SYSLOG * 

* LUB * 

* ♦ 



F3 *. 
.* *. 
.* SYSLOG *. YES 
*. ASSIGNED .»... 
*. .» 

*. .* 
*. .* 
* NO 



*4iG3******* 

* RESET MSG * 
*BITS - NO MSG* 

* WILL BE * 
* ISSUED * 

* * 
*4t«4E4t4<***** 



*«*«C 4*****«>«** 



it4t4c««(««««t**«*** 



MSGDETOO .♦. 

04 *. 

.♦ *. 

.* LAST ♦ 

*. TRACK NSG 

♦. ALREADY .♦ 

•ISSUED.* 

*. .* 

* YES 



*4>E4******* 

* * 
TURN OFF 

LAST TRACK 
MESSAGE BIT 

* * 
**«4is»4t***** 



XRETRY X 

4i****C5 «*♦♦♦***«* 

♦ LOAD REG 15 ♦ 

♦ WITH * 

♦ RETRY EXIT * 

♦ ADDRESS * 

♦ » 



X 

.*. 



MSGOET05 .♦. 

F4 *. 
.* THIS *. 
.* MESSAGE *. NO 
*. REQUEST BIT .*... 
*. POSTED .* 



4>»«<«*G4********** 

* SET CCWS FOR ♦ 

* MSG TO BE * 
*ISSUEO. IF LAST* 
*TRACK MSG, POST* 
*MSG ISSUED BIT * 
4c4t4i4i4i4t4t***«c*4t4i«*4i 



*. .♦ 

*. -♦ 

♦ NO 

**** . 

* * . 

* E5 *.X. 

* * . 
**** 

XIGNORE X 

4[4>4i««E5 ********** 

* LOAD REG 15 * 

* WITH * 

* IGNORE EXIT * 

* ADDRESS . * 

* * 

♦*♦* I 

* * .X 

* F5 ♦.X. 

* * . 
**** 

X 
m4f^m*fr<5 ********** 
*RE STORE CSW AND* 

* I/O ADDRESS * 

* RESET 5VC5NM * 

* AND PUBFLAGS * 

* * 
mtt***m*m********* 



4i*4i*(;54(******** 

* BRANCH TO * 

* ERPEXIT * 

* IN SUPERVISOR * 

m^i^t^tm********** 



«4:i«c4'« J 1 4c«>tc«4c4i4c4t#4e 

* ICE'^OO MP* 
*_»_♦-■»-*-*-♦-♦-* 

* ISSUF * 

* MESSAGE * 

* *K3 ♦ 

4c«4:«4:**4<«*«*«**4i« 



.X. . 

X 

* * 

* A2 * 

* * 
♦ ♦** 



.*. 






X 


MSGOETIO 


H2 *. 






«««*#H3********** 


X 


*, 






* SET UP SEEK * 


*4<*4>H4********* 


CANCEL 


*. 


NO 


* ADDRESS IN * 


* RETURN TO 


EXIT 




*. .. . 


* MESSAGE * 


* LINK ADDRESS 




*" 




* 0T03I * 


* 


.*' 






* « 


4,4ft************ 


*. .* 




X 


***************** 




* YES 




♦♦** 










* * 












* C5 ♦ 












« * 












*♦** 









♦ LOAD REG 15 * 

• WI TH CANCEL * 

* EXIT ADD'^ESS * 

* * 
««4c4: #« « 4c4t4c4c#4c 4c4c4c# 



****JJ********* 

* RETURN TO * 

* LINK ADDRESS * 

* ♦ 
************** it 



*K3 
POSSIBLE MESSAGES 
ISSUED ARE 
OTOOI, 0T03I, 0T05I 



160 DOS/VS Error Recovery and Recording Transients 



Chart MR. $$ABERI^2 - BMSR message Writer (Part 2 cf 2) 
Refer to charts 06 and 07. 



*4t4>4tA2 ********* 
♦ lOREOOO ♦ 



lOREQOO 

^n^^t^tm^QZ ********** 

♦ HAP TO SVSLOG * 

♦ PUB ♦ 

♦ INDICATE ♦ 

♦ PTA REQUEST * 

♦ IN CCB * 



m****C2********** 

* * 

* ENABLE * 

* FOR I/O ♦ 

* INTERRUPTS * 

* * 



**#02 *♦*♦♦***♦**♦ 



1f:tt*************** 



.* I/O 
♦. COMPLETE 

*. 



*. NO 



4c4<*4e4(E3<'4(4"*'*«4'*** 



# * « :|c « :{e s(c 4e «: # ^ :(c * * « lie 4e 



4t:ilt*iH^f2********** 

» ♦ 

* DISABLE ♦ 

* FOR I/O * 

* INTERRUPTS * 

* * 



♦♦**G2********* 

* RETURN TO * 

* LINK ADDRESS * 

* * 
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chart MS. $$AEEBA3 - RMSR Rsccrd l^riter for SVC '-\'4 EequGS 



:t 1 of 



♦**♦ 

♦ ♦ 

♦ A2 ♦ 



* * 

* A3 * 

* * 



* $$ABERA3 ♦ 



♦ INITOO MS* 

♦ INITIALIZE ♦ 

♦ PHASE ♦ 

« ♦ 



♦ENOOEQOO MT* 

♦-♦_♦_♦_♦-.♦-.♦_♦_♦ 

* CHECK IF * 

* EREP ♦ 

* REQUEST * 



Dl ♦. 
.♦ WAS *. 
YES .* IT EREP 
...*. ENQ/OEO 

*. REQUEST . 
*. .♦ 



♦ NO 



♦ POST * 
COMPBYTE 

AS FILE 

NOT 

♦ READY ♦ 



.» FILE ♦. 

READY 

♦ . .* 

♦ . .* 



,YES .* EREP ♦. 

X...*, PROCESSING . 

*. FILE .* 

♦ • .♦ 
X ♦. .♦ 

♦♦♦♦ * NO 



.* *. 
♦ I/O ♦. YES 
ERROR ON •*... 
♦. FILE .♦ 



♦NEXTAVOO MS* 

♦-.♦-*-.♦-♦«♦_♦-.♦-.* 

* GET NEXT * 

* AVAILABLE * 

* RECORD AREA * 



IS *. YESX 
FILE FULL .*.. 



««4>4<«D2********** 
♦WRTRECOO MT* 

* WRITE THE * 

* RECORD * 

* ♦ 



X 

.♦• 

E2 ♦. 

.♦ *. 

.* I/O *. YESX 

*. ERROR ON .*. 

*. FILE .* 



*• .* 
* NO 



♦ WRTHOOO MT* 

♦ WRITE THE * 

* HEADER * 

* * 
4[ 4i#4e*4i 4<4i«;«4t4i4t 4i4c4t4( 



* 


G2 


* 






4c 




* 






♦ »♦♦ 












X 








ili^'HI******* 






* 


RESET 






* 


COMPBYTE 






* 


AS FILE 






* 


RE/ 


^OY 



*♦** 




*MT * 


X.... 


* J2 ♦.X 




* * 




*♦** 




EXITOO X 


4c «G 2 ******* 


* POST PIB 


* AS NOT 


..X* SVC 7 


* BOUND 


• * ' 


, 4(4t4t******4i« 


4>**4> 


4t 




G2 * 




* 




4i«4c4t 





.* AMY *. NO 
*. MESSAGE .*... 
*. REQUESTS .* 
*. .* 
*. .* 
* YES 



#4<*4>B3********* 

* SVC 5 * 

♦FETCH $IABERA2 ♦ 

* CHART MN * 

4i4E*4>**4t4:4>4>4>*4'** 



4t4c 4i 4t A 4 4c4c 4c 4t 4i * 4c 41 4c 

* 4> 

* NEXTAVOO * 
4» 4t 

4i4c4> 4i 4c4t 4'4c 4t« 4i4E*4t4t 

♦4t4c4c 

* B4 * 



4c4i«4c 
NEXTAVOO 



.♦ RECORD 
FIT OM 
*THIS TRACK. 



* STORE BYTES * 
X* LFFT ON * 

* TRACK ♦ 

* * 

;^4:4<4:4c4t««4'4>:*4>4i4c4'4>>#: 



4c4'4<4c4t4c4'4<4>4e4t 



4c*4i4c4c J I*4>4t4c4>4[4t*4<4t 



Ht^f^f*** *:********** 



*****K 1********** 

♦ RDHOROO MT* 
4c-4c-4c-4c-4i-4t-4'-*-4c 

♦ READ * 

* HEADER * 

* * 
4c4i4t4t4(4c4c4c4c**4t*4(4<4>4t 



4i4c*4!«H2 ********** 

* ZERO PIB ADDR * 
*ENTRY IN ERQUEf* 
*SET COMPLETION * 

* BYTEs ZERO * 

* STATUS AREA * 



4>4<J2******* 

* * 

RESET PTA 
OWNERSHIP 
OF SYSREC 

4t 4> 

4c4c**4i#**4e4c* 



X IGNORE X 

4"**4t4>C3********** 

* LOAD R15 WITH ♦ 

* IGN EXT ADDR * 
♦RESTORE CSW AND* 
*I/0 ADDR. RESET* 
*SVC5NM,PUBFLAGS* 
4c 4c 4e 4!4<4t4t i* ♦♦♦♦♦♦♦ * 



4c4i4<4<D3 ********* 

* BRANCH TO * 

* ERPEXIT * 

* IN SUPERVISOR * 

4!4i4i4E4c4>4>4c4<4:4t4i4i4!4E 



414' 4! 4cE3 ********* 

4c ♦ 

* INITOO * 

* * 

4i4i4t4<*4i4t 4c *♦«**** 



INITOO X 

4c4t4c4i4'F3********** 

4t * 

* SET UP PHASE * 

* REGISTER * 

* USAGE * 

4c ♦ 

4c4t*4i4(*4i4c4<4i4t*4'4'4i 4<4c 



4c4>4<«:4tG3********** 

* CALC CURRENT * 

* TIME OF DAY * 

* AND RELOCATE * 

* CCWS * 

* 4c 
4c4>4'4t4(4t4'4c4t4'4c4t4t4>«'*i4t 



4c 4i4'4<4cH3 ********** 
4t * 

* SET UP HEADER * 

* PORTION OF * 

* RECORD * 

* ♦ 



4c4c4c4e J 3 ♦♦ *4i 4>4c4>4e * 

* RETURN TO * 

* LINK ADDR * 

* * 
4c4c4c*4i ♦♦♦ 4(4i ♦♦4c4t ♦ 



4i4>4t4t4cC4********** 



4c4>4i4i4i4t4i4c4c4i4'4:4>4<4i4c4' 



• *. 

04 *. 

•* LAST *. 

e* TRACK ON *. NO 

. CYLINDER .*... 

*, BEEN .* 

♦•USED .* 



* YES 



NEXTAV20 X 

«i^4t4i4tE4**** ****** 

* UPDATE TO * 

* NEXT * 

* CYLINDER * 

* 4t 

4c #♦ 4t ♦♦ ♦ ♦ 4c ♦ 4c ♦ ♦♦ 4< 4> 4t 



4c 4c05 ******* 

* POST FfLF * 

* FULL AND 
PILE FULL 

♦ MESSAGE 

* "EOUFST * 

4e«4t4:4c4>4c4<4c4i4< 



4c4c4i4cE5 4>4c4<4t4'4<4t*4c 

* RETURN TO * 

* LINK AOOR ♦ 

4c * 

4c4i 4i 4i ♦♦ 4>4> 4>«4t4c ♦♦ ♦ 



NEXTAVIO 

4t4c4t4t4<F4********** 

* ♦ 

* SET NEW HEAD * 

♦ AND RECORD * 

♦ ID VALUES * 

4t ♦ 

4t4c4c4c4r4e4i4<4c«4>4>4i4t4>4t4< 



4t4!4c4c4rG4********** 

* SET BYTES * 

* LEFT ON * 

* TRACK TO * 

* MAX VAIUE * 

4> 4c 

4c4i4c4c4c*4>4c4:4c4c*4>4<««4' 



*4c4c4t 

♦ 4< 

* B4 * 
4i 4c 

4e*** 



4c4cn'^4c4c4:4c4<4c4' 

* POST I AST * 

TRACK 
MESSAf;F 
RFOUEST 

* * 

4e4i4>*4e4t4c4(4c4<« 



NEXTAV35 X 

4c4c4c4t4iH5 ********** 

* UPDATE LAST * 

* RFCOPD TO ♦ 

* ENTRY TN * 

* PECnPOER FILE ♦ 

* HEAHER RFCORO * 
4c 4>4c 4c* 4c4c4c4c*4c «♦ 4c4c 4c4c 



4c 4c4c4i 4c J5 ***♦♦**♦*♦ 

* * 

♦MOVE ^FFK AOOR ♦ 

* TO WORKAREA * 

* IN RECOROER * 

* F!LF TftBLE * 

4c4:4i4<4i4c4c4c4c4<4c:;^4:#4c*:4c 



4c4c*4cK5********* 

* PFTURN TO * 

* LINK ADDR * 

* * 
4c4c4c4c#«4c4c4c4:4c4t 4<* ♦ 



* A2 * 

* * 

4c4E4c4t 
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Chart MT. $$AEERA3 - RMSR Reccrd IKriter fcr SVC 44 Requests (Part 2 cf 2) 



♦ A3 ♦ 



♦ * 

♦ WRTHDROO * 

♦ ♦ 



rtRTHOROO 

* SET REG ♦ 

♦ WORKZ WITH ♦ 

* WRITE ♦ 

♦ COMMAND ♦ 



4<4>**A2*4c«*«*4i4(« 

* RDHDROO * 

* * 
««**** 41** **«! *4(* 



***************** 
**♦* 



*♦*♦ 
lOREOOO X 

*****D1*******4!*4< 



.* REQUEST ♦, NO 
*. COMPLETE .*... 
*. .* 



iitm***B3 ********* 
* 

* DISABLE 

* FOR I/O 

* INTERRUPTS 
* 
**************** 



.♦. 

C3 *. 

.* *. 

.♦ I/O *. 

*. ERROR 

♦ . .♦ 

*. .* 



*****A4.********** 



***************** 



****C^********* 

♦ RETURN TO ♦ 
.X* LINK ADDP • 

* * 

*************** 



****A5********* 

* * 

* MRTRECOO ♦ 

* * 
*************** 



X 
WRTSeOOO •♦. 

B5 ♦. 

,* *. 
.♦ DATA ♦. 
*. IN CORE 
♦ . .* 



****C5 ********* 

* RETURN TO * 

* LINK ADOR ♦ 

* * 
*************** 



MAP TO 
SYSREC PUB 



***************** 



♦*El******* 

POST CCB 

TO INDICATE 

ERP CCB 

* ♦ 

*********** 



*********** 



X 


X 


.*. 


.*• 


Fl ». 


F2 ♦. 


.♦ *. 


.♦ ♦. 


FILE ♦. NO 


.♦ WRITING ♦. 


OWNED BY .*...., 


*. ACTUAL 


PTA •♦ 


*. RECORD .♦ 


*, ,♦ 


*. .♦ 


♦ . .♦ 


*. ,* 


* YES 


* YES 



**[)3******* 

* * 
POST I/O 

ERROR 
MSG CODE 

* • 
*********** 



**E3******* 

♦ SET I/O • 
ERROR IN 

COMPLETION 
BYTE 

* * 
*********** 



**f3******* 



*********** 

I **»* 
, * * 

•.X* Dl ♦ 



D5 *. 
.* WILL ♦. 
.♦ DATA FIT ♦. YES 
♦ . IN THIS .*... 
*. RECORD .♦ 
*. .* 

*. .* 
* NO 



*****E5 ********** 

* SET REG ♦ 

* WORKZ TO * 

* MOVF 176 ♦ 

* BYTES TO * 

* RECORD AREA * 
***************** 



*****G1********** 


*****G2*«4'******* 










• FIRST ENABLE 




♦ ALARM VM/370 * 






♦♦ ♦♦GS *♦ ♦♦ ♦♦♦♦ ♦ 




* THEN DISABLE 




♦ (SET HIGH * 






* * 




♦ F0«? i/n 




* ORDER BIT IN * 






♦ ENOOEOOO * 




* INTERRUPTS 




♦ REGISTER ♦ 

* 1 ON) * 






* * 
*************** 




***************** 


***************** 
Ix... ..... 










X 

***♦ 












* * 








X 




* Dl * 




X 


ENQDEQOO .*. 




* ♦ 




***H 2 ************ 


H3 ♦. 


**H4^^^^^^^^ 


**** 








.♦ ♦. 


♦ POST ♦ 






* SVC 76 * 


.♦ ENQUE ♦. YES 


♦ RFFLAGS ♦ 






REQUEST I/O 




♦. REQUEST ...... 


..,.X^ FOR ENQUE < 






* * 




* ♦. 


♦ FILE FOR ♦ 
♦ EREP ♦ 






***************** 




*. .* 
♦ NO 


*********** 

♦*** I 

* ♦ 
J M J.X. 






X 




X 


**** 






.*. 




.♦. 


X 






J2 *. 




J3 ♦. 


**J^******* 






.* *. 




.♦ ♦. 


* ♦ 






.♦DID VM/370 ♦. YES 


.♦ DEQUEUE ♦. NO 


♦ POST EREP ♦ 






*. TAKE .♦. 




♦. REQUEST ...... 


♦ REQUEST IN 






*. OVER .♦ 




♦ . .♦ 


♦ PHASE SW ♦ 






*, ,* 




♦ . .♦ 


♦ ♦ 






*. .* 


X 


♦ . .♦ 


. *********** 






♦ NO 


***** 


♦ YES 










♦ MS ♦ 












♦ G2^ 
♦ ♦ 

* 




r. ...... .. .xi 






* 












EXITOD 










X 




X 


ENQDEQ15 I 






*****K2********** 




**K;3 ******* 


X 






* * 




♦ POST ♦ 


****K4********* 






♦ ENABLE FOR * 




♦ RFFLA6S2 ♦ 


♦ RETURN TO 






*I/0 INTERRUPTS * 




♦ FOR DEQUE ♦ 


♦ LINK ADOR 






♦ * 






♦ FILE ♦ 


* 



WRTREC05 

*****F 5 ********** 

♦ SET UP DATA ♦ 

♦ PORTION OF ♦ 

♦ RECORD. ♦ 

♦ SET UP ♦ 

♦ COUNT FIELD ♦ 
***************** 



*****Q5 ********** 

* * 

* SET UP TO ♦ 

* WOITE COUNT- ♦ 

* KEY-DATA ♦ 

* * 
***************** 



**** 

* * 

* 01 * 

* ♦ 
**** 



***************** 



*********** 



*************** 
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Chart MU. $$AEERAA - Statistical Ccunter Update fcr Tape Devices (Part 1 cf 2) 
Refer to Chart 07, 



♦ ♦ 

♦ A2 ♦ 

mm** 



****til********* 

* ♦ 

* $$ABERAA * 

* * 
mm************* 



MAINOO 

m****ci*#******** 
♦INITOO MV* 

* INITIALIZE * 

* PHASE * 

* ♦ 
m**************** 



MAING5 X 

**m**A2********** 
♦TAPEOO MV* 

m^*^*-*^*-*-*-*-.* 

* SET UP FOR ♦ 

* COUNTER ♦ 

* ROUTINE ♦ 

mmmm************* 



ittm*m*i^2 ********** 

* UPOATE ♦ 

* COUNTERS IN ♦ 

* PUB2 ENTRY ♦ 

* ♦B3 • 

* * 
**m************** 



*m***cz********** 
*RECTSTOO MU* 
m-m-.m-*"*-*-*-*-* 

* TEST fOR * 

* RECORDING * 

* * 
***m************* 

**** I 

* * • 

* 02 *.X. 

* * , 
♦*** X 

EXITOO .*• 

02 *. 
.* ERR *. 
.* TO BE *. YES 
*. RECORDED .*.... 

*. sw .* 

*. ON .* 



*4(**A4********* 

* * 

* RECTSTOO ♦ 

* * 

m************** 



*B3 
BAL TO CNTROO, 
NOT FLOWCHARTEO 



.X* 



♦ ♦♦♦ 

* m 

* 02 ♦ 

* * 



♦ NO 



m****03********** 

* REDUCE LIMIT * 

* COUfIT BY 1 * 
AND STORE * 

▼ BACK IN ♦ 

* P2 LIMIT * 
m********** ****** 



♦****E I********** 

* * 

* SET RFEXIT * 

* TO CALL ♦ 

* PROPER ERP * 

* PHASE * 

m **************** 



X 

• *. 



.* EVA 

MESSAGE 
♦.REQUIRED 



X 


X 


•*• 


.*. 


Gl *, 


G2 *. 


*DEVICE ♦. 


• ♦ * 


IN NO *, YES 


.♦CHARACTERS 


RECORDING .*.... 


*• IN RFEXIT 


MODE .* 


*» 


*. .* 


*, ,♦ 


*. •* X 


♦, .♦ 


* NO ♦*** 


* NO 


, * * 




♦ 02 ♦ 




, * * 




. **** 


, 



m***^3********* 

* SVC 5 * 

* FETCH $$ABERA4- * 

* CHART HC * 
*m************* 



m***f3********* 

* SVC 5 ♦ 
.X*FETCH $$ABERA2 ♦ 

* CHART MQ * 

^iittm************ 



m***G3********* 

* SVC 5 * 

* FETCH NEXT * 

* PHASE * 

*************** 



.* 

.* 
♦= YES 



RECORD *. 
LIMIT 

REACHED .* 



RECTST05 .*. 

04 *. 
.♦PECOPO *. 
YES .* ALL BPOoo 
...*. TY«>ES 

*. *B5 
♦ . .* 



m****fjit********** 

* * 

* GET BIT MASK * 

* AND SENSE * 

V BYTE * 

* * 
***************** 



*. NO 
IS BIT ON •*... 



*m 

TMTS IS RASED ON MODE 
PARAMFTFP - CF MAY 
»EOUEST ANY BT T^ 
(0-7;nF ANY NUMBER 

OF BYTES nF SENSE 
DATA Fn«? THE DEVICE. 



**r)ty******* 

* RFSFT * 

* ''7FLAGS 

* TO NORMAL 

* MHOF 

* * 
*********** 

**** 

* * 

* F5 *.X. 



PFCTST20 



* ♦ 

* E5 * 

* * 



**fK,******* 

* PO^T * 

* RFFLAnS3 * 
♦FOR ERROR TO ♦ 

♦ BE RFCORDED * 

* * 
*********** 

**** 

* * 

* "-5 *.X, 

* * 

**** 



****r,^********* 

* RETURN TO « 

* LINK ADDRESS ♦ 

* * 
*************** 



**** 

* * 

* J4 ♦ 

* * 
**** 



IGNORE 
EXIT 



*• .* 






X 


*. .* 


♦ YES 






**** 

* * 

**** 


♦ YE 

X 
♦**♦♦ 


X 








♦MV * 


• ♦. 








♦ C2* 


Jl ♦. 








* ♦ 


.*DEVICE *« 






♦ 


.* IN 


* 


. NO 


X IGNORE 


*. DIAGNOSTIC 




.*. 


• • . 




*. MODE 


* 








*. •* 






, 




♦ . .♦ 






X 




* YES 






* * 

* 02 * 

* ♦ 

***♦ 




X 








• *. 


*****!< l*******i**m 




K2 *. 


*RECTSTOO 


MU* 




.♦ ERROR 


♦ _♦_*_*_♦_♦_.*- 


-*- 


-♦ 




. ♦ TO BE 


* TEST FOR 




* 


X* 


, RECORDED 


« RECORDING 




* 




*. SM ON 



.* CANCEL *. 
EXIT 

*. «* 



**** 

* * 
..X* E5 ♦ 

* * 



***** 

♦ MV * 

« A2* 

* * 



♦*** 

* ♦ . 

* J4 *.X. 



XCANCEL 

m****j3m********* 

* * 

* LOAD REG 15 * 

* WITH CANCEL * 

* EXIT ADDRESS * 

* ♦ 
***************** 



X 
***** 

♦ MV ♦ 

* D2* 



RETRY *♦** 

RECTST15 X 

** J 4***4: 4c** 

* POST * 

* RFFLAGS3 

♦ FOR ERROR TO 

* BE RECORDED 

* * 

4c********** 



***************** 



**** 

* * 

* A2 * 

* ♦ 

**** 



* 02 * 

♦ * 
**** 
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Chart KV. $$AEERAA - Statistical Counter Update for Tape Devices (Part 2 cf 2) 
Refer to Chart 07, 



♦ * 

♦ INITOO ♦ 
4c 4c#«4e4i **♦♦#**»* 



INITOO 

* SET PFEXIT * 

* DEFAULT NAME ♦ 

* TO $$ABERRA * 

* GET DEVICE ♦ 

* TYPE ♦ 



*MOVE SENSE AND * 

* EXTENDED SENSE * 

* BYTES TO WORK ♦ 

* AREA * 

* ♦ 



***** 
♦MU * 
♦ H3* 



♦ LOAD REG 15 ♦ 

♦ WITH RETRY * 

* EXIT ADDRESS * 

* * 



B2 *. 

.* ♦. 

* RETRY * 

ALLOWED 



****^^***^i*fl,*** 

* * 

* TAPEOO * 

* ♦ 
m************** 



* * 




* A4 • 

» ♦ 




X 
TAPE20 .*. 

./* *% 
.♦ TIE 

♦. BYTE X«03» 


'*. YES 



,4t 
.* 
NO 



*♦*♦ 
*MU * 
* H2 



**♦* 
XIGNORE X 

*****C2 ********** 

* * 

* LOAD REG 15 * 

* WITH IGNORE * 

* EXIT ADDRESS ♦ 

* * 
*^i^* If* t ********** 



**** 
*MU < 
* J3 



*.X, 



* * 

* SAVE ADDRESS * 

* FOR OTHER * 

* ROUTINES * 

* * 



*♦*♦ 

XCANCEL2 

♦♦#♦♦02 ********** 
♦RESTORE CSW AND* 

♦ I/O ADDR IN LOW* 

* CORE. RESET ♦ 

♦ SVC5NM AND ♦ 

* PU8LAGS * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦E 2 ********* 

♦ BRANCH TO * 

♦ ERPEXIT * 

♦ IN SUPERVISOR * 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



INIT05 X 

INITIO .*. 

Fl *. 

.* *. 

.» DEVICE *. 

♦.2400 OP 3400 . 

*. TAPE .♦ 



♦ ♦(;!_♦♦♦♦♦♦♦ 

♦ POST TAPE * 

SWITCH * 

(PHASESW 
X»40« BIT J * 

* * 
♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦Hl**^*****«^ 

* SAVE NUMBER ♦ 

* OF ♦ 

* COUNTERS * 

* AND INDEX ♦ 

* TO LIST * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦J ]^######^^# 

* RETURN * 

* TO CALLER ♦ 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



TAPEOO .♦. 




X 




B3 ♦. 




**B4******* 




.* *. 




* * 




.♦ DATA *. NO 




* 'OR' TIE * 




♦. CHECK .♦..•. 




* BITS TO TIE * 




*. .* 




* MASK BYTE * 




*• .* 




* * . 




♦ . .* X 




♦♦♦♦♦♦♦♦♦♦♦ 




* YES ***« 








♦ 


♦ 


*♦** 




• H4 


• 
* 


» * .X.. 




• * 


♦ C4 *,X. 




***4 




♦ ♦ » 


X 




**** X 


.*. 


TAPE25 .♦. 


C3 *. 




C4 *. 


• * ♦• 




.* *. 


NO .* DEVICE ♦. 




.♦ FAILING *. NO 


...*. IN .♦ 




♦. CCW .*.... 


*. PE MODE .♦ 




♦. PRESENT .* 


*. .* 




♦ • .* 


*• .♦ 




*. •♦ X 


* YES 




» YES **** 



.*. 

03 *. 
,♦ PE *, 
BURST ♦ . 
CHECK BIT . 

ON .♦ 

♦ . .* 

*. .* 



**£j,*i*i***** 

* TURN ON ♦ 

» MASK BIT * 

(X»BO«) IN PE 
* BURST MODE * 

* COUNTER * 
♦*♦♦♦♦♦♦♦♦♦ 



READ *. 

OR WRITE 
, COMMAND .* 



TAPEIO .*, 

F3 ♦. 
.* *. 

.* TIE * 

*. BYTE X'FF* 

*• .♦ 

♦ • .♦ 



:$t*.***E^********** 

♦ UPDATE TEMP ♦ 

♦ READ ERROR * 

♦ COUNT IN PUB2 * 

♦ ENTRY BYl ♦ 

♦ • 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



X 

• *. 



TAPE35 

♦♦♦♦♦E5 ♦♦♦♦♦♦♦♦♦♦ 

* UPDATE TEMP * 

* WRITE ERROR ♦ 

* COUNT IN PU82 * 

* ENTRY BY I * 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



READ 
THRESHOLD 
. REACHED , 



♦ . NO 





♦ 


NO 




**♦♦ 




, 






* 




....X. 

X 






* C4 

* 
♦*♦♦ 


TAPE15 


.* 
03 
.♦ 


'*• 

♦ 






.* 


TIE 


♦ 


. NO 


*. 


JYTE X 


M)0« 




*.... 


* 






.» 






*. 


,♦ 




, 




♦ • 


,♦ 




X 




♦ 


YES 




»»** 



♦♦G4******* 

♦ POST EVA * 

* MSG REQUEST 
♦ (X*08M IN 

* RFFLAGS2 

* * 
♦♦♦♦♦♦♦♦♦♦♦ 

*♦** 



* H4 ♦.X 



.* WRITE 
.*. THRESHOLD 
*. REACHED . 



♦♦f,c; ♦♦♦♦♦♦♦ 

* POST EVA ♦ 
MSG REQUEST 
(X»OB«J IN 

RFFLAGS2 

♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦ 



♦♦H3*^##^^^ 

*SET PARITY * 

* BIT {X»01«) ♦ 

♦ IN PE BURST 

♦MODE COUNTER ♦ 

* * 

♦♦♦♦♦♦♦♦♦♦♦ 



TAPE 40 

♦♦♦♦♦H4********** 

* GET NUMBER OF * 

* COUNTERS IN * 

* LIST INTO * 

* REG ♦ 

* ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* ♦♦ ♦♦ J 4^ ♦♦♦*♦ ♦ ♦♦ ♦ 

* POINT REG 15 * 

* TO PROPER * 
♦COUNTER UPDATE ♦ 
♦LIST AND R12 TO* 

* CNTRS IN PUB2 ♦ 
♦♦♦♦♦♦*♦♦♦♦♦♦♦♦♦♦ 



****fl^^*t**ik****c* 

* RETURN * 

* TO CALLER ♦ 

* * 
♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 
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Chart MW. $$AEERRA - ERP Kcnitcr (Part 1 cf 2) 
Kefer to Charts 02^ 06 and 07. 



♦ ♦ 

♦ A2 ♦ 

♦ * 
♦♦♦♦ 



♦ ♦ 

♦ $$ABERRA ♦ 

♦ ♦ 



^^♦♦♦Bl^««*^^^4>«« 



««**«*«1«!4(#«#*^#^$ 



.♦ ERROR ♦ 
♦. OCCURRED ON 
♦.RECOVERY .♦ 

♦ , ,♦ 

♦ • .♦ 
♦ NO 



COMBIN 

♦♦♦♦♦D !*♦♦♦*♦♦♦♦* 

♦ INSERT X»3l» ♦ 

♦ DEVICE NOT ♦ 

♦ OPERATIONAL ♦ 

♦ MSG CODE ♦ 

♦ ♦ 
^^^♦^'♦♦♦♦♦♦♦♦♦♦♦^ 



X 
.*• 
A2 *. 
.* CONS *. 
.♦ PR-KEYB. *, NO 
. OR MOO 125 .*..• 
*1NT OISPL..* 
♦.UNIT .♦ 
♦• •♦ 
♦ YES 



* SVC 5 ♦ 
♦FETCH $$ABERRH ♦ 

♦ CHART RE ♦ 



.♦ DEVICE ♦. > 
.X^. DASO •♦. 





.♦. 








A3 ♦. 








♦ ♦ 






.♦ 


UNIT 


♦ . YES 


x^. 


RECORD 


...... 


m. 


DEVICE 


•♦ 






♦ . .♦ 








♦ . .♦ 




X 




♦ NO 




♦♦♦♦♦ 








♦MX ♦ 








♦ Al^ 








♦ ♦ 








m 




















B3 ♦. 








♦ ♦ 






• ♦ 


2495 


♦ . 


YES 


♦• 


TC 
READER 


.♦' 


♦••.••• 


♦ , 





♦♦♦♦ 

♦ * 

♦ 85 ♦ 

♦ ♦ 
♦♦♦* 



.♦ 


1017 


♦. 


OR 


♦. 


1018 



X 

♦♦♦♦♦ 
♦MX ♦ 
♦ A4^ 

♦ ♦ 

EXITA 



ES 


♦ . .♦ 
♦ • .♦ 


X 

♦♦♦♦C4+^^^+^^^^ 


X 

♦♦♦♦♦ 
♦MX ♦ 

♦ 




♦ . .♦ 
♦ NO 






• 





.♦ ♦. 

.♦ DEVICE ♦. 

♦. OPERATIONAL . 

*. .* 
♦ . .♦ 


NO 
♦ . ... 


*««*E2 ♦♦♦♦♦♦♦♦♦ 

♦ SVC 5 < 
♦FETCH $$ABERRB i 

♦ CHART MM < 


♦ • .♦ 
♦ YES 


X 
♦*♦♦♦ 
*MX ♦ 
♦ B4^ 





♦. .♦ 
♦• .♦ 

♦ NO 



E3 



.♦ 1285 ♦. YES 
♦. OR ...... 

♦. 1287 .♦ 

♦ . •♦ 
♦ . .♦ 
♦ NO 



.♦ 2560/5425 ♦. YES 
*. REPOSIT ...... 

♦ . REQ. .♦ 
♦ . .♦ 



X 

.♦. 
Gl 
♦ 

2400 



♦. OR 3400 
♦. TAPE 



^[^(♦♦F2 ♦♦♦♦♦♦♦♦♦ 

♦ SVC 5 ♦ 
.X^FETCH $$ABERRD ♦ 

♦ CHART QP ♦ 

^t^^c^ ♦♦♦♦♦♦♦♦♦♦* 



.♦• 
62 ♦. 
.♦ CHAN ♦. 
.♦ DATA OR ♦. YES 
.X^. CHAIN CHECK ...... 

♦. OR UNIT .♦ 
*. CHECK. f 



.♦ ♦. YES 

♦. 3540 ...... 

♦ . .♦ 



X 

.♦. 

63 ♦. 



♦ SVC 5 ♦ 
♦FETCH SSABERRl ♦ 

♦ CHART PJ ♦ 



♦ SVC 5 ♦ 
.X^FETCH $$ABERRT ♦ 

♦ CHART TA ♦ 

#41 * «(* * « 4t *)«E 4>4i 4t * * 



«)|t4t He F 44c* *4> «4<# ♦ ♦ 

♦ SVC 5 ♦ 
.X^FETCH $$A8ERR7 ♦ 

♦ CHART PX ♦ 

^^^■^^♦♦♦♦♦♦♦♦♦^ 



♦ NO 



• X. 
X 

.♦. 



*♦♦♦ 

♦ ♦ 

♦ A2 ♦ 

♦ ♦ 
♦♦♦♦ 



'♦*N0 



.♦ ♦. 

.♦ PROGRAM ♦, NO 
f. CHECK .♦... 



,♦ 
• .♦ 
♦ YES 



«:*4:**J1 *#««♦♦♦♦*♦ 

♦ INSERT ♦ 

♦ X»24« ♦ 

♦ PROGRAM CHECK ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 



***** 
♦MX ♦ 
♦ A4^ 



***4cG4^^^^^^^^^ 

♦ SVC 5 ♦ 
.X+FETCH $$A8ERAM * 

♦ CHART TH ♦ 



****H4^^^^^^^^^ 

♦ SVC 5 ♦ 
•X^FETCH $$ABERRV ♦ 

♦ CHART RJ ♦ 

*************** 



.♦• 

C5 *. 

.♦ 3270 ♦. 

NO .♦ OR 2260 ♦. 

...♦.OR TP DEVICE .♦ 

♦IN 0-RANGE.* 

♦, .* 

♦ , ,* 



TPERP .♦. 






05 ♦. 






.♦ ♦, 






.♦ CCB 


♦ , 


YES 


♦. AVAILABLE 




♦ . . .. 


♦ . • 


* 




♦. .♦ 






♦ . .♦ 




X 


♦ NO 




***** 


♦♦♦♦ 




♦MX ♦ 


♦ ♦ . 




♦ A3^ 


♦ F5 ♦^X. 




* * 


♦ ♦ . 




* 


**♦♦ 






XIGNORE X 






*«***|f54c********* 



♦ LOAD R15 ♦ 

♦ WITH IGNORE ♦ 

♦ EXIT ADDRESS ♦ 

♦ * 
***************** 



*****P5 ********** 
♦RESTORE CSW AND^ 

♦ I/O ADOR ♦ 

♦ RESET ♦ 

♦ SVC5NM AND ♦ 

♦ PU8FLAGS ♦ 

********:********* 



****&5 ********* 

♦ BRANCH m ♦ 
« ERPEXIT ♦ 

♦ IN SUPERVISOR ♦ 

*************** 



PROTCHK 

♦ INSERT ♦ 

♦ X»25» ♦ 

♦ PROTECTION ♦ 

♦ CHECK MESSAGE ♦ 

♦ CODE ♦ 

***************** 





♦ . 


****J4********* 


1412 


♦ . YES 


♦ SVC 5 


OR 


....... 


..X^FETCH $$ABERRS 


1419 


.♦ 


♦ CHART RF 




* 


*************** 



♦ B5 ♦ 

* ♦ 
♦♦♦♦ 



J5 *. 






IS ♦. 




THIS A 


* 


YES 


RETAIN 




.♦. ... 


DEVICE 


* 


, 


.* 






*. .* 




X 


* NO 




**** 
* ♦ 






* E5* 


X 




* * 


***** 




♦ ♦*♦ 


♦ MX ♦ 






♦ F3* 






* * 






* 






LASPHAS 
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Chart KX. $$AEERRA - ERP Kcnitcr (Part 2 cf 2) 
Refer to Charts C2, C6 and C7. 



♦MW ♦ 
♦ A3* 



*m * 

* 05* 



***** REFERENCES 

* * TO «XA4s 

* ♦* WWC2t MWJl 



.». 




X 


EXITA X 


11 ♦. 




*4e4c*4tA3********** 






*, 


****A2********* 


♦ * 




» TORN OFF. * 


3505 *. YES 


* SVC 5 * 


* SET UP SVC5NM * 




*ALLOM RETRY AND* 


OR .♦...•.. 


..X«FETCH $tABERRG * 


* TQ FETCH * 




• IGNORE BITS 3 * 


3525 .* 


* CHART TU * 


* $fABERP5 • 




» AND 5 IN * 


.* 


**««*«*«*«••««* 


♦ # 




* EROUE FLAG ♦ 


*. .* 




**«*«4c«*«»*««**4i4i 




• •***«4t**«******* 


* NO 














: REFERENCES 


**** I 

* * • 






! TO 


MXB4; 


* * *.X. 


I 




I MWC2 


1 HWEl 


» * . 



*. .* 

♦ . .♦ 

* NO 



CI ♦. 
.* *. 

.» *. YES 

2245 ...... 

*. .♦ 



«4i«*B 2 ********* 

♦ SVC 5 * 
.X*FETCH $$ABERRF * 

* CHART TK * 



««*4((;2 ********* 

* SVC 5 * 
.X*FETCH $$ABERRH ♦ 

* CHART UA * 



**** X 
.*. EXITS .♦. 

83 *• B4 *• 

.* *. .* *• 

' ON LINE *. NO 



• • TEST 
*. REQUEST • 

*. .* 



4i**4r*C3********** 

* * 

* SET UP SVC5NM * 

* TO FETCH * 

* $$ABERPl * 

* * 



3330 



X 
.*• 

C4 *. 
.* *• 
.* *. YES 

*. 3340 •*.... 



*4c#«Dl********* 

♦ SVC 5 * 
♦FETCH $$ABERRY * 

* CHART RB * 

4<4:4c************ 



4c***E 2 ********* 

* SVC 5^ * 

* FETCH PROPER ♦X. 

* BTAH PHASE * 

*4<:)|i#4e********** 



NO .♦ MPS 

...*. SUPPORT E 



*. .* 
*. .* 
* NO 



****D4********* 
» SVC 5 * 
•FETCH $$ABERRK * 
* CHART «A * 

*************** 



**«*B5 «4(**4i4(4i«* 

* SVC 5 * 
.X*FETCH tSABERAS ♦ 

* CHART NE ♦ 



4««4tC5 ********* 

* SVC 5 * 
.X*FETCH $tABBRA7 ♦ 

* CHART NH * 



E3 ♦. 




.* OTAM * 




.* KEY 


♦ . 


*. IN ERROR 


.* 


*. QUEUE 


,* 


*. CSH .* 




*• •* 




* YES 








*MW * 




* J5 *.X. 





**** 

LASPHAS X 

*****F3********** 
» INSERT X»27' * 
*UNKNOMN DEVICE * 

* MSG CODE. SET * 

* UP TO FETCH * 

* $$ABERRK * 

4c**4i««*4c4c***4c*4c** 



* SVC 5 ♦ 
*FETCH $tABERRK * 

* CHART MA ♦ 
******♦«♦**♦**♦ 
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Chart MY. $$ABERRB - Disk EBP (Fart 1 cf 2) 
Refer to Charts 02 and C6. 



* $$ABERRB * 



4[4t4t4c«B 14<*4'4'***4'** 



:]»)|c4E«##*:4i4c4i4>**4t#*# 



CCB 
AVAILABLE 



♦ INDICATE SEEK* 
♦ADDRESS SHOULD ♦ 

♦ BE PRINTED ♦ 

♦ * 



♦**♦ 

♦ ♦ 

♦ B2 ♦ 

♦ * 



B2 *. 


4t**4<4cB34t«*4[4i***«* 


B4 ♦• 






.* ♦. 


* INSERT X«21« ♦ 


,♦ *, 




* NO ♦. YES 


* NO RECORD END ♦ 


.♦ MISSING *. NO 




RECORD .*..... 


...X*= MISSING ADDR.*.,.. 
* MARKER ♦ 


..a.X*. ADDRESS •♦>«««> 






*. FOUND .* 


♦. MARKER .* 






♦ . .* 


* MESSAGE CODE ♦ 


*. .* 






♦. .♦ 


4t4c««*4<«t*4t*4c4>4c«4t * «t 


*. .♦ 






* NO 




♦ YES 










4t4>*# 










, ♦ ♦ 










..X* G4 * 










♦ ♦ 






C2 ♦. 




C4 *. 






:tfm*i**C3********** 


Hi 4c4> «*C5 ♦♦♦♦♦♦♦♦** 


.* ♦. 


* INSERT X»26» ♦ 


.* *. 


* INSERT X»15» ♦ 


♦ SEEK *. YES 


* INVALID ♦ 


.♦ COMMAND *. NO 


* SEEK * 


CHECK .♦ 


.«X* SEEK ♦.... 


....X*. REJECT .* 


. ..X* CHECK ♦ 


*, , * 


♦ MESSAGE ♦ 


♦ . •♦ 


* MESSAGE * 


♦ . , ♦ 


* CODE ♦ 


♦ . .♦ 


* CODE • 


♦. .♦ 


*m**:****mi^*m***** 


*. .* 


4>4c*«*4c4<«4'***4c**«* 



.INTERVENTION*. YES 
*. REQUIRED .*..., 



TESTDAT 

* INSERT X*28 ♦ 

* CHANNEL DATA ♦ 

* CHECK ♦ 

* MESSAGE * 

* CODE * 

:«t«4c««4t****«**4c««^ 



.* 

. .* 

♦ NO 



BUSOUT 

4c*i|c4<4cE2 ********** 

* INSERT X«09« * 

* BUSOUT CHECK * 

* MESSAGE * 

* CODE ♦ 

4: * 

)t(4i4c4c«4>4t«««««4i«*4>* 



* INSERT X»08» * 

* INTERV. REO. * 
.X* MSG CODE AND *. 

*POST INT. REO. * 

* IN EROFLG * 

^c********:^^******* 



**♦* 

* * 

* G4 * 

* * 

♦♦** 



4c*4c#4i(;X********** 

* INSERT X«10« ♦ 
♦EQUIPMENT CHECK* 

* MESSAGE * 

* CODE * 

* ♦ 

«4:)f*«***»*4t)»'4c***4( 



BUSOUT 
CHECK 



X 

♦MZ ♦ 
* CI* 



.* NO RECORD *. 

. FOUND SW. . 

*.IN EROFLG.* 



4t4>***E5 ********** 
*INSERT X«36' NO* 

* RECORD FOUND * 

* MSG CODE AND * 

* P0*;T CCB * 

* « 



♦*** 

* * 

* G4 *,X. 

* * .A.. 
**** X 

• *• 
G4 *. 



.* *. YES 

♦. 3330 .*.... 



4t4i4>4cG5*4<4»|c***** 

* SVC 5 * 
. X*FFTCH $$ABERA5 * 

* CHART ME * 

4i4e4e4t***4i4i4t4[4t4i:4E* 



HI *. 
.* *. 
,* EQUIPMENT *. YES 
*, CHECK .*.... 

*. .* 

*. .* 

♦ . ,* X 

* NO ** 



* * 

* B2 * 

* * 
**♦* 



* G4 * 



4c4t«:*J4********* 

* SVC 5 * 
♦FETCH $$ABERRK * 

* CHART MA * 



4t* 4c« J5 4<*4c*4i**4(4c 

* SVC 5 * 

♦FETCH $«A8ERAT * 

* CHART MH ♦ 

»«««*********** 
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Chart MZ. $$AEERRB - Eisk ERP (Fart 2 of 2) 
Refer to Charts C2 and C6. 



* A4 ♦ 



***** 
*MY * 
* F2* 



*. DATA CHECK 



82 ♦. 

* *, 

OVERRUN 

*. .*' 

♦. .♦ 
* YES 



*****C2********«* 

* * 

* INSERT X»14« * 

* OVERRUN ♦ 

* MESSAGE CODE ♦ 

* * 
***************** 



..X* J4 * 

* * 

«*** 
.*• 
02 *. 
.♦ USER *. 
.♦HANTS DATA *. NO 
.X*. CHECKS .*.•, 

*. RETURNED .♦ 
*• •* 

*• .* 
* YES 



**E2******* 
♦ TURN ON * 

* PASSBACK * 

BIT 2 

♦ IN ♦ 
*ERQUE FLAG ♦ 

«**i|4t*#«*«4t 



*****A3 ********** 


A4 *. 


**4e«*A5 ********** 


♦ INSERT X»13« * 


.* ♦. 


♦ INSERT X»45« * 


♦ MISSING AODR * 


.* COMMAND *. YES 


* HRITF * 


« MARKER ♦ 


*. REJECT .♦ 


..X* INHIBIT *. 


* MESSAGE * 


♦ . .* 


* MESSAGE ♦ 


* CODE * 


*. ,* 


* CODE * 


**4i****** ****** ** 


*• .* 
♦ NO 

**** 

. » * 

..xja4* 


4c***4c**4t**4t4>**4[*4e 




**** 




• ♦• 


FILEPR .*. 




B3 «. 


84 *. 


*4t***B5********** 


.♦ ♦. 


• * *. 


* * 


*:• tllU^t *:.??.. 


.* FILE *. YES 


♦INSERT X»17« * 


••..X*. PROTECT •*...•.. 


.-X* FILE PROTECT ♦ 


*. MARKER .♦ 


*.VIOLATION.* 


♦ MESSAGE CODE ♦ 


*. .♦ 


*. ,♦ 


* ♦ 


♦ . .♦ 


*. .* 


tc^^^^c 4r4r4t4c*4t «****« 


♦ YES 


* NO 




X 

**** 


• 





COMREJ •*• 

C4 ♦. 
.* *. 

.* COMMAND ♦. YES 
*. REJECT ...... 

♦ . .♦ 

♦ . .♦ 

♦ • ,♦ 
* NO 



YES .♦ CHAINING ♦. 
...... CHECK .♦ 



*****E3*4c ******** 

♦ INSERT X«14« ♦ 

♦ CHAINING ♦ 

♦ CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ ♦ 
** )|i«4i4(*^******* * * 



UNKN 

*****E4**^*^*^^^^ 

* INSERT X«19« * 

* UNDETERMINED * 

* ERROR * 

* MESSAGE CODE * 

* « 
***#«4>4>*4e«4>*«*4e4<* 



♦ m* **c 5 *♦♦♦ ♦♦***♦ 

♦ INSERT X«18« ♦ 

♦ COMMAND ♦ 
.X^ REJECT ♦ 

♦ MESSAGE CODE ♦ 

♦ ♦ 

******* 4i«#*4i****« 



EXITA 

**05 *♦♦♦♦♦♦ 
* TURN OFF ♦ 

♦ ALLOW RETRY ♦ 
♦AND IGNORE $♦ 

♦ 3 AND 5 IN ♦ 
♦ERQUE FLAG ♦ 

*********** 



**** 

* * 

* J4 ♦ 

* * 
**** 



♦ INSERT X»ll» ♦ 

♦ DATA CHECK ♦ 

♦ MESSAGE CODE ♦ 

♦ ♦ 
***************** 



X 

.*• 
Gl ♦. 
.* DATA *, 
.* CHECK IN ♦.NO 
*. COUNT .♦... 
♦ . FIELD .♦ 
*. .* 
♦ . .♦ 
♦ YES 



♦♦Hl***3^**^ 

* TURN ON ♦ 

♦ DATA CHCK IN ♦ 
♦CNT FLO BIT IN ♦ 

♦ CCB, BYTE 3 ♦ 

♦ BIT ♦ 
*******4c*** 



***** J 1********** 

♦ INSERT X*16» ♦ 

♦ DATA CHECK ♦ 

♦ COUNT FIELD ♦ 

♦ MESSAGE CODE ♦ 

♦ ♦ 
***************** 



**P2*^***^^ 
♦ POST DATA ♦ 
^ '*HECK •" 
Bj BY 
BIT 

*********** 



♦♦♦♦♦G2 ♦♦♦♦♦*♦♦♦♦ 

♦ CALCULATE ♦ 

♦ ADDRESS OF ♦ 

♦ LAST USED ♦ 

♦ CCW ♦ 

♦ ♦ 
****** *********** 



• ♦. 
H2 ♦. 
.♦ WAS ♦. 
.♦ COMMAND ♦. YES 
*.COOE READ OR .♦...• 
♦. VERIFY .♦ 
♦ . .♦ 

*• .♦ 
* NO 



F3 ♦. 
.♦ USER *. 
.♦ WANTS *. YES 
.X^. DATA CHECKS .♦..•. 
♦.RETURNED .♦ 



**p^******* 

♦ TURN ON ♦ 

♦ PASSBACK 
* BIT 2 IN 

* ERQUE FLAG 

♦ * 
*********** 



TSTSSL .*. 

G3 ♦. 
.♦ WERE *. 
.♦ SKIP AND ♦. YES 
*. SILI BITS ...... 

♦. ON .♦ 



.* 



• X... 
X 

*♦** 

* ♦ 

* J4 ♦ 

* ♦ 
**♦* 



**G4******* 

♦ TURN ON * 
♦ DASO VERIFY * 

.X^ ERROR BIT IN ♦ 
♦CCB, BYTE 3, ♦ 

♦ BIT 6 ♦ 
*********** 



*****H44e********* 

♦ * 

♦ INSERT X»12« ♦ 

♦ VERIFY ERROR ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 

**** I 



****K2 ********* 

♦ SVC 5 ♦ 
♦FETCH $$ABERRK ♦ 

♦ CHART MA ♦ 
*************** 



♦ . .♦ 

♦ . .♦ 
♦ YES 



****K3********* 

* SVC 5 ♦ 
♦FETCH $$ABERR7 ♦ 

♦ CHART MH ♦ 
*************** 



**** X 
.♦. 
J4 ♦. 
.♦ ♦. 

NO .♦ *. 

...♦. 3330 .♦ 

♦ . •* 



****K 4********* 

♦ SVC 5 ♦ 
♦FETCH $$AflERA5 ♦ 

♦ CHART ME ♦ 
*************** 
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Chart NA. $$AEERAB - Phase 1 cf Tape £RP (Fart 1 cf 4) 
Refer to Chart 02. 



* ♦ 

* SSABERAS * 

* ♦ 



♦ ESTABLISH ♦ 
♦ADDRESSABILITY ♦ 



4i4t4i4i*««***4>**4<«4<« 



115 .*. 

C2 ♦. 
.* ♦• 

.♦ ERR ON *. YES 
*. SENSE .*.... 



♦♦♦♦* 

♦ NC * 

♦ H2* 



♦SET UP TO FETCH^ 
.X^ PHASE 5 ♦. 

♦ l$$ABERAF) * 

* * 

^^■♦♦♦♦♦♦♦♦4c***4c*4c 



♦ ♦ 

♦ SVC 5 FETCH ♦ 

♦ ♦ 



.♦ ERR 
. DEOUEUEO, 
♦INTERCEPT,. 

♦ . .♦ 



.* CCB *. 
.♦ AVAILABLE ♦. NO 
♦. OR UNX .♦... 

♦. INTERRUPT. ♦ 



*4t#4>^F2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 
♦SET UP TO CALL ♦ 

♦ PHASE 6 ♦ 

♦ ($$ABERAGJ ♦ 

♦ ♦ 



"FFPPENCGS ♦*♦♦ 
TO NAG^J ♦ ♦ 
NBB3» NCJ4 * ♦ ♦.X 



RFFERENCFS 
TO NAJl: 
N0A2^ NDOl 
NOFl, NDE? 
*♦*** 

* * 

♦ *♦ 



♦ DECREMENT ♦ 

* CLEANER ♦X 

♦ COUNT ♦ 

* ♦ 



♦ * 

♦ GO SET RETRY 
* AND EXIT FOR 

* REPOSITION 

* * 

« 4c 4: 4t «**»«♦« 



X 

♦ **♦* 

♦NO ♦ 

♦ A2 + 



♦♦♦♦G2 ♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ SVC 5 FETCH ♦ 



TAPE IN ♦. 
BACKWflKU 
. CLEANFR .♦ 
♦ . .♦ 



E3 ♦. 

.* ♦. 

.♦ IS IT ♦. 

•X^. EMULATOR 

♦ . REQUEST .♦ 
♦ . .♦ 

♦ . .♦ 
♦ YES 



4i«;4>^)ttF3 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦SET UP TO CALL ♦ 

♦ PHASE 7 ♦ 

♦ ($$ABERAHI ♦ 

♦ ♦ 



«*♦♦«£ ^♦♦♦♦♦♦♦♦♦^ 



*««4c*4i4i«4[4i4'***4t4t* 



ERR130 .♦. 

F4 ♦. 
.♦ ♦. 

.♦ LAST ♦. YES 

♦. CMO LWR ...... 



**4t4c4> 

♦ NO ♦ 

* R^* 



♦*♦* 

♦ * 

♦ J5 ♦ 

**♦♦ 
ERR160 

NO 



G3 ♦. 

.♦ ♦. 

♦UNIT CHECK ♦. 

ON REPOSITION. ♦X. 
♦ . .♦ 

♦ . .♦ 

♦ . .♦ 
♦ NO 



♦ , 



YES .♦ LAST CMO ♦. 
....*. REPOSITION .♦ 



4>*4i«4t*4!«4<)«cift4r4>4i*«* 



♦ ♦♦** 

♦ ND ♦ 

♦ h^* 



♦ RECOVER ♦. 
PROM WKH 6 . 
♦.TYPE CMO .♦ 



TAPE IN ♦. 
FORWARD 
CLEANER .♦ 



♦ SET UP TO 

* REISSUE READ 



4e4t4c4<4c««i(c4>^«^*4(3*:*« 



4c«4c4(4e J 341 «:*♦««»♦♦♦ 

♦ * 

♦ INCREMENT ♦ 

♦ ERASE ♦ 

♦ GAP COUNTER ♦ 

♦ » 



«*4(«#K 3 ♦♦♦♦♦♦♦♦♦♦ 



1^t****1^******1^**i' 



.♦ 

.♦ 
NO 



PFFERENCE*^ 
Tn NAJ5: 
NRF4, NBGl 
N0A3, NDR3 
***♦♦ 



* 


. .♦ 




X 




4t 


* 






♦ YES 




♦ NR ♦ 

♦ A2^ 




♦ ♦* 

♦ * 
* 






• 








* 






X 




ERR210 










.♦. 




ERR5a3 


X 




J4 


♦ • 






iiif^^'tJS ********** 


.♦ 


♦ , 






* 




4: 


.♦UNIT 


CHECK 


* 


NO 


♦ SET 


UP TO FFTCH^ 


♦ . ON 


ERG 




♦...«.... 


X* 


PHASE 2 


* 


♦ . 




* 


X 


♦ (tSABERAC) 


* 


♦« 


.♦ 






* 




* 


* 


. .♦ 






4c 4t# *« ♦* ♦♦3<t« *♦ ^41 4»!c 




♦ NO 




*♦** 








* 




* 


* 














♦ J5 


* 










X 




* 


* 








♦**** 




♦ ♦♦* 








♦ NO * 














♦ 


A 3+ 















4c4c4e^K5 ♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ SVC 5 FETCH ♦ 

♦ 4t 
4(4c4i«*4c «♦*♦** 4i*4t 



***** 
*NB * 
* K5* 



***** 
♦ND ♦ 
♦ A4* 



***** 

♦ NB ♦ 

♦ K5* 
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Chart NE. $$ABERAB - Phase 1 cf Tape ERP (Fart 2 cf 4) 
Refer to Chart 02. 



***** 

♦NA ♦ 
♦ H4* 



*♦♦♦ 

♦ ♦ 

* A4 * 

*♦♦♦ 



.* ERROR ♦. 
. PASSED FROM .•X. 
♦ .$$ABERAE .♦ 



Bl *. 
.♦ CMO ♦. 
.♦ REJ, INT *. YES 
*.REQ, OVERRUN .*... 
*. BUSOUT .* 
♦ .EQUIP.* 
*. .» 
* NO 



ERR210 .♦. 

A2 ♦. 
.♦ ♦. 

res .♦ uc, CDC, ♦. 

..,.*. PROG OR PROT . 
♦ . .♦ 



B2 *. 

.♦ *. 
♦ ERP IN ♦.NO 
CONTROL .♦... 



♦♦♦♦ 

* * 

* B3 * 

* ♦ 
♦♦♦♦ 



ERR235 X 

ninf***B3********** 



♦. LOAD POINT 

♦ . 

♦ , ,♦ 
♦ « •♦ 
* NO 



**** 

* 
' B3 ♦ 

♦ 
*♦♦♦ 



♦♦*♦ 

♦ ♦ 

♦ B3 ♦ 

♦ ♦ 
♦♦♦♦ 



**m**C2********** 



*il,*i>i:^*r^*:t:H:^^m**** 



*^Q2******* 

* * 

♦GO SET UP TO 
* EXIT WITH 
♦ RECOVERY 



^L^l^^^t************ 



«:4cE !♦♦♦♦♦♦♦ 



♦SET OFF DC 0N+ 
♦ REC BIT * 



4<4:i|c4t*«i«c**«« 



DATA CHECK 



^^^'♦♦♦♦♦♦♦^ 



♦♦♦♦ 
♦NC ♦ 
♦ B5 



**** 
ERR820 X 

^^^■♦♦E2 ♦♦♦♦♦♦♦♦♦♦ 



SET ERP NOT 
IN CONTROL 



itt***************if 
♦♦♦♦ 



***^tf:2********* 

♦ ♦ 

♦ SUPRET MACRO ♦ 

♦ ♦ 



♦♦♦♦ 

♦ ♦ 

♦ AA * 

♦ ♦ 
*♦♦♦ 



♦SET UP TO FETCH^ 
X* PHASE 4 ♦ 

♦ f$$ABERAE) ♦ 

♦ ♦ 
ilf^^t^tttt************* 



***** 

♦ NA ♦ 

♦ G2* 



^^^^♦♦♦♦♦♦^ 

♦ ♦ 

♦ SET ERP IN ♦ 
♦CONTROL ON AND ♦ 

♦ MRT CMO OFF ♦ 

♦ ♦ 

*m********* 



B4 ♦. 
.♦ ♦. 
.♦ MRITE OR ♦.NO 
►. CONTROL CMD .♦... 



**♦♦* 

♦ NC * 

♦ Al^ 

* * 



ti*Cit******* 



SET MRITE 
CMD ON 



i^rn********* 



t^Hi^ifitt****** 



SET ON 
HTM FLAG 



Htm********* 



F4 ♦. 

.♦ ♦. 

.♦EPG CMD OP * 

. 15 W ITE 

♦ . RETRIES .♦ 

*. ,* 

♦ . .♦ 



TO mn^: * ♦ 
Nrr.3, NCHl ♦ * *.x 



X 

***** 

♦ NA ♦ 

♦ J5^ 



X 
***** 
♦NA ♦ 
♦ J5^ 



♦ ♦♦♦ 
ERR300 X 

*****(^4********** 

♦ * 

♦ SET UP in * 

♦ BACKSPACE ♦ 

♦ RECORD * 

♦ * 
***************** 



H4 ♦. 

,* ♦« 

♦ USER ♦. 

READING 

♦.BACKWARD .♦ 

♦ . .♦ 



♦ YES 



*****J4********** 

♦ ♦ 

♦ SET UP TO ♦ 

♦ FORWARD SPACE * 

♦ RECORD ♦ 

♦ * 
***************** 



'^EFFPENCES 
TD NBK5: 
NAKl, NAK3 
ND04 

***** 

* * 

* ** 



SET UP TO 00 
REPOSITION 



***************** 



***************** 
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Chart NC. $$AEERAB - Phase 1 cf Tape ERP (Part 3 of 4) 
Refer to Chart 02. 







* B4* 








* * 








* 








, 








X 




ERR240 


• *• 








Al ♦. 








* * 




NO 


.* 


USER 


♦ , 


. ..* 




READING 






* 


BACKWARD 


• ♦ 



4:tBl*4e4<«4t4t4( 



*SET USER READ* 
* BACK FLAG ♦ 



**«4(«4'*4<«*4' 



***♦ 

m * 

* A5 * 

♦ ♦ 

X 
«*4t4(4(A5**4'4>*4[**4e* 

* * 
♦ALLOW RETRY BUT* 

* NOT IGNORE ♦ 

* * 

* * 



* * 
♦GO SET UP TO 

* REISSUE USER 

* cm 

* ♦ 



X 

♦»♦** 

*NR ♦ 

* F2* 



.* USER DATA *. 
*. CHAINING 



ERR246 

♦ ♦ 

♦ CALCULATE ♦ 
♦NUMBER OF BYTES^ 

♦ READ ♦ 

♦ * 

41 4t4t «:♦:(<««♦*♦*«*♦«:*! 



G2 ♦. 

* * 

PE MODE 



HI ♦. 
.♦ ♦. 

,♦ NOISE ♦ 
.COUNTER FULL 



4c:tc**«Jl**4t*«***** 



itc*:^!**^^*'!'*****^^^:** 



*♦*♦ 

♦ ♦ 

♦ A5 * 

♦**♦ 



4t#4c)|c«H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET UP FOR DATA* 

♦ CHECK MSG IN * 

♦ PHASE 5 ♦ 

♦ {$$ABERAF) * 

♦ ♦ 
4c4c*** ************ 



X 
***** 
♦NA * 
♦ C3* 



FIRST ENTRY . 
.* 
*. .* 



• *. 

H3 *• 

.* *. 

* READY FOR 

CLEANER 



X 
***** 

♦ NB * 

♦ G4* 



.* *. NO 

•«. AOTH RETRY .*.... 



***** 

*Ne ♦ 

* G4* 



*. •* 




X 


* YES 




***** 

*N0 * 

* Al* 

* * 

* 


X 






*****J4********** 




* 


* 




*SET UP TO CALL 


* 




* PHASE 8 


* 




* (SSABERAI) 


* 





***************** 



X 
***** 
*NA * 
* G2* 
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Chart ND. $$ABERAB - Phase 1 cf Tape ERP (Fart 4 cf 4) 
Refer to Chart 02. 



***** 

♦NC * 

♦ H4« 



***** 

*m * 

* H2* 



***** 

♦ NA * 

♦ J4* 



REFEPENCES 
TO MDA4: 
NAF5. NAK? 



VES .* CLEANER ♦. 

.♦.COUNTER FULL .* 

*. .* 

♦ . .♦ 

*. .♦ 

♦ NO 



^^■♦♦♦Bl**^******^ 



INCREMENT 
CLEANER COUNT 



*^t^*m************ 



* SET UP TO DO * 
♦CLEANER <5 BSRI^ 



itt**************** 



.♦ USER ♦. 

READING 

♦.BACKWARD •♦ 

♦ • •♦ 



ERRSIO .♦. 




ERR580 


.♦. 




ERR5W X 


A2 ♦. 








A3 ♦. 






:l,iitt**(i^********** 


.♦ ♦. 








,♦ ♦ 






* * 


.♦ READY TO ♦. NO 




.♦ 




♦ 


. YES 


♦SET OFF REQUEST^ 


♦. REVERSE .♦, 




♦ . 


14 WRITES 




.♦••.. 


♦ PEPO ♦ 


♦. CLEANER .♦ 






♦ 




.♦ 




♦ ♦ 


♦ . .♦ 








'♦. .♦ 






♦ ♦ 


♦. .♦ 




X 




♦ . .♦ 




X 


***ti*m*********** 


♦ YES 


***** 
♦NA ♦ 




♦ NO 




♦♦♦♦♦ 
♦ NA ♦ 






♦ 


Jl^ 








♦ J5^ 






♦ ♦ 








♦ ♦ 








♦ 








♦ 




I ERR525 




X 




ERR 583 




X 








.♦• 






X 


^^■♦♦♦B2 ♦♦♦♦♦♦♦♦♦♦ 








B3 ♦. 






)|i«4(*4cB4*4t*«*«c4<«*[i|c 


♦ ♦ 








,♦ ♦. 




♦ ♦ 


♦ SET UP FOR 4 ♦ 






.♦ 


LAST 


♦ 


. NO 


♦ SET RETURN TO ♦ 


♦ FSR ♦ 






♦ . 


CMD ERG 




...... 


♦LOAD I SSABEPAB^ 


♦ ♦ 






♦ 




.♦ 




♦ ♦ 


♦ ♦ 








*♦. .♦ 






♦ ♦ 


4!*«#««##:^4t4c^^^^#^ 








♦ . .♦ 
♦ YES 

X 

♦♦♦♦♦ 




X 

♦♦♦♦* 
♦NA ♦ 

♦ 


***4c4i4t^^^^^^«^^^^ 


X 








♦ NA ♦ 




ERR583 




.♦. 








♦ F5^ 






X 


C2 ♦. 








♦ * 






t****Ci^********** 


.♦ *. 








* 






♦ ♦ 


.♦ USER ♦. NO 






ERR581 






♦ INCREMENT ♦ 


♦. READING .♦ 












♦ RETRY ♦ 


♦.BACKWARD .♦ 














♦ COUNTERS ♦ 


*, ,♦ 




. 










* ♦ 



♦♦♦♦♦ 
♦NA ♦ 
♦ Jl^ 



**1t1f$lQ2********** 



SET UP FOR 
5 FSR 



*4(«4i«**4>**4t^^^^^^ 



4>*4t**E I^^^^^^^^^^ 



♦ SET UP TO DO ♦ 

♦ CLEANER 14 BSRI^ 



***********i,m**** 



^^^^^^■♦♦♦♦♦♦♦♦♦♦^ 



* ♦ 

♦ REISSUE 
USER'S WRITE 

♦ CMD 

♦ ♦ 
**♦♦♦♦♦•♦♦♦ 



****m 
♦NB ♦ 
♦ K5^ 



♦ SET UP TO ♦ 

♦ FORWARD SPACE ♦ 

♦ RECORD ♦ 

♦ ♦ 
*«4c4i4i**4>4t <>♦♦♦♦♦♦♦ 



X 
♦♦♦♦♦ 
♦NA ♦ 
♦ J1+ 



X 
♦♦♦♦♦ 
♦NA ♦ 
♦ Jl + 
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chart NE. 



$SJ\EERAC "" Phase 2 
Eefer to Chart 02. 



Tape ERP (Part 1 cf 5> 



* * 

♦ A2 * 
♦♦♦♦ 



♦♦♦♦Al********* 

♦ ♦ 

♦ $$A8ERAC ♦ 

♦ ♦ 



**«*«:B l««4<4<«:***** 



4i##4<*«*«*4(4>4<4c*!*«* 



* * 

* FIND CCW * 

* POINTERS IN * 

* ERRO AND CCB ♦ 
4c * 



♦ DATA 

CHAINING IN 
*. FIRST CCW. 



.*. 

El ♦. 

.* ♦. 

XYES .*CSW-STORED ♦. 

.*. CCW ZERO .* 

*. ,* 

♦ . .♦ 



NO 



*4<F14<4'4<**** 



X^ 



♦COPY ERR CCM TO* 
* P2TW0RKA * 



Htic:ftt**^*******i*** 



HI 
.* 


X 
.*• 
♦ . 
♦ , 


14TH 


RETRY 


* 


> .* 

* YES 



***ili*f^2********** 



♦SET OFF REQUEST* 
♦ REPOSITION * 



^(♦^(♦♦♦♦♦♦♦♦♦♦♦♦♦* 



♦ ♦ 
♦INDICATE RETRY * 

♦ USER'S WRITE * 

♦ CMD * 

♦ ♦ 
#*«♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*♦♦♦♦ 
*NG * 
♦ A4^ 



e*9 




ERR 850 K 


C2 ♦. 


^^^♦♦C3****^^^^^* 


m****c^********** 


.* *. 


♦ ♦ 


4t * 


♦UNIT CHECK ♦. NO 


♦ GO DO 15TH * 


♦ SET OFF UNIT ♦ 


FOR LWR .* 


..•X* RETRY ♦,.. 


X* CHECK * 


♦. .♦ 


♦ ♦ 


♦ ^ 


♦ . .♦ 


♦ ♦ 


♦ ♦ 


♦. .♦ 


4[«4'^*^^****^^***^ 


^'^'♦^♦♦♦*4c4t4>*4i«*4c* 


♦ YES 




. 



^i^Q2******* 



4c4c ♦♦♦♦♦♦♦♦♦ 



^^^♦♦E2*^*^*^*^^^ 



♦FETCH $$ABERAB ♦ 
♦AFTER RECORD I NG^ 



ilit:*-************** 



♦ ♦♦♦ 

♦NF ♦ 

♦ Gl ♦.X 



♦«** 
ERR 890 X 

4c4t4c4c^E2*^*^^^**** 

♦ SET UP $$ABERAB* 

♦ FOR NEXT ERP ♦ 

♦ PHASE TO BE ♦ 

♦ FETCH ♦ 

♦ ♦ 



^^^♦♦G2*****«**** 



♦SET UP TO FETCH^ 
♦ MSG WRITER ♦ 



^^^^■♦♦♦♦♦♦♦♦♦♦♦♦^ 



^^^^^^^^♦♦♦♦♦♦♦♦♦* 



4E4i4c4i«4t4t«««*4i4i4t4c*^ 



Jl ♦. 
.* ♦ 
.♦ LAST C«0 
*. NOT LWR 



SET UP ERRQ 
FOR FETCH 



t********i$***1>i*** 



♦♦♦♦J2 ♦*♦♦*♦*♦* 

♦ ♦ 

♦ SVC 5 FETCH ♦ 

^^^♦♦♦♦♦♦♦^■♦♦♦^ 



* NO ***** 
♦NJ ♦ 
.X. ♦ A2^ 

♦ ♦ 



.♦. 



ERR620 



Kl ♦. 
♦ ♦. 

LAST ♦. YES 
Ci»5D LWR .*..,. 



X 

♦♦♦♦♦ 

♦NF ♦ 

♦ A3^ 

♦ ♦ 



♦♦♦♦ 

♦ ♦ 

♦ A2 ♦ 

♦ ♦ 
**** 
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Chart NF. $$AEERAC - Phase 2 cf Tape ERP (Part 2 cf 5) 
Refer to Chart 02. 



♦ NE ♦ 

* Kl* 



♦ 41*41* 
*NJ * 

* 02* 



NO .♦ PE ID *. 
.•.♦. BURST CHECK . 



REFERENCES 
TO NFDlt 
NGB3, NGCl 
NGG2, NGJl 
NHAl, NHB3 
***** 

* * 

* ** 



ERR870 X 

iHt:***0 I********** 

* * 

* SET UP * 

* »ERR ON REC« * 

* MSG CODE E * 

* * 
^nn^^mm************ 



**** 
*NH * 

* E4 *. 



**4t* 
ERR880 X 

****♦£ I********** 

* * 

* DO NOT ALLOW ♦ 
♦RETRY OR IGNORE* 



m**************** 



♦♦♦♦♦f: im********* 

* * 
♦SET OFF ALL ERP* 

* * 

* FLAG BITS * 

* « 
m**************** 



♦♦♦♦♦G 1********** 



4c*4i««4>4i «♦«****•«* 



X 




X 


ERR150 .*. 




.*. 


B2 *. 




B3 *. 


.♦ LAST *. 




.* *. 


NO .* OPERATION ♦. 


YES .♦ 2400 *. 


• ..♦• REPOSITION •♦X-- 


•*• SERIES TAPE «* 


♦. .* 




♦ - .♦ 


*. •* 




*. .* 


X *. .» 




*• .* 


***** * ¥ES 




* NO 


*NH * 






* A3* 






* ♦ 






♦ 






ERR580 X 




, 


ERR200 .*. 




X 


C2 *. 




*****C3********** 


.* *. 




* * 


.* *. NO 


* SET ERP IN * 


*. UNIT CHECK .*..,. 


* CONTROL * 


♦ . •* 




* * 


*. .♦ 




* * 


*, .♦ 


X 


***************** 


♦ YES 


**♦♦♦ 






*NG ♦ 




, 


♦ Gl* 






* * 






* 




X ERR205 




.*• 




X 


02 *. 




*****03********** 


• * *. 




*SET ERASE FLAG * 


,* EQUIPMENT ♦. NO 


*0N— SO THAT PE * 


♦ . CHECK .♦, 


• •• 


♦ ID CK GOES * 


*. .* 




* THROUGH RIGHT * 


*. .* 




* CQOE * 


♦. .* 


X 


***************** 


♦ YES 


***** 

* * 
* 




X 


ERRllO .*. 


*****E2********** 




E3 *. 


♦ ♦ 




.* *, 


♦ SET UP 'EQUIP * 




.*LAST RETRY *. 


* CHK' MSG CODE * 




*. FOR PE ID •♦ 


* * 




*. CHECK •» 



***************** 



***** 
*NE * 
* F2* 



*****f:3********** 



*SET ON OPERATOR* 
* INTERVENTION * 



***************** 



*****G3 »*** **** ** 

* * 
*SET OPCODE FOR * 

* REMIND AND * 

* UNLOAD * 

* * 
******* ********** 



*****H3 **** ****** 



SET PE ID 
CHECK NSG 



*********** ****** 



*****J3 ********** 



SET ON SAVE 
MSG FLAG 



***************** 



*****K3********** 

* * 

* SET RETURN TO * 

* PHASE 4 *. 

* $$ABERAE * 

* * 
***************** 



*****E4********** 



SET UP FOR 
JUST REWIND 



***************** 



* SET RETURN TO * 

♦ LOAD I *• 

♦ $$ABERAB * 

• * 
***************** 



**A5******* 



*********** 



*****B5 ********** 



***************** 



*****C5 ********** 



***************** 



*****0(; ********** 

* * 

* SUPPRESS ♦ 

* INCOPRECT * 

* LENGTH * 

* * 
***************** 

**** • "REFERENCES 
**** , j^ NFE5: 
NGD3* NGE3 
NGF3, NGF4 
NGH3, NHD3 
NHG2, NHKl 



**** 
ERR950 

*****e5 ********** 



***************** 



ERRIOOO 

X 

****f:5 ********* 

* * 

* SUPRET MACRO * 

* * 
*************** 
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Chart NG. $$AEERAC - Phase 2 cf Tape ERP (Part 3 cf 5) 
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***** 

*NF * 
* 02* 



** A3 *»*♦♦♦* 



,♦ 
NO 



.♦INTREQ AND ♦. YES 
*.N0 DEVICE END.*., 
*. •♦ 



ERR202 .*. 

CI 



♦ . ,♦ 

* NO ***** 

♦NF * 
* 01* 

• * ♦ 

X ERR870 



*« .* 
* NO 



El ♦. 

.♦ ♦. 

.♦ LOAD *• 

♦. POINT 

*, ,♦ 

*• •* 

♦ • .* 
* NO 



.* DATA 
*. CHECK 



* NO 
♦*♦♦ 

*NF * 

♦ C2 *.X. 

♦ ♦ 
♦*♦♦ X 

ERR205 .*. 

Gl ♦• 

.♦ *, 

.* CHANNEL *• 

*. DATA CHECK . 

♦ • ,* 

*• m* 

♦. .♦ 

* NO 



* POINT TO * 




.* CLEANER *. NO 




♦ ERROR CCW ♦ 




♦. NEEDED .*.,.• 


* * 




*. .♦ 


* * 




♦. •* 


*m********* 




*. •* X 

* YES ♦**** 

*NP * 
* C4* 

* * 

• * 


X 




ERR850 


.♦. 




X 


B3 ♦. 




«4i**4tB4*****<l>4'**4' 


• ♦ TEST *. 




* * 


,* FOR ♦• YES 


♦ SET UP 4 FSR«S ♦ 


♦. MAXIMUM .♦ 




♦ COMPLETE * 


♦. RETRIES .* 




♦ CLEANER ♦ 


♦. (51 .* 




♦ ♦ 


*. .♦ 


X 


««**4t4i*******4i*** 


* NO 


***** 

♦ NF ♦ 

* 01* 
* * 

* 


* 


I ERR870 


X 


X 




.*. 


m****C3********** 




C4 ♦. 


* * 




• ♦ ♦• 


* ADD 1 TO ♦ 




.* WAS USER ♦- NO 


* RETRIES ♦ 




♦. READING •♦.•♦. 




♦.BACKWARD •♦ 




♦ ♦ 




♦ . .♦ 




^m*************** 




♦ • .♦ 
* YES 




X 
.♦. 




X ' 




03 *. 




**4i*4t04********** 




,* *. 




♦ * 




.♦ WAS ERROR ♦• NO 


♦ SET UP 3 FSR'S ♦ 




*. BUSOUT .* 




♦ COMPLETE ♦ 




♦ . •* 




♦ CLEANER ♦ 




♦ . .* 




♦ ♦ 




*. .♦ 


X 


■^*:fftfti^itim********* 




♦ YES 


**»♦♦ 








*NF * 








♦ E5* 

♦ * 


•X*. •••••••• 




* 








* 




X ERR950 




• *. 




X 


E3 *. 




m****!E*t********** 


m* *e 




* * 


• * BUSOUT ON *. NO 


* SET OPCODE ♦ 


♦. NO-OP .♦ 




♦ TO FSR ♦ 





.♦ ERP ERASE ♦. NO 
.X^. GAP FAIL .♦.., 



♦♦♦* 

♦ ♦ 

♦ A3 ♦ 

♦ * 
**** 



• ♦ 
. •♦ 
♦ YES 



*. 3R0 KElRY 
♦ . 

♦ . .♦ 

♦« .♦ 
♦ NO 



***** 
♦NF ♦ 
♦ E5* 



X ERR950 

• ♦. 
F3 ♦. 
.♦ ♦. 

.♦ IS NO-OP ♦. YES 
♦. COMMAND .♦•... 
♦ . CHAINED .♦ 
♦ . .♦ 

♦ . .♦ X 

♦ NO ♦♦♦♦♦ 

♦NF ♦ 
' £§♦ 



♦ * 





X 




,♦. 


HI 


♦ . 


•♦ 


* 


,♦ 




. UNIT 


CHECK 


♦ • 




♦ • 


.♦ 


♦ 


. .♦ 




♦ NO 



***** 

♦ NF ♦ 

♦ 01^ 

41 « 



X ERR9 

.♦• 
G3 ♦. 
• ♦ ♦. 

IN THE ♦.NO 
MIDDLE OF .♦... 
. CLEANER .♦ 
♦ . .♦ 

♦ . .♦ 

♦ YES ♦ 



^^■^'^^m************* 



rtc^^tifmftt********** 



TURN OFF 
CLEANER FLAG 



$inc4,*im************ 



X 

***** 
♦NF ♦ 
♦ E5^ 



♦ A4 ♦ 
**** 



*m**m2********** 

♦ * 

♦ ADD I TO ♦ 

♦ ERASE GAP ♦ 

♦ COUNTER ♦ 

♦ ♦ 

*^[*i^****^it,iHti0^ilHii): 



**nf**m **** **** ** 



* DECREMENT 

♦ CLEANER COUNT 



n^it^-tintiin*m********* 



..X. 
X 

♦♦♦♦*: 

♦ NF ♦ 

♦ E5* 

* * 



CHAINING 


♦ . 


NO 




CHECK 


,*' 


♦ ..X 




♦ - .♦ 








♦ . .♦ 




X 


* YES 




***** 
♦NF * 






♦ Dl^ 


X 




♦ ♦ 


**♦* 




♦ 


♦ * 


ERR870 


♦ A3 ♦ 






♦ * 






**** 
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Chart NH. $$ABERAC - Phase 2 cf Tape ERP 
Refer to Chart 02. 



(Part 4 cf 5) 



♦♦♦♦♦ 

♦NG * 
* El* 

* ♦ 



***** 
♦NF ♦ 
* B2» 

* * 



Al ♦• 
,♦ ♦ 

► TAPE 

CLEANING 
^» 

*. •* 

♦ . .* 
♦ YES 



♦ . NO 



.♦ 15 WRITE ♦. YES 
♦. RETRIES •*.... 



***** 
♦NF ♦ 
♦ 01* 



*. .* 
* NO 



ERR380 X 

#««*4tB 1********** 

* * 
*REPOSITI0N OFF * 
*0F LOAD POINT 3* 

* - P2ECTR0 * 

* * 
***************** 



CI *. 
.* *. 

USER *. 

READING •* 
.BACKWARD .* 
*• .* 

*. .* 
» YES 



*****Ql*********^ 

♦REPOSITION OFF * 
*0F LOAD POINT 4* 

♦ - P2ECTR0 ♦ 

♦ ♦ 
if*****niim********* 



ERR5S5 .♦. 




B3 ♦. 




.♦ *. 




.♦USER ERASE ♦ 


. NO 


♦. GAP COHHANO 


...... 


♦ . .♦ 




♦ . .♦ 


, 


♦ • •* 


X 


* YES 


♦♦♦♦♦ 




♦NF * 




♦ 01^ 




♦ * 




♦ 




ERR 870 


ERR590 •*. 


ER 


C3 *. 




.♦ ♦. 




.* 3 RETRIES • 


. YES 


♦.ON ERASE GAP 


.♦... 



iif****£l*****m**** 



SET CLEANER 
FLAG OFF 



^^itt***********m** 



Fl *. 
.♦ ♦. 
.♦IN POSITION^. NO 
*. FOP READ .♦... 



*****lj^********** 

♦ * 

♦ ADD I TO USER ♦ 

♦ ERASE GAP ♦ 

♦ COUNTER ♦ 

♦ ♦ 
i^**************** 



***** 

♦NF ♦ 
♦ E5* 

♦ ♦ 



*****f2********** 



SET OPCODE 
FOR FSR 



1600 X 
*****C,i^********** 



UPDATE 

MINATE MR 
COUNTER 



***************** 



**** *0^^** ******** 



* SET UP 'DATA ♦ 
♦CHECK* MS6 COOE^ 



***************** 



**f£^Sf******* 

* * 
♦GO SET UP FOR* 

♦ EXIT ON PERN ♦ 
♦ ERR ♦ 

♦ ♦ 
*********** 



X 

♦*♦♦* 
♦NF ♦ 
* El* 



«**«4tG !♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* SET OFF ♦ 

* REPOSITION ♦ 

* FLAGS ♦ 

* * 



*****m***if*****^ 

♦ ♦ 

♦ INDICATE TO ♦ 

♦ SUPERVISOR ♦ 

♦ REISSUE READ ♦ 

♦ ♦ 
********** 4i*4c4t«#4t 



**** 

*NJ ♦ 

♦ F4 ♦.X 



*♦♦♦ 
ERR390 X 

*****jliti^iltifiifitHi*** 

* * 

* INCREMENT PUB ♦ 

* RETRY COUNTER ♦ 



***♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*****Q2********** 

♦ * 

♦ SUBTRACT I ♦ 

♦ FROM CLEANER * 

♦ COUNT ♦ 

♦ ♦ 
*************ilHf:^lt 



***** 
♦NF ♦ 
♦ £§♦ 



***:|c#«4c*«4t#*4c4E*4i3|c 



^^^^'♦^cK I********** 



:^iHti^*^inf********** 



***** 

♦NF ♦ 
* E5* 
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Chart NJ, $$AEERAC - Phase 2 cf Tape ERP (Part 5 of 5) 
Refer to Chart 02. 



***** 

♦NE ♦ 

♦ * 



.* ♦. YES 

♦. 2^00 TAPE ...... 



.* ♦. NO 

*. PE ID CHECK .♦... 
*. .* 



.♦USER DOING ' 
.K*. WRITE TAPE 
*. MARK 



.ERR630 X 

, *****B4********** 



♦SET OFF REQUEST^ 
♦ ERG FLAG ♦ 



*4t***(;2 ♦♦♦♦♦♦♦♦♦♦ 



SET UP FOR 
REWIND 



***************** 



ERR625 X 



♦ CALL J$ABERAC 

♦ AFTER LWR 



*4i**4e************ 



*****C3********** 

♦ * 

♦ SET UP LOOP ♦ 
« WRITE TO READ ♦ 

♦ OPCODE ♦ 

♦ ♦ 

#*4c************** 



***4r*D3 **«******: 



**************** 



X 
*♦♦*♦ 
*NF * 
* A5* 



***************** 



*****C4********** 



♦SET OFF REOUeST^ 
♦ LWR FLAG ♦ 



***************** 



***«*04********** 



***************** 



**4i**f 4** ******** 



RETRY USER'S 
WRITE CMO 



***************** 



**P4.******* 



GO UPDATE 
COUNTERS 



*********4>* 



***** 
*NH * 
♦ Jl^ 
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Chart NK. $$ABERAD - Phase 3 cf Tape ERP (Part 1 cf 3) 
Refer to Chart 02. 



• SfABERAD * 

• * 



4i4t«i*4igl«i*4i«««4t4t#4t 



♦ ESTABLISH * 
*A00RESSABIL1TY ♦ 



tt*^m********m**** 



^ti^t*(^l*** ******* 

* * 

* FIND CCW ♦ 

* POINTERS IN ♦ 

* ERRO AND CCB ♦ 

* * 
mm*************** 



♦ DATA * 

CHAINING IN 
♦.FIRST CCW.* 



•♦CSW- STORED *. 
. CCM ZERO .* 

*. .* 



**f^l******m 



*m********* 

x! 





**** 


**** 




* * 


* * 




* A4 * 


♦ A5 ♦ 




♦ ♦ 


♦ * 




**** 

• 


**** 




X 


X 
ERRIOO .*. 




**f^^**m**** 


AS ♦. 




* * 


.* ♦. 




♦ SET COMMAND ♦ 


.♦UNIT CHECK ♦. NO 




» CHAINING FLAG * 


♦. ON PEPO OR ...... 




* * 


♦. READ .♦ 




* * 


♦ . .♦ • 




*********** 


♦ . .♦ X 

♦ YFS ♦♦♦♦♦ 




**** * 


♦NL ♦ 




* * , 


♦ Al* 




♦ B4 *.X. 


♦ ♦ 


***** 


* * . 


• ♦ 


♦NL ♦ 


♦•♦* 


X FRR160 


♦ C3* 


ERR400 X 


ERR120 .*. 


* * 


*****f^^m********* 


B5 ♦. 


* 


* * 


.♦EOUTP, ♦. 


^ 


* SET RORCCH * 


.♦BUSnUT, INT^. YES 




..X* OIRECTON TO * 


*.RFO, OVERRUN ...... 

♦. CMO PEJ .♦ 




♦ RDB * 




* ♦ 


♦ . . ♦ . 




***************** 


*. .♦ X 
* NO ♦♦♦♦ 

♦ ♦ 

♦ G2^ 

♦ * 
, ♦♦♦♦ 




X 


X 




• *• 


ERR130 •♦. 




C4 *. 


C5 ♦. 




.* ♦. 


.♦ ♦. 




NO •* USER'S *. 
......DIRECTION RDB.* 


.* ♦. YES 




*. LOAD POINT ...... 




. -^ ♦. .♦ 


♦ . .♦ 




♦ . .♦ 


♦ . .♦ . 




♦ . .♦ 


♦ . .♦ X 




♦ YES 


* NO ♦♦♦♦ 

♦ ♦ 

♦ G2^ 
, ♦ ♦ 

♦♦♦♦ 

ERR150 .*. 




X 




, *m***04t**m******* 


05 ♦. 




* * 


.* ♦. 




* SET RORCCW ♦ 


.♦ *. NO 




♦ DIRECTION TO ♦ 


♦. DATA CHECK ...... 




♦ RDF * 


♦ . .* 




. ♦ ♦ 


*. .* 




, ***************** 


*. .♦ X 
♦ VFS ♦♦♦♦ 

, ♦ * 




, m ....•••••X. 


♦ G2^ 






♦ * 






♦ ♦♦♦ 




ERR420 X 


ERR600 X 




*****^i^********** 


mmmmm^ti********** 




* * 


* ♦ 




♦ SET UP TO ISSUE* 


♦ * 




♦ READ OPPOSITE * 


* SAVE LATEST ♦ 




♦ * 


♦ TIE ♦ 



.♦ 


ERROR 


ON 


♦ . 


YES 






SENSE 


,♦' 


*. •• 


>....X* 


♦ 




X 




♦ . 


.* 










♦ • 


.♦ 










♦ 


NO 






♦♦♦♦ 












* * 












♦ G2 ♦ 




: 








♦ ♦ 
♦♦♦♦ 



REFEftENCES 
TO NKG7: 
NLAl, NLBl 
NLH2 

***** 



ERR 900 X 

**G2******* 



♦SET UP FETCH ♦ 

PHASE 5 ♦ 

* SSABERAF ♦ 
♦ ♦ 

*********** 



ERR950 

*»**G3 *♦♦♦**♦♦♦ 

♦ ♦ 
...X^ SVC 5 FETCH ♦ 

♦ * 
*************** 



***************** 



*****ft^********** 

♦ * 

♦ SET OFF REPO ♦ 

♦ AND COMMAND ♦ 

♦ CHAINING * 

♦ * 
***************** 



**(^t^******* 

♦ ♦ 

GO DO RETRY 

♦ * 
*********** 



***************** 





* 


♦ 


YES 


*', 


NOISE BIT ON 
♦ , ,* 

♦. . * 


.♦. ... 




*. .♦ 


X 




* NO 


♦♦♦♦* 
*NM * 








♦ A3* 








♦ ♦ 








* 






FRR6?0 




X 




*****(^^ ********** 






* 




TALC NO. OF 


* 




BYTES 


* 




TOANSFERREO 


* 



.♦ ROR IN ♦. YES 
*. PROGRESS .*.... 



♦♦♦♦ 

♦ ♦ 

♦ A5 ♦ 

♦ ♦ 
♦♦♦♦ 



♦♦J !♦♦♦♦♦♦* 



*********** 



Kl *. 
.* ♦. 

.♦ USER ♦. NO 

COMMAND ...... 

♦•CHAINING .♦ 
♦ . .♦ 

♦ . .* X 

♦ YES ♦♦♦♦ 

♦ * 

♦ 84 ♦ 
X ♦ * 

♦♦♦♦ ♦**♦ 

♦ * 

* A4 * 

* ♦ 
**** 



REFERENCES ♦♦♦* 
TO NKH4: ♦ ♦ 
NLD2, NLH3 ♦ ♦ ♦.X. 
NLH4 ♦ ♦ 

♦♦♦♦ 
ERR910 X 

*****f^i^********** 

♦ ♦ 

♦ SET NEXT CALL ♦ 

♦ NAME TO ♦ 

♦ $*ABERAD * 

♦ ♦ 
***************** 



*****ji^********** 

* * 

* SET TO ALLOW * 

* RETRY BUT NOT ♦ 

* IGNORE * 

* * 
***************** 



ERR 1000 

X 
****\f^i^********* 

♦ * 

♦ SUPRET MACRO * 

♦ ♦ 
*************** 



***************** 



.* LESS THAN *. NO 
.12 BYTES READ.*... 



♦♦*♦* 

*NM * 
♦ A3* 

* * 



YES .* NOISE * 
....*. COUNTER FULL 



.* 
.* 
NO 



*****^i^ ********** 

* * 

* UPDATE NOISE ♦ 
. .* COUNTER * 



***************** 
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Chart NL. $$AEERAD - Phase 3 cf Tape ERP (Part 2 of 3) 
Refer to Chart 02- 



***** 

♦NK ♦ 
* A5* 



ERR160 


.♦• 








Al 


*• 








.♦ 


*. 








.« CHANNEL * 


. YES 






*, DATA 


CHECK 


.*» ••• 






*. 


.* 








*, 


.* 








* 


• •* 
* NO 

X 


X 

***** 

*NK * 

♦ G2* 

* * 

* 

ERR900 






ERR200 


• *• 








Bl 


*. 








• * 


♦ • 








.*JUST 


SPACED* 


. YES 






*. OVER 


RECORD 


...... 






♦ • 


.* 








♦ . 


.♦ 








* 


. .* 

* NO 

X 


***** 

«NK * 

♦ G2* 

♦ * 

* 

ERR900 






ERR202 


.*, 


ERR350 


.♦• 


CI 


♦ • 






C2 *. 


.♦ 


♦ . 






* *. 


.♦ LAST * 


. NO 


,* 


CLEANER ' 


*. COMMA 


W READ 

.* 


.*• •••• • • 


* 


CONTROL = 


*. 






*. 


.* 






*. •** 


* 


* YES 






♦ NO 



ERR210 X 

*****A4********** 

* SET OFF * 

* SUPPRESS DATA * 

* TRANSFER FLAG * 

* IN RORCCW * 

* * 
***************** 



X 
.♦. 

B4 *. 

.♦ *. 

.♦ IF !DA«S *. YES 
*.DATA ADDR SET.*.... 

♦ . » 

♦ . .*' 

*. .* X 

* NO **** 



**01******* 



****4c****** 



*****02 ********** 
♦ALREADY SET UP ♦ 
*FOR BSR OR FSRf* 

♦ CLEANCTL = ♦ 

♦ CLEANCTL - 1 * 
« * 

********«*****4t** 



ERR360 .*. 




C3 *. 




.* *. 




.* CLEANER ♦ 


• NO 


..X*. FLAG ON 


.*.. .. 


♦ . .* 




♦• .* 




♦ . .♦ 


X 


* YES 


***** 




*NK * 




* B4* 




* * 




* 




ERR900 


X 




*****03 ********** 


* 


* 


* SET CLEANER 


* 


* CONTROL = 5 


* 



• 


I *NK * 




..X* H4 * 




* * 


X 


***♦ 


.*. 


ERR250 


El ♦. 


*****e2********** 


• ♦ *« 


♦ RECOVERY * 


.♦ SUPPRESS ♦. NO 


♦ SUCCESSFUL t * 


♦ •DATA TRANSFER .*• •.. 


••••X* SET UP TO ♦ 


*, .* 


♦ SPACE OVER ♦ 


*, ,♦ 


* RECORD * 

**********c******* 


*. .♦ 



ERR205 .♦• 








X 


Fl *. 








**|:2******* 


.* * 








* * 


.♦ WRONG 


♦ « 


NO 




* SET ON * 


♦ .LENGTH RECORD. 


♦ . •*• 




*RECOVERED FLAG ♦ 


*, 


,♦ 






* * 


*. .* 








* * 


*. ,* 




X 




*********** 


♦ YES 




**** 




* 




♦ 


* 


* **** 






♦ A4 


♦ 


. ♦ ♦ 






* 


* 


..X^ E4 ♦ 






**** 


* * 


X 








***♦ 


.♦. 










Gl *. 










.♦ * 










.♦ DO LAST 


*, 


YES 






*. RtTRY IF 


»♦* 


♦••••• 








♦ . I DAWS 




>.. 






♦ . .♦ 












♦ . .♦ 












* NO 








**** 
*NM * 












* 03 ♦•X 












* * 




X 








**** 




.♦. 






ERR800 X 


HI ♦. 








*****H2 ***♦♦**♦** 


.♦ ♦ 








♦ INDICATE USER ♦ 


.♦ CSW 


**, 


YES 




♦ CMD TO BE ♦ 


♦.RESIDUAL = 


y , 
.* 


*, ,,,, 




X* RETRIED ♦ 








♦ (RORFINAL) ♦ 



***************** 



NO .* USER'S ♦. 
...♦.DIRECTION RDF.^ 



*****f:3******** ** 



********«****^*** 



♦ E4 * 

* * 

**** 



C4 *, *****C5 «♦♦♦****♦♦ 

.* ♦. ♦ ♦ 

.♦ USER'S ♦. NO ♦ DATA ADDR = ♦ 

*. DIRECTION ROF.^ X^ DATA ADD ♦ ♦ 

♦. .♦ ♦ RORCCWCT - I * 

*, ,* * * 

*, ,* ♦♦*******5jt****)|f** 



4i4<*#4t04***)|c**«*** 

♦ * 

♦ DATA ADDR = ♦ 

♦ DATA ADDR - ♦ 

♦ RORCCW +1 * 

♦ * 
*4ii*************** 



**** 
*NM * 
♦ C3 



**** 
ERR660 X 

*4c***g4***«****** 

* * 

♦ BUILD FSR CMD ♦ 
..X* IN WORK AREA ♦ 



***4t*4t****4>****** 



ERR380 

*****Q3********** 



♦ MOVE FSR CMD 

* TO WORK AREA 



********4e** ****** 



***************** 



**Ha******* 



* SET OfF 
♦ CLEARER FLAG 



*********** 



*♦* 




♦ 




E4 ♦ 




♦ • 




X 




• ♦. 




F4 ♦. 




.♦ ♦. 




.♦ USER ♦. NO 


♦ . READING .♦. 


... 


♦.BACKWARD .♦ 




*. ,* 




*. .* 


X 


♦ YES 


♦*** 




* 




♦ H4 




* 




**** 


X 




*****G4*******^^* 




* * 




* BUILD BSR CMD * 




♦ IN WORK AREA ♦ 




* * 




* ♦ 




***************** 




*♦♦* I 




*NM * 




* K3 *.X. 




* * . 




**** 




ERR680 X 




*4t***H4********** 




* * 




♦ SET UP TO * 




..X^ REPOSITION * 





***************** 



*****J I********** 
*SET RORCCWCNT =* 



***** 
*NK * 
» G2^ 



♦ ♦*** 

♦ NK ♦ 

♦ H4* 



***** 
*NK * 
♦ H4^ 



*****«*4c***4i***i|^4t 



**** 

* * 

* A4 ♦ 

* * 
**** 



^i 
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Chart NM. $$ABERAD - Phase 3 cf Tape ERP (Part 3 cf 3) 
Refer to Chart 02. 



REFERENCES 

TO NMA3: 

NKF5, NKH5 

***** 

* * 

* ** 



* SET UP 

* REPOSITION 



^n^tufm************ 



««*«*B3 ********** 

* * 

* INCREMENT PUB » 
♦AND PUB2 RETRy * 

* COUNTERS ♦ 

* * 
m**************** 



C3 *• 

.♦ ♦. 

.♦ READY FOR ♦. 

*• CLEANER 

*• .* 

*. .* 

♦ . .♦ 

* YES 



X 
♦♦*♦* 
♦ML ♦ 
♦ E4* 



*• LAST RETRY 
*. • 



.♦ 
» NO 



* * 
SET ON 

CLEANER BIT 
TF2CLEAN 

* ♦ 



*m***f3********** 

* * 

* INCREMENT ♦ 

* CLEANER ♦ 

* COUNTER ♦ 

* ♦ 
i^s^t*1t'******* ♦♦♦*♦♦ 



^f.iiim**G3********** 



***** 
*NL * 
♦ H2* 



♦ 


SET 


* 


* 


CLEANCTL = 4 


♦ 


* 




* 


* 




♦ 


** 


^m*****i 


|(«#*:3|t4c4t*4[ 




3 


( 






• *• 






H3 ♦. 






.* ♦• 




NO . 


* USER * 




..*. 


..BSiiJSiSS .. 


** 




*. 


.* 





* * 

* SET ♦ 

* CLEANCTL = 5 * 

* ♦ 

* ♦ 

xl 



*^4c4c4cK3 ***♦****♦* 



*«4E«t4t*4t4c#4c4i«4c4[«*# 



»♦**♦ 

*NL * 
* H4* 
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NN, 



Rerfer to Chart C2. 



* *.« « ^ * 

* $$ASERAc * 



««4!4e«B3 ««*4e4[«*)|>4i« 



♦ ESTABLISH * 
♦ADDRESSABILITY * 



*4i«4cj|t***4t «:«#**»#* 



X 




.*. 




C3 ♦. 




.*' DEVICE **. NO 


REFERFNCES 
in NND4: 
NPH4f NOG 2 


♦. OPERATIONAL ...... 


*. .♦ 


*♦♦♦♦ 


*. .* X 


* ♦ 


* YES ***♦♦ 


* ♦♦ 


*NP * 


* * 


* C5* 


♦ 


* * 


, 


* 




X ERR035 




•♦. ERR910 X 


03 ♦. 


i|>4<04*«4t4<##4. 


.* *. 


* ♦ 


.♦ CCB NOW ♦. YFS 


♦ SET EROFLG * 


*. DEQUEUED .* 


♦ BIT IGNERR ON ♦ 


♦ . •♦ 


« « 


*. .♦ 


♦ ♦ 


*. .* X 


HfitclHHL*****:* 


♦ NO ♦♦** 




* * 




♦ 04 * 




♦ * 




. 4i4c4i* 




X 


X 


«4c***:E3***^***«4'* 


#4cE4«#4(«^** 


* 4c 


* * 


♦FIND ERROR CCW * 


♦ CLEAR ERP ♦ 


♦ AND COPY TO ♦ 


* FLAGS AND ♦ 


♦ P2TW0RKA ♦ 


♦ CUNTEPS ♦ 



^^^t******^'^*^^*^^ 



*#4c4(4tF3«*^^^^^^^^ 



4c4t4t4[4[4c4c»««c4t 



*4ip44i#«4'4(4c* 













♦ SET ERP IN * 


♦GO TO SUPRET * 












♦ CONTROL ♦ 


♦ MACRO FOR EXIT ♦ 












♦ ♦ 


♦ * 






♦♦♦♦♦ 






♦ ♦ 


* * 






♦NO ♦ 






^^^'♦♦♦♦♦♦♦♦♦♦♦♦♦^ 


^e^t^'*^**^*)*:^^ 






♦ A5^ 














♦ ♦ 














X 






X 




REFERENCES 


ERRIOO __.♦•, 




ERR008 __•♦.. 




TO NNHlr 




,♦ '^ •*, 






as *. 




NQBI, NQFl 


NO . 


♦' CHANNEL 


♦ . 


NO .♦* *♦. 






...♦. 


DATA CHECK 
♦ . 


.♦X. • 




,♦. UNIT CHECK .♦ 
♦ , .♦ 






♦ 






♦♦♦♦♦ 




♦. .♦ 






♦ . .♦ 




♦ ♦ 


X 


♦• •♦ 






♦ . •♦ 




♦ ♦♦ 


♦♦♦♦♦ 


♦ YES 






♦ YES 




♦ ♦ 


♦NO ♦ 












♦ 


♦ E2^ 

♦ ♦ 

♦ 








• 




X 


ERRllO 








X 




ERR300 .♦. 




X 




ERROIO .♦. 


ERR020 .♦. 


HI ♦. 


^iHtiilii^^2********** 




H3 ♦. 


H4 ♦. 


.♦ ♦. 


* 


INSERT X»28« 






.♦ ♦. 


.♦ ♦. 


YES .♦BUSOUTCT = ♦ 


* 


•CHAN DTCHK' 






.♦ EQUIPMENT *. NO 


.♦ ♦. NO 


...♦. 5 .♦X,..X.,..^ 


CODE FOR MSG 






♦. CHECK »♦»«, 


=«.*.X^6 BUSOUT .*.... 


• *• •♦ 


, ♦ 


WRITER 






♦ . .♦ 


♦ . ,♦ 


♦ . .♦ 


• ♦ 








♦ . .♦ 


♦ . •♦ 


X ♦. -♦ 


. ^'♦♦♦♦♦♦♦♦♦♦♦♦♦♦*^ 




♦ • •♦ 


♦ . .♦ X 


♦♦♦♦ ♦ NO 


♦♦♦♦ 








♦ YES 


♦ YES ♦♦♦♦♦ 


♦ • 


♦ ♦ 










♦NP ♦ 


K3'+ 


♦ HI ♦ 










♦ A4^ 


♦ 


♦ ♦ 










♦ * 


*♦»♦ 


^^c^^ 










. ♦ 


X 












ERR030 


•*. 










X 


X 


Jl ♦. 










♦♦J3 ♦♦♦♦♦♦♦ 


*4c4c**J44>4t »*♦***♦* 


.♦ ♦. 










♦ INSERT ♦ 


♦ INSERT X«09» ♦ 


.♦ IS RETRY ♦ 


YES 








♦X«10» 'EQUIP ♦ 


♦ •BUSOUT CHK' ♦ 


♦.COUNTER FULL 


...... 








♦ CHK* CODE FOR ♦ 


♦ CODE FOR MSG ♦ 


♦ . .♦ 










♦ MSG WRITER ♦ 


♦ WRITER ♦ 


♦ . .♦ 






''EFERFNCES 


♦ ♦ 


♦ ♦ 


♦ , .♦ 


X 




TO 


NNK32 


«$«♦♦♦♦♦$«« 


«#*«*4t)|i4t««*4<*4>^^^ 


♦ NO 


♦♦♦♦♦ 




NPD2t 


N0B3 




, 




♦NR ♦ 




N0B5, 


N0F5 


♦♦♦♦ I 


• 




♦ M* 




NQG2. 


NQJl 


♦ * , 






♦ ♦ 

♦ 




N0J2. 


NRG2 


♦ ♦ ♦.X. 

♦ ♦ . 


X 
♦♦♦♦ 




ERR780 








♦*♦♦ 


♦ ♦ 


X 








ERR900 X 


♦ HI ♦ 


*«#«*K 1*+*^^^*^^^ 








««K3*4c^^^^^ 


♦ ♦ 



♦ NP ♦ 



"RIOOO 

X 
4c 4c ♦♦FS ♦♦♦♦♦♦♦♦♦ 

♦ * 
. X^ SUPRET MACRO ♦ 

* ♦ 

4c4c4c4c4<4c4<^^^^^^^4< 



ADO ONE TO 
RETRY COUNTER 



i^****'************ 



♦ SET ERQFLG ♦ 
.X^BITS RTYERR ANO^ 

♦ IGNERR OFF ♦ 



♦♦♦♦♦ 

♦ NR ♦ 

♦ A2^ 



♦♦♦♦ 

♦ K3 ♦ 

♦ ♦ 
♦♦♦♦ 



*#«4t«*4c*4>^^ 



♦♦♦♦♦ 
♦NP ♦ 
♦ Al^ 
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Chart NP. $$AEERAE - Phase ^ cf 
Refer to chart 02. 



Tape ERP (Part 2 cf 4) 



♦♦♦* 

♦ * 

♦ Al * 



ERR905 X 

♦ SET UP TO ♦ 
* CALL $$ABPIA4 ♦X. 



♦NN ♦ 



***** 
♦NN ♦ 
* K3* 



4t*4c4t*4!**3|i4i* 



♦*B1****»** 

CLEAR ERP 
FLAGS AND 
COUNTERS 

* * 

*^iHi*:^*^F***^li 



♦P2TNAME = «AB» * 

♦ * 

ilt,^**^i:^^********** 

**** 

QEFFPENCFS 
TO MPDl: 



* SVC 5 * 

* FETCH * 

* * 



**** 

* * 

* m * 

* * 
**** 

ERR040 



*♦♦♦ 

* * 

* C3 * 

* * 



.♦ 
*, ,* 
♦ NO 



COMMAND 
REJECT 



* 


.INTERVENTION .» 


• • .. 




♦.REQUIRED .♦ 


, 




♦ . .♦ 






♦ . .♦ 


X 




♦ YES 


♦♦♦♦ 






♦ 




, 


♦ C3 






* 






**** 




X 






.♦. 






84 ♦. 






.♦ ♦• 






.♦ ♦. 




* 


. DEVICE END .♦ 

♦ . .♦ 

♦ . .♦ 

♦ . .♦ 
♦ NO 


* 




X 






.♦. 


. 



*«♦♦* 
♦NN ♦ 
♦ C3^ 



• X. 



X 
***** 

♦ NQ ♦ 

♦ A1 + 



* INSERT X»18« ♦ 

♦ 'COMM REJECT* ♦ 

♦ CODE FOR MSG 

* WRITER 



it***i^********ilt*if* 



♦X. 



***** 
♦NN ♦ 
♦ K3* 



03 ♦. 
.♦ ♦. 
NO .♦LOAD POINT,' 
...♦. FILE PROT. 
♦ . MRT 
♦. .♦ 
♦ . .♦ 
♦ YES 



«*#**E3 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET UP FOR ♦ 
♦X»17* MSG NEXT ♦ 

♦ ENTRY ♦ 

♦ CP20PPIEI ♦ 

♦ ♦ 
*************#*** 



*nff2******* 



SET ON 
TF2MSGIN 



*********** 



*:ifQ2******* 



♦SET ON OPINT 

♦ IN ERQFLG 



♦♦♦♦ 
♦NO ♦ 
♦ G3 ♦.X 



♦♦♦♦ 
ERR500 X 

*****fj**^****^i** 



♦ BUILD RUN ♦ 
.♦ CMO IN ♦ 

♦ P2TM0RKA ♦ 

♦ ♦ 
********^nf*****i^* 



.♦NONEXI STENTS. YES 
♦. TAPE UNIT .♦.,.. 
♦.ITUSTATBI.^ 



D4 ♦. 

♦ ♦. 

FILE OPEN 



♦. (PZOPENI 
♦ • 
♦ . 
♦ . 



**>i^^E4^^*^^^^^^^ 

♦ INSERT X«47« ♦ 

♦ 'UNX INTERV* ♦ 

♦ CODE FOR MSG ♦ 

♦ WRITER ♦ 

♦ ♦ 
*********^i******* 



ERR035 X 

*****(^^ ********** 

♦ INSERT X'31» ♦ 

♦ •OVC NOT 0P« ♦ 

♦ CODE FOR ♦. 

♦ MESSAGE ♦ 

♦ WRITER ♦ 
***************** 



41*41 ^■♦O^ ********** 

♦ INSERT X«08» ♦ 

♦ 'INTERV REQ» ♦ 
.X^ CODE FOR MSG ♦ 

♦ WRITER ♦ 



***************** 



*****fi^********** 



♦SET OPINT INTO ♦ 
♦ ERQFLG ♦ 



***************** 



♦ Al ♦ 

♦ ♦ 
♦ ♦♦♦ 



4:#**««4i**** 



*ti\i2******* 

* * 
* SET ON ♦ 

♦ REPOSITIONING 
♦FLAG P2TREP0 ♦ 

* ♦ 
4:4c* *♦♦♦«*♦♦ 



♦♦J2^^^^^^^ 

♦ ♦ 

♦ SET UP TO ♦ 
♦CALL THIS LOAD 

♦ ON RETURN ♦ 

♦ ♦ 
********^i*^ 



REFERENCES 
TO NPJ-^: 
NRF4, NRG3 
NRH2 

*♦♦♦* 

♦ ♦ 

♦ ♦♦ 



♦♦J3 ♦♦♦♦♦♦♦ 



SET UP TO 
ALLOW RETRY 



^^[♦♦♦♦♦♦♦♦* 



#*K3 ♦♦♦♦♦♦♦ 



**********4i 



.♦WAS RUN CMD^. NO 
♦. FOR A MSG .♦... 

♦ , .♦ 



♦ YES 


*♦♦♦♦ 




♦NN ♦ 




♦ 04^ 




♦ ♦ 




♦ 


, 


ERR910 


X 




4c4c4c**J4**«4t^^^^^^ 


♦MOVE SAVED MSG 


♦ 


♦ NO FROM 


♦ 


♦ P20RGTIE TO 


* 


♦ ERQMSG 


* 



***************** 



*****^ i^********** 

♦ SET UP FOR ♦ 
♦ACTION MSG AND ♦ 
♦LET OPER MOUNT ♦ 

♦ NEW TAPE ♦ 

♦ ♦ 
***************** 



***** 

♦ NN ♦ 

♦ F5^ 
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chart NQ. $$AEERAE - Phase ^ cf Tape ERP (Part 3 cf 4) 
Kefer to Chart C2. 



***** 

AMD * 

♦ 'C3* 



.* nVERRUN *. NO 



.* 

• .* 
♦ YES 



*****Bl*4t#«:)|c*3tc*** 

* * 

* INSERT X'lA" * 
♦'OVERRUN' CODE * 

* FOR MSG WP ITER ♦ 

* ♦ 
***************«:* 



A2 *. 

. ♦ *. 

.* *, N 

.X*. LOAD POINT .*. 

*. ,♦ 

*. .* 

*, .♦ 

* YES 



,* *. NO 

». COMMAND RD8 .*... 



♦ INSERT X«29« * 

♦ 'BK IHTO LP' ♦ 
.X* CODE FOR MSG ♦ 

♦ WRITER * 

♦ * 

***************««( 



.X*. DATA CHECK •* 

*. .* 



*****B4;****«*«*** 

* * 
♦SET UP TO FETCH* 

* LOAD I * 

* f$$ABERAB) * 

* * 
***************** 



ERR096 .♦. 






A5 *. 






,* *. 




NO 


* * 


. NO 


X*. 


DS6 FAILURE 


...... 




*, ,* 






♦ . .♦ 






*, ,* 


X 




* YES 


***** 
*NN ♦ 
* G2* 

* * 
♦ 




I ERRIOO 








*****B5 ********** 




INSERT XH2« 


* 




•DSE FAILED* 


* 




CODE FOR MSG 


* 




WRITER 


* 



***************** 



*m ♦ 

* HI* 



♦*C2******* 

* SET OFF * 

♦ UNIT CHECK* 
* SET ON UNIT 

♦ EXCEPTION 

* * 



***** 

*NN * 
* K3* 



***** 
*NP * 
* Dl* 



X 

***** 
♦NN * 
* K3* 



***** 
♦NN * 
♦ 04* 

* * 



♦*♦♦* 

♦NN * 

* G2^ 

* * 



**** 

* * 

* HI ♦ 

* * 
**♦* 



*****F:][*4t4t**4E4>*** 

♦ * 

♦ INSERT X« 14* ♦ 
♦•OVERRUN* CODE * 
♦FOR MSG WRITER ♦ 

♦ * 
***************** 



***** 

♦ NN ♦ 

♦ H1+ 



.♦. 


ERR150 .♦. 


ERR160 .*. 




ERR200 


F2 ♦. 


F3 *. 


F4 *. 




*****p5******4t4c4,* 


.♦ ♦. 


• ♦ ♦. 


.* *, 
.*PE 10 BURST*. NO 




* 


INSERT X»19« * 


.♦ DATA *. NO 


.♦ ♦.NO 




* 


'UNOETR ERP* ♦ 


*. CONVERTER .♦ 


..X*. NOT CAPABLE ...... 


....X+. CHECK .♦... 




. .. X* 


rODE FOR MSG * 


♦. CHECK .♦ 


*. .♦ 


*, ,* 


• • 


X * 


WRITER * 


♦ . .♦ 


*. ,» 


♦ . .* 




. ♦ 


* 


*• .♦ 


♦ . .♦ 


*. .* 




, ************«*4,«4( 


* YES 


♦ YES 


♦ YES 


* 
♦ 


**** 

* 
F5 * 


. 


* 


• 




• 


* 


• 




* 


* 
**** 


X 
***** 
*NN ♦ 


X 


X 


X 






* K3* 


*****G2 ********** 


*****G3********** 


*****G4**«******* 






* * 


* INSERT X'30» * 


♦ SET UP FOR ♦ 


* * 






* 


* 'CONVRT CHK* * 


* X»32« ♦ 


♦SET UP TO FETCH* 






ERR900 


* COEE FOR MSG ♦ 


♦ MSG NEXT ♦ 


♦ LOAD 2 ♦ 








* WRITER * 


♦ ENTRY * 


♦ (SSABERAC) ♦ 








* * 


♦ (P20PPTIE) ♦ 


* * 








****************4t 


************:|.4c«4c4> 


***************** 








ERP900 


, 


, 








♦*** 












, ♦NN ♦ 


, 


, 








..X* K3 ♦ 


X 


X 









X 

.♦. 



***** 

*NP * 
* F3* 



***** 
*NP * 
* 01* 



*»***j 1********** 

♦ INSERT X»24» * 

♦ 'PROG CHECK* * 

♦ CODE FOR MSG ♦ 

♦ WRITER ♦ 

♦ * 

***)(c*******]t[4i4Ei|c*4t 



**** 

* * 

« F5 « 

* * 

**** 



*****j2 ********** 

* INSERT X»25* ♦ 

* 'PROT CHECK* * 

* CODE FOR MSG * 

* WRITER * 

* * 
***************** 



***** 
*NN * 
♦ K3* 
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Chart NR. $$ABERAE - Phase ^ cf Tape ERP (Part 4 cf 4) 
Refer to Chart 02. 



REFERENCES 
TO NRA?: 
NNJl, NNKl 



♦UPDATE BUSOUTCT* 
♦ CNT ♦ 



t**^if****i^*i^m***it 



* SET FOR FETCH * 

* LOAD 6 NEXT ♦ 

* ENTRY ♦ 

* * 



X 

• *• 
C2 *. 



BUSOUT 

»• • 
♦. .* 



X 

• ♦. 
D2 ♦. 
• * *• 
NO .* * 

,..*. DEVICE END 

♦. .« 

*. .* 
♦• .* 
* YES 



• * ♦. 
.* TRACK IN ♦. YES 
.X*. ERROR ...... 

*. .♦ 



* NO 



* G2 * 



.* WRITE CHD ♦♦ YES 
♦. C OPCODE = ...... 

*. X«01»l .♦ 



ERR810 



*SET REPOSITION ♦ 
.X* (P2TREP0 + * 

* TF2REP0I * 

♦ * 



♦♦♦* 

♦ * 

♦ G2 * 



ERR820 



.* 
* NO 



**♦*♦ 
♦NN * 
* K3* 



ERR 830 X 



* SET UP RETRY 

* CMD fP2TRESTI 



^m**** *********** 



CONMANO ROB 

*. .♦ 



* ♦ 

* BUILD ♦ 
♦REPOSITION CC« * 

* TO FSR ♦ 

* ♦ 



***** 

*NP * 
* J3* 



**:^**f^**^i*1tm**** 

* * 

* BUILD * 
.X*REP0SIT!ON CCM ♦ 

* TO BSR ♦ 

* ♦ 
4E«*4c4t***4E 4c* ♦♦♦♦*♦ 



X 

***** 

♦NP * 
* J3* 

♦ ♦ 



X 
***** 
♦NP ♦ 
♦ J3* 
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Chart JNT. $$AEERAF - Fhase b ct Tape ERP (Part 1 of 
Eefer to Chart 02. 



4) 



4t * 

* $$ABERAF * 



ERR905 .*. 




A4 *s 




.* *. 




.♦FINAL ERROR*, 


NO 


•• DATA CHECK . 


*•• .. 


♦ . .* 




*. .♦ 




*. .* 


X 


♦ YES 


**** 




* * 




♦ E4 * 




♦ ♦ 


• 


♦♦*♦ 



^tiintimBl*****'*'**** 



* ESTABLISH 
♦ADDRESSABILITY 



:tim*m******m****ifm 



«****C !♦♦♦♦♦♦♦♦♦♦ 



^i^^,i^*i^iHHIimit'****i** 



ERR050 .♦. 

Dl ♦. 
,♦ ♦, ♦♦♦♦ 
.♦ ERR ON ♦• YES ♦ ♦ 
♦.SENSE OR ROR •♦••..X* Kl ♦ 
♦, EXCLUSION. ♦ * ♦ 
♦. ,♦ ♦♦♦♦ 

♦. .♦ 
♦ NO 



.♦. 
EI ♦. 
.♦ JUST ♦. 
* RETRIED 

USER'S 
('.DIRECTION. 



*4c«4t*C44E 41**41 <[♦♦♦♦ 

♦ * 
♦SET ON PASSBACK^ 

♦ AND TAPE READ ♦ 

♦ DATA CHECK ♦ 

♦ ♦ 



X 

RQ70 «♦. 

Fl ♦. 

.♦'ready to 

♦ . retry USER 
♦ . 

♦ . •♦ 

♦ . .♦ 
♦ NO 



♦♦♦♦♦ 
♦NV ♦ 
♦ D3^ 



ERR800 X 

♦ SET UP TO ♦ 

♦ REISSUE USER ♦ 
...X* READ AND ♦• 

♦ RETURN TO ♦ 

♦ THIS PHASE ♦ 
*«4> * tc************ 



♦♦♦♦♦ 

♦NU ♦ 
♦ B5^ 



♦SET UP TO ALLOWS 

»K* RETRY BUT NOT * 

♦ IGNORE ♦ 

♦ ♦ 
«4>*4t4i*4c**4>4E*««*** 



♦♦♦♦ 
♦NV ♦ 
♦ Kl 



Gl ♦. 

.♦ ♦. 

.♦UNIT CHECK ♦. NO 

f.ON REPOSITION. ♦.... 

♦. OR READ .♦ 

♦ . .♦ 

♦ . .♦ X 
♦ YES ♦♦♦♦♦ 
♦NV ♦ 
♦ Al^ 
♦ ♦ 



♦♦♦♦ 
ERRIOOO 



*«4<*Q3 *4i4>* *4t*4t 4t 

♦ ♦ 

♦ SUPRET MACRO ♦ 

♦ ♦ 
4i4t*4t4c**«4E4t4c**4e4: 



.♦ EQUIPMENT ♦ 


. NO 


♦ . CHECK 


.♦• 


.. . 


♦ . .♦ 






♦ . .♦ 






♦ . .♦ 




X 


♦ YES 




*♦♦*♦ 

♦ ♦ 
♦ 


X 






mif*m4^jl**m******* 




♦ INSERT X«10« 


♦ 




♦ 'EQUIP CHK« 

♦ CODE FOR HSG 


♦ 




♦ 




♦ WRITER 


* 




♦ 


♦ 




4c**************** 




♦♦♦♦ r 




REFERENCES 


♦ ♦ 




TO NTKl: 


♦ Kl ♦.X. 




NUFl. NaF4 


♦ ♦ . 




♦♦♦♦♦ 


♦♦♦♦ 




♦ ♦ 


^900 X 




♦ ♦♦ 


*****K1 ♦♦♦♦♦♦♦♦♦♦ 


♦ ♦ 


♦ UPDATE 


* 


♦ 


♦PERMANENT READ 


♦ 




♦ ERROR COUNTER 


♦X 




♦ IF NOT FULL 


♦ 





*«***04***^^^^^^* 



ALLOW USER 
TO IGNORE 



***************** 



**** 
ERR940 X 



***************** 



♦ 00 NOT ALLOW 

♦ RETRY 



***************** 



ERR955 X 

*****G4********** 



***************** 



*****H4^***^***^<!= 
♦SET UP TO CALL ♦ 

♦ PHASE I ♦ 

♦ (SSABERABi NEXT* 

♦ ENTRY * 

♦ * 
***************** 



**** 
♦NU ♦ 

♦ J4 

♦ ♦ 
♦♦♦♦ 

ERR960 



♦♦♦♦J4^^^^^^^^^ 

♦ SVC 5 FETCH ♦ 

* ♦ 

*************** 



***************** 



* * 

♦ A4 ♦ 
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Chart NU. $$ABERAF - Phase 5 cf Tape ERP (Part 2 cf 4) 
Refer to Chart 02. 



mm*** 
♦NT ♦ 
* HI* 



***** 
♦NV ♦ 
♦ F2* 



A3 ». 

.* ♦. 

.♦ ♦ 

•BUSOUT CHECK 
*. .♦ 

♦ . .* 

*. •* 
♦ NO 



X 
***** 
t>NV * 
♦ A2* 



B3 *. 

♦ INT ♦. 

REOf NO ♦. YES 
DEVICE ...... 

END .♦ 

♦ . .* 

♦ . .* 
♦ NO 



C3 ♦. 
.♦ ♦. 
.♦ COMMAND ♦. Y 
REJECT .♦. 
♦ . .» 

*. .* 
♦ . .♦ 
♦ NO 





ERR 150 .♦. 




E2 ♦. 




.♦ ♦ 




NO •♦ 




...♦. DATA CHECK 




• ♦. 




♦ . .♦ 




X ♦. ,♦ 




♦♦♦♦ ♦YES 




* ♦ 




♦ G2 ♦ 




♦ ♦ 




♦♦♦♦ 






ERR880 




«4>**#F I********** 


F2 ♦. 


♦ INSERT X»ll» * 


.♦ ♦ 


* 'DATA CHECK* * 


YES .♦ RETRYING 


* CODE FOR MSG *X, 


... ♦. USER'S 


* WRITER * 


♦.DIRECTION 


♦ * 


♦. ,♦ 


:^!it:^:^^[*^fm********* 


*• .♦ 




♦ NO 




**** - 


, 


♦ ♦ r 


X 


♦ G2 ♦.X. 


♦♦♦♦* 


♦ ♦ . 


♦NT ♦ 


♦♦♦♦ X 


♦ Kl* 


ERR160 .♦. 


* * 


G2 ♦. 


♦ 


.♦ ♦ 


ERR900 


.♦ CHANNEL 




♦. DATA CHECK 
♦ . 

♦ . .♦ 






♦• .♦ 




♦ YES 




X 




***** 




♦NV ♦ 




♦ A2^ 



,♦ 


♦ 






.♦ 




** 


. YES 


♦ . OVERRUN 




...... 


♦ • 




.♦ 




*. 


.* 






♦ 


. •♦ 




X 




♦ NO 




♦♦♦** 








♦ NV ♦ 




• 




•/r 




, 




* 




X 




ERR 300 




.♦. 






E3 


♦ . 






.♦ 


♦ 






.♦ 




'♦ 




♦. LOAD 


POINT 




l* 


♦ . 




.♦ 




♦ • 


.♦ 







♦ .X 



F3 



.♦. 



.♦ 



• YES 

• ♦♦♦♦ 
I REFERENCES * ♦ 

• TO NUF4! 

• NVC3, NVFl 
X ♦♦♦♦ 

ERR 870 X 

****mf^********** 

* INSERT X«20« ♦ 
.♦CLEANER IN ♦. NO ♦ 'ERR ON REC ' ♦ 
. PROGRESS .♦... X^ CODE FOR MSG ♦ 

♦. .♦ X ♦ WRITER ♦ 

♦, ,♦ . ♦ * 

♦, .♦ • **^nt*m*********** 

• YES ♦♦♦♦ .ERR900 

♦ ♦ , ♦♦*♦ 

♦ F* ♦ . ♦NT ♦ 

♦ ♦ ..X^ Kl ♦ 
♦♦*♦ ♦ * 

X ♦♦♦♦ 

.♦. 
G3 ♦ . ♦♦♦♦♦64***#*«#*#* 

.♦ ♦. * * 

* P2ECTR0 a 3 - ♦ 
.....X^ P2ECTR0 ♦ 



X 

♦*♦♦ 


.♦ USER ♦ 
♦. READING 
♦ . BACKWARD^. ♦ 

*♦. .♦' 

♦ NO 


F4 ♦ 
* 
**** 


.• 



**i^m************* 



**« *«H3 ******** ** 



P2ECTR0 = 4 
P2ECTR0 



*«***4>4>4c«*4t4[*4r4t*: 



J3 



♦ , 



♦ . NO 
♦. REPOSITIONING. ♦... 
♦. NEEDED .♦ 
♦ . .♦ 

♦ . .♦ 
♦ YES 



♦ ♦ 

♦ SET UP TO ♦ 

♦ FORWARD SPACE ♦. 

♦ RECORD ♦ 

♦ * 
***nLitt*4f^^im******* 



***iti*j^m********* 

♦ SET OFF UNIT ♦ 

♦ CHECK, SET ♦ 
•X^ RETURN TO ♦ 

♦ PHASE 3 ♦ 

♦ * 
*****i^m********** 



X 
***** 
♦NT ♦ 
♦ JA* 



**************m** 



♦ ♦.X. 



REFERENCES 
TO NUB5: 
NVE2, NVH4 
NWE3 



♦*♦♦ 
ERR985 X 

it,***m^5 **** **** ** 

* SET UP TO ♦ 

♦ CALL PHASE 3 ♦ 
♦(SSABERAO) NEXT* 

♦ ENTRY ♦ 

* * 
m**************** 



***** 
♦NT ♦ 
♦ F3^ 
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Chart NV, $$AEERAF - Phase 5 cf Tape ERP (Part 3 of 4) 
Refer to Chart 02. 



*NT * 
♦ Gl* 



♦♦♦** PEFERENCES 
t * TO NVA2; 
* ** NUA3, NUD3 
* ♦ NUG2 



RR200 


.♦. 


*l 


* . 


• * 


# 


.♦ CHANNEL 


*. DATA 


CHECK 


♦ . 




♦ . 


.♦ 


* 


. .♦ 




♦ NO 



•♦ JUST *. 
.* RETRIED ♦. YES 
.X*. USER'S CMD .*.... 
*. .* 



*. .♦ 
* NO 



B2 



.♦ USER *. 

.SUPPRESS INC . 
*. LENGTH .♦ 



NO .♦ INCORRECT ♦. 
..♦.LENGTH IN FOR. 
*. READ .* 



♦ SET INCORRECT ♦ 

♦ LENGTH ♦ 

♦ INDICATOR IN * 

♦ USER'S CCB ♦ 

♦ * 



El ♦. 

.* *. 

.♦ RECOVERED *. 

USER'S 

♦ .DIRECTION.* 

♦ . .♦ 



.♦ 



B3 



MAXIMUH ♦. VES .* ERROR ON ♦. YES- 

BUSOUT •♦.••••. ..X^.REPOSITIONING.^..X. 

♦. RETRIES •* ♦• .♦ 

*. .♦ *. .♦ 

♦. *♦ ♦, .« 

♦ NO ♦NO 



^^♦^^^^♦♦♦♦♦♦♦♦♦^ 



♦ INCREMENT 

♦ RETRY COUNTER 



*«**4t4>**^«^^^^^*^ 



.♦ ERROR ♦, 

♦. BUSOUT .♦ 

♦. .♦ 



C3 ♦. 

•♦BUSOUT* CMO^. 
♦. NOT NO-OP . 



X 
♦♦♦♦♦ 
♦NU ♦ 
♦ F4^ 



ERR 870 
X 
4i*4>«*03 ♦♦♦♦♦♦♦♦♦♦ 



♦ NO 



.♦JUST SPACED^. NO 
*. OVER RECORD .♦. .. 



♦. .♦ 
♦ YES 



.♦- 

E2 ♦. 

.♦ ♦. 

.♦ BUSOUT ON ♦ 

.NO-OP AT END 

♦.OF CHAIN .♦ 

♦ . .♦ 

♦. .♦ 

♦ NO 



R350 «♦. 

F2 ♦. 

.♦ ♦. 

.♦CLEANER IN ♦. 

♦. PROGRESS .♦ 



X 

*♦♦♦* 
♦NW ♦ 
♦ A3^ 



♦♦♦«* 
♦NU ♦ 
♦ B5^ 



SET ROR FINAL 
FLAG 



4i«t*«i«*«**«4c*4c»4i ♦♦ 



X 
*♦♦♦* 

♦ NT * 

♦ F2« 



♦♦*♦* 
♦NU ♦ 
♦ F4^ 
♦ ♦ 



,♦ 

.♦ 
YES 



ERR360 .*. 

F3 ♦. 

.♦ ♦. 

.♦ READY TO ♦. NO 

...X^. REVERSE .♦.•• 

♦. CLEANER .♦ 



X 
.♦. 

Gl ♦. 

.♦ *, 

.♦ USER 

COMMAND 

♦.CHAINING . 

♦ . .♦ 



4i#«4i#H !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ FIND NEXT CC« ♦ 

♦ IN USER'S ♦ 

♦ CHAIN ♦ 

♦ 4> 



ERR250 X 



♦SET UP TO EXIT ♦ 
♦ FOR IGNORE ♦ 



X 
♦♦♦♦♦ 
♦NU ♦ 
♦ A5* 



X 
♦*♦♦♦ 

♦ NW ♦ 

♦ Al^ 



X 

.♦. 

G3 ♦. 

.♦ ♦ 

USER 

READING 

• BACKWARD 

♦ . .♦ 

♦ . .♦ 

♦ NO 



*****H3 *♦**♦**♦♦♦ 



4c#«««*«4t*«4t««*it «4< 



♦ ♦ 

♦ SET UP FOR 4 ♦ 



m*.*************** 



♦ CHD « FSR, ♦ 

♦ TURN OFF ♦ 

♦ CLEANER FLAG ♦ 

♦ ♦ 



♦♦♦♦♦ 
♦NU * 
♦ B5* 



if^Hit************* 



ERR275 X 



4>««*«»*##««*«4t«** 



.ERRIOOO 

X 

***** 

♦NT ♦ 

♦ G3+ 

♦ * 
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chart NW. $$ABERAF ~ Phase 5 cf Tape ERP (Part 4 cf 4) 
Refer to Chart 02. 



***** 

♦NV » 
♦ F3* 



***** 
*HV ♦ 
* 02* 



ERR400 .♦. 

Al ♦. 
.♦ USER ♦. 
.* READING «• NO 
*• BACKWARD •♦••• 
♦ . .♦ 



***« * A 2 ********** 

* * 

* SET RORCCH * 
•X^OPCODE TO READ ♦ 

« FORWARD * 

* * 
***************** 



*****B 1********** 

* * 

* SET RORCCW * 
♦OPCODE TO READ * 

* BACK * 

* * 
***************** 



*****C 1********** 



SET UP TO DO 
ROR READ 



***************** 



♦ . .* 

♦ NO 



* BEGIN * 

* REPOSITION ♦ 

* SETUP * 

* * 

****************«( 



ERR660 .♦• 

C3 *. 
.* USER * 
.* READING 
*. BACKWARD 



ERR 670 

*****C4********** 



♦SET UP TO BACK 
.X* SPACE RECORD 



****************4t 



*****03********** 

* * 

* SET UP TO ♦ 

* FORWARD SPACE * 

* RECORD ♦ 

* ♦ 

***************** 



***************** 



***** 
*NU * 
♦ B5^ 
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Chart NX. $$AEERAG - Phase 6 cf Tape ERP (Part 1 cf 3) 
Refer to Chart 02. 



* * 

* A5 * 



^***A3********* 



4c*4i4t4t4t*4i ♦if ♦♦** * 



m***'¥********t**m 



*4>4c4k|>C3 ♦♦♦*♦*♦♦♦♦ 



♦FIND POINTER TO* 
* CCW IN CCB * 



***4i4>#««4e4>4'**«4c4[4c 



4c4(«*4cA5 **♦**♦*♦♦♦ 

♦ SET UP FOR ♦ 

♦ X»46« ♦ 
♦INTERCEPT NEXT ♦ 

♦ ENTRY ♦ 

♦ (P20PPTIEI ♦ 



♦ ♦ 

...X*SET ON P2TECPT ♦ 

^^(♦♦♦♦♦♦♦♦4c 



4i4cC 5 ♦♦♦♦♦♦♦ 

* * 

♦«;ft intfrcfpt* 
♦ message sit ♦ 

♦ {TF2MSr,INI ♦ 

* ♦ 





.♦ ERP IN ♦. YES 




♦. CONTROL ...... 




♦• ,♦ 




♦ . ,♦ 




♦ • •♦ X 




♦ NO ♦♦♦♦♦ 




♦ NZ ♦ 




♦ A2* 




♦ ♦ 




, ♦ 




X ERR400 




ERRllO .♦. 




E3 ♦. 




.♦ ♦. 




.♦UNSOLICITED*. YES 




♦. INTERRUPT «♦.,«« 




♦ . •* . 




♦ . .♦ 




♦ . .♦ X 




♦ NO ♦♦♦♦♦ 




♦ NY ♦ 




♦ A3^ 




♦ ♦ 




* 




X ERR320 


ERR250 .♦. 


.♦. 


F2 ♦. 


F3 ♦. 


.♦ ♦. 


,♦ *, 


NO .♦ PREV MSG ♦• 


ON .♦ ♦. 


..•♦. fTF2MSGTNI .♦X.. 


........ INTERCEPT .* 


♦ . .♦ 


♦ . .♦ 


. ♦. .♦ 


♦ . .♦ 


X ♦. .♦ 


♦ • .♦ 


*4c4<*4c ♦ YES 


♦ OFF 


♦NY ♦ 




♦ A2^ 




♦ * 




♦ , 




ERR260 


X 



ERR259 

4c4t**4cJ l«:»4c^****** 



^c^c^i^^c***********^ 



4i*«c#3|<G2 ♦♦♦♦♦♦♦♦♦♦ 

♦MOVE SAVED MSG ♦ 

♦ NO FROM ♦ 

♦ P20RGTIE TO ♦ 

♦ ERQMSG ♦ 

♦ * 
*4i#)|(******^****^* 



X 

• ♦. 

H2 ♦. 

.♦ SAVED ♦. 

NO .♦ MESSAGE 

,..♦. 'INTERCEPT* 



♦ YES 



NO .♦ 3420 OR ♦. 
...♦3410 TAPE DRIVE* 

♦ . .♦ 



H3 ♦. 
* ♦. 

DSE ♦. YES 
FAILURE ...... 



♦ * 
♦ SET X«42» ♦ 

.X^ 'DSE FAILED' 
MSG (P20RGTIE)^ 

♦ * 

^JlC*^'******* 



.♦. 




J2 *. 




.* ♦. 




♦ USER 


* 


ACCEPT ERROf 




*. . 


♦ 


♦ . .♦ 




♦. .♦ 




♦ YES 





♦♦*** 

♦NY ♦ 
♦ €?♦ 



#*4:#4'K2 ♦♦*♦♦♦♦♦♦♦ 

* * 
♦SET UP TO RFTRY^ 

* INTERCEPTED * 

* OPERATION ♦ 

* * 
**4c *« t ***4t3t(«4t*4c4i4: 



ERRI40 .*. 

J3 ♦. 

.♦csw status'^. NO 

♦ . CUE, DE, UC ...... 

*. .♦ 

♦ . .♦ 

*. .♦ X 

* YES ♦♦♦* 

* ♦ 

* A5 ♦ 

* * 

*♦*♦ 



^* INT *e YES 

♦ « REQUIRED IN **«,,« 
♦ . SENSE .* 

♦ . .♦ 



4()|t«4>4tn5 »♦**♦♦♦*** 

♦MOVE CSH STATUS^ 
♦F»»OM EP«^LOC TO* 

♦ PZTWHRKA * 

* * 



4t*4c4»|cE 5 ***♦♦***♦* 

* ♦ 

* MOVE FIRST 6 * 
*ftYTES OF SEMSE ♦ 

* TO P2TW0RKA*2 * 

* * 



* * 
♦SET UP TO FETCH* 

* $$A8ERAR ON * 

* NEXT ENTRY * 

* * 
)|i4t********«**««4c« 



♦ SET OFF ERP * 
...X*IN CTL FLAG TN * 
♦PUB2 {P2TFRO)* 

* * 

*********** 



««:H5**^^^*^ 

* ♦ 
♦ SET EROFLG * 

* BIT IGNERR ON * 
♦AND RETRY OFF^ 

* ♦ 
4t4t*4t*4i***** 

**** * 

* * . 

* J5 *.X. 

**** 

X 



**** * 

*N7. * 

* C4 *.X. 



♦♦♦*K5 **♦♦♦**** 

♦ SUPPET MACQ * 

* * 
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Chart NY. $$ABERAG - Phase 6 cf Tape ERP (Part 2 cf 3) 
Refer to Chart 02. 



♦NX ♦ 
♦ F2* 



♦ NX ♦ 

♦ E3^ 



ERR260 X 

**«4*A2 ♦♦♦♦♦♦♦**♦ 

♦ INSERT X«20' ♦ 

♦ 'ERR ON REC« ♦ 

♦ CODE FOR WSG ♦ 

♦ WRITER ♦ 

♦ ♦ 



♦ ♦ 

♦ SET ERQFLG 
BITS RTYERR + 

♦ IGNERR OFF 

« ♦ 



♦♦♦♦ 

♦NX ♦ 

♦ Jl ♦•X 



♦♦♦♦ 
ERR280 X 

^^^^♦♦♦♦♦♦^ 

♦SET OFF ALL^ 

♦ PUB2 FLAG ♦ 

♦BITS. CLEAR ERP^ 



lit WLCflK 

COUNTERS 



♦ ♦ 
♦MOVE SAVED CS« ♦ 

♦ STATUS AND * 
♦SENSE TO ERBLOC^ 
» * 
^^^'♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



4r«E2 ♦♦♦♦♦♦♦ 



ERR320 X 

4e**«4iA3 *♦♦♦♦♦♦♦♦♦ 

♦ INSERT X«43« ♦ 

♦ 'UNX INTRPT* ♦ 

♦ CODE FOR HSG ♦ 

♦ WRITER ♦ 

♦ ♦ 
*««**««*♦*♦♦♦♦♦♦♦ 



♦ SET OFF ALL ♦ 
♦PUB2 FLAG BITSt* 

♦ CLEAR ERP ♦ 

♦ COUNTERS ♦ 

♦ ♦ 



♦♦C3*«»^*^^ 
♦SET ERQFLG ♦ 

♦ BIT RTYERR ♦ 
ON AND IGNORE 

♦ OFF ♦ 



^.^^^^t^^^^** 



:^4tQ2******* 



♦ SET UP TO ♦ 
♦FETCH $f ABERA4 



««**#4t^^^^^ 



:*:*4i 4 *#*#«** 



♦ ♦♦♦ 

♦NZ ♦ 

♦ J2 



♦♦♦♦ 
ERR950 X 

^^^^'♦F 2 ♦♦♦♦♦♦♦♦♦♦ 



^^[^(♦♦♦♦♦♦♦^(♦♦♦♦♦^ 



♦♦**G2 ♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SVC 5 FETCH ♦ 

♦ ♦ 
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Chart NZ. $$AEERAG - Phase 6 cf Tape ERP (Part 3 of 3) 
Refer to Cnart C2. 



♦NX ♦ 
♦ 03* 



ERR400 .*. 

A2 *. 

.♦ *. 

.* ♦. 

♦ . UNIT CHECK . 

*. .♦ 

♦ . .♦ 

♦. .* 

♦ YES 



.♦LAST ACTIONS. NO 
♦. REPOSITION -♦••• 

♦. .♦ 



♦ X. 



REPOERR X 

* INSERT X»20« ♦ 

* 'ERR ON REC» ♦ 

* CODE FOR MSG 

* WRITER 



^[^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



4c*«4>«0 !♦♦♦♦♦♦♦♦♦♦ 



4c«**4<i«t3|c*4c4<4t «**««* 



4c*«4<«E l**^******* 



CLEAR ALL ERP 
FLAGS 



^(♦♦^♦♦^[♦♦♦♦♦♦♦♦♦* 



♦ ♦♦♦♦fr i4c*4'*4'4!«4'4'* 



4c««*«4e)|e4c«;4i*:|[3((4c*4>« 



C2 



♦ » 



YES .♦ CLEANER ♦. 
•...♦. FLAG OFF .♦ 

♦. •♦ 

♦ . «* 

♦• .♦ 
♦ NO 



ERR600 •♦. 

A3 *. 

.* CHAN ♦. 

.♦ CHAINING ♦. 

...K^.PROG, OR PROT. 

♦. CK .♦ 

♦ . .* 

♦ . .* 

♦ YES 



B3 *. 
.♦ ♦. 

.♦LAST ACTIONS. NO 
♦. REPOSITION .♦... 
♦ . .♦ 

♦ • .♦ 
* YES 



02 ♦. 
.♦EQUIP, ♦. 
.♦BUSOUT, INT^. YES 
*.REQ, OVERRUN ...... 

♦. CMD RE J .♦ 
♦ . .♦ 

♦. .♦ 
♦ NO 



.♦ ♦. 

.♦ 
♦, LOAD POINT 



A4 ♦. 

.♦LAST ACTION^. NO 
.X^. REPOSITION .♦..• 
♦ . .♦ 

*. .♦ 

*. .♦ 
♦ YES 



♦ ♦ 
♦SET UP TO RETRY^ 
♦USER'S COMMAND ♦ 

♦ (NOT RORl ♦ 

♦ ♦ 



***4<^C4^^^«^^«^«* 

♦ SET UP TO COME ♦ 

♦ BACK TO THIS ♦ 
♦PHASE WHEN OONE^ 

♦ ♦ 



**«*4iA5 ♦♦♦*♦♦♦♦♦♦ 

♦ ERROR ♦ 

♦ RECOVERED, ♦ 
.X^ CLEAN UP FOR ♦ 

♦ IGNORE ♦ 

♦ ♦ 

**4i ^Ht^t* )|t4t^ * It^i ♦♦♦ * 



4i4i4c*4iB5 m***iti*4i*'¥* 



♦SET UP TO CALL ♦ 
♦•AB« NEXT ERRORS 



^^♦^^(♦♦♦♦♦♦♦♦♦♦♦^ 



X 

♦♦♦♦* 
♦NX ♦ 
♦ K5^ 



#*G !♦♦♦♦♦♦♦ 



* SET UP TO ♦ 
♦FETCH $$ABERA4 



^^^^^'♦♦♦♦♦^ 



♦. DATA CHECK 



X 

.♦. 

G2 ♦. 



.♦PE ID BURSTS. 
•X^. CHECK .♦ 

♦ . .♦ 

♦ • .♦ 



♦SET UP TO CALL ♦ 

♦ PHASE 4 ♦. 

♦ $$ABERAE ♦ 

♦ ♦ 



♦. YES 
...... 



♦SET UP TO CALL ♦ 
X^ PHASE 3 ♦ 

♦ S$ABERAD ♦ 

♦ ♦ 
^^^[^^^♦♦♦♦♦♦♦♦♦♦♦^ 



4<4<H2^^^^^^^ 



^^^^'♦♦♦♦♦♦^ 



ERR910 

«;ii4t**J2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦SET UP TO CALL ♦ 

♦ PHASE I ♦ 

♦ $$ABERAB ♦ 
» ♦ 



♦SET UP TO CALL ♦ 

♦ PHASE 2 ♦ 

♦ $$ABERAC ♦ 

♦ ♦ 



..K.X.. 

X 

♦*♦♦♦ 

♦NY ♦ 

♦ F2^ 

♦ ♦ 
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Chart PA. $$AEERAH - Phase 7 cf Tape ERP (Part 1 cf 3) 
Refer to Chart 02. 



* A4 * 

* * 

♦ *♦♦ 



* ♦ 

* $$ABERAH ♦ 

* ♦ 
* * * * * * 4c 4i4c 4i «* « 4: * 



««4c4<*Bl4<i|<4'4i4<«4t«4'4' 



ilit********r^c^,**:t<** 



♦ PC ♦ 

♦ C2* 



.♦. ERR035 X 

CI *. ♦****C2********** 

.♦ *. ♦ INSERT X«31 • ♦ 

.♦ DEVICE *. NO ♦ 'DVC NOT OP • * 

*. OPERATIONAL ..........X* CODE FOR HSG *. 

♦. .* * WRITER * 

*, ,♦ * ♦ 

♦*♦***♦*♦♦♦*♦♦*♦♦ 



♦ YES 



X 



REFERENCES 
TO PA02: 
PCF5, PCJ2 



* * 

* ♦ *... 

* * , 
♦*♦♦ 

X 



♦ F4 * 



.* WILL USER *. NO 
♦.ACCEPT ERROR .*... 



♦ K2 ♦ 

* * 
♦♦*♦ 



CCB NOW 
DEQUEUED 



4c ^^♦♦BA^*^^^!*'^*^^ 

♦ SFT ON ♦ 

♦ UNRECOVERABLE ♦ 
♦I/O ERROR FLAG ♦ 

♦ IN USER CCB ♦ 

♦ * 



♦ SET ON PASS * 

♦ BACK FLAG IN * 

♦ ERROR QUEUE ♦ 

♦ ENTRY ♦ 

♦ ♦ 

4i4c4c4:4i*«4i4'^^^^^^^« 



**04^^^*+^* 



♦ SET ERQFLG * 
♦BIT RTYERP OFF 



* ♦ 

♦ B5 ♦ 

♦**♦ 



.♦ EQUIPMENT ♦. N 
♦. CHFCK .♦. 



♦♦♦♦* 

♦ PC ♦ 

♦ M* 



♦ INSERT ♦ 
♦X«10» »EQUIP ♦ 

* CHK« CODE FOR 
♦ MSG WRITER * 

* ♦ 



♦FIND ERROR CCW ♦ 

♦ AND COPY TO ♦ 

♦ P2TW0RKA ♦ 

♦ ♦ 



4t4i «♦♦♦♦♦*♦♦ 



0iif£2 ******** 

♦ ♦ 
CLEAR ERP 
FLAGS AND 
COUNTERS 

♦ ♦ 



Hi*f2******* 



,♦ UNIT ♦, YES 




♦ GO EXIT TO ♦ 


♦. CHECK .♦, 








♦ SUPERVISOR ♦. 


♦ . .♦ 








♦ ♦ 


♦ . .♦ 








♦ ♦ 


♦ . •* 




X 




4<4t«#9C«4t4<4:#« 


♦ NO 


♦♦♦* 






♦♦♦♦ 


♦ 




♦ 




♦ PC ♦ 


♦ 


85 


♦ 




♦ E2 ♦.X. 


♦ 




♦ 




♦ ♦ , 


♦♦♦♦ 






♦♦♦♦ X 










100 .♦. 








• ♦. 


Gl ♦. 








G2 ♦. 


,♦ *, 








.♦ ♦. 


.♦ CHANNEL ♦. NO 






.♦ UNIT ♦. NO 


♦. DATA CHECK ,♦. 








X*, CHECK ...... 


♦ . .♦ 








*• .♦ . 


♦ . »* 








♦, .♦ , 


♦ . .♦ 








♦. .♦ X 


♦ YES 








♦ YES ♦♦♦♦♦ 

♦ P8 ♦ 

♦ A3^ 

♦ ♦ 

• ♦ 

X ERP120 


X 








• ♦. 


#:(c4'4't<iH !♦♦♦♦♦♦♦♦♦♦ 








H2 ♦- 


♦ INSERT X»28« ♦ 








.♦ *. 


♦ 'CHAN DTCHK» ♦ 








.♦ DATA ♦. NO 


♦ CODE FOR MSG ♦ 








♦. CONVERTER .♦. 


♦ WRITER ♦ 








♦. CHECK .♦ 



♦*♦♦* 

♦ PB ♦ 

♦ Hl^ 



UOOO 

X 
^^♦♦F3^^ ♦♦♦♦♦♦♦ 

♦ ♦ 
i* SUPRET MACRO ♦ 

♦ ♦ 
4( ****♦♦♦♦♦♦♦♦♦ ♦ 



■^m********* 



!(«*E4##4t***^ 



♦ SET ERQFLG ♦ 

* BIT IGNERR ON * 



)|t*4i4i*4:*4c*#* 



♦ ♦♦♦ 

♦ PC ♦ 

♦ G5 ♦.X 



♦♦♦♦ 
ERR 905 X 



♦ *♦♦ 

♦ ♦ 

♦ F4 ♦ 

♦ ♦ 

♦ ♦♦♦ 



^[♦^^♦♦♦♦♦♦♦♦♦♦♦♦^ 

REFERENCES 
TO PAJl: 
PBA2f PBB3 



..X^. 



♦ ♦ ♦.X 

♦ ♦ 
♦♦♦♦ 

ERR900 .♦. 

Jl ♦. 
.♦ ♦ 

.♦ IS ERROR 
DATA CHECK 



.♦ 
♦ . .♦ 
♦ YES 



Kl ♦. 

.♦ ♦. 

.♦IS OP CODE ♦. 

♦ . RDF OR ROE . 

♦ . .♦ 

♦ . .♦ 



PBB4, 
PCBl, 
PCFl, 
PCHl, 
PCH5 



PBB5 
PCD4 
PCF2 
PCH3 



♦ INSERT X*30» ♦ 

♦ 'CONVERT CHK« ♦ 

♦ CODE FOR MSG ♦. 

♦ WRITER ♦ 

♦ ♦ 
^^^[♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦♦♦♦ 
RR901 X 

4t4cK2 ♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET ERQFLG ♦ 
.X+BITS RTYERR AND^. 

♦ IGNERR OFF ♦ 

♦ ♦ 



.♦. 






H3 ♦. 






.♦ ♦ 






.♦ NOT 


♦ 


. NO 


♦. CAPABLE 




.♦•••. 


*, 


» 




♦ . .♦ 






♦ . .♦ 




X 


♦ YES 




♦ ♦♦♦♦ 

♦ PB ♦ 

♦ 

ERR 160 


X 






«:♦**♦ J3^^^^^^^^^^ 


* SET UP FOR 




♦ 


♦X»32' MSG NEXT 


* 


* ENTRY 




♦ 


♦ (P20PPTIE> 




♦ 



^(^♦^♦♦♦♦♦♦♦♦♦♦♦♦4: 



*********** 



**Q^******* 

♦ * 

CLEAR ERP 
FLAGS AND 
COUNTERS 

* * 

*********** 



*****^(^********** 

♦ ♦ 

♦ « 
♦PT2NAME = 'AB' ^* 

♦ * 

♦ * 

***************** , 



ERR950 

****j^********* 

* * 

* SVC 5 FETCH ♦ 

* ♦ 
*************** 



♦♦♦♦ 

♦ ♦ 

♦ A4 ♦ 

♦ * 
♦♦♦♦ 
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Chart PB. $$AEERAH - Phase 7 cf Tape ERP (Part 2 of 3) 
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***** 

♦PA * 
* H3* 



*♦♦*«: 
*PA * 

* GZ* 



.♦ PE ID 

BURST 

*. CHECK 



ERR200 X 

*****l^2********** 

* INSERT X»19» » 

* *UNOETR ERR» * 
...X* CODE FOR MSG ♦ 

* WRITER ♦ 



********^f******^* 



CHAINING 
CHECK 



**lH**f^ l**^***iti*** 

* SET UP FOR * 
*X'44» MSG NEXT ♦ 

* ENTRY ♦ 

* CP20PPTIE) * 

* ♦ 
***************** 

**** ', 

* * . REFERENCES 

* * ♦.X. TO PBCl: 

* ♦ . PAJ3, PCJ4 

♦*♦* 
ERR500 X 

*****£ l*m******** 

* * 

* BUILD RUN CMD ♦ 

* IN P2TW0RKA ♦ 



***** 
♦PA ♦ 
♦ Jl^ 



PROGRAM ♦. NO 


•♦PROTECTION 


♦ 


NO 


CHECK .* 


•..X*. CHECK 




♦ « . .. 


.♦ 


♦. 


* 


, 


• ♦ 


♦ . •♦ 






♦ • .♦ 


♦ . .♦ 




X 


♦ YES 


♦ YES 




**** 

* * 

* A2* 

* « 



****mQX**** ****** 

♦ * 

♦ INSERT X»14» ♦ 
♦•OVERRUN* CODE ♦ 
♦FOR MSG WRITER ♦ 

♦ ♦ 
***************** 



X 

***** 

♦ PA ♦ 

♦ Jl^ 

♦ * 



*.****Q^*********^ 

♦ INSERT X«24» ♦ 

♦ 'PROG CHECK* ♦ 

♦ CODE FOR MSG ♦ 

♦ WRITER ♦ 

♦ ♦ 
********m******** 



X 

***** 
♦PA ♦ 
♦ Jl^ 



*****:^si*m**m*mm** 

♦ INSERT X»25« ♦ 

♦ 'OROT CHECK* ♦ 

♦ CODE FOR MSG ♦ 

♦ WRITER ♦ 

♦ * 



***** 
*PA * 
♦ Jl^ 



**********m****** 



**Ql*****H,Hl 



*********** 



♦♦£!♦♦♦♦♦♦♦ 



♦ SET ON OP INT 
♦ IN ERQFL6 



*m********* 



**fl******m 

* SET ON ♦ 

♦ REPOSITIONING 

♦FLAG P2TREP0 ♦ 

♦ * 

*********** 



4e«G !♦♦♦♦♦♦♦ 

* * 

* SET UP TO ♦ 
♦CALL THIS LOAD 

♦ ON RETURN ♦ 

♦ ♦ 

*********** 



*********** 



***** 

♦ PA ♦ 

♦ F3^ 
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chart PC. $$ABERAH - Phase 7 cf Tape ERP (Part 3 cf 3) 
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♦♦*♦♦ 

♦ PA ♦ 

* B5* 

* * 



.* *. NO 

*m BUSOUT .*,.. 

*. .* 

♦ . .♦ 



♦ . .♦ 




♦ . .♦ X 


♦ YES 




♦ YES ♦*♦♦ 

♦ ♦ 

♦ 64 ♦ 

♦ ♦ 
, **** 
X 


X 




.♦. 


il(*t**Bl********** 


62 ♦. 


* INSERT X«09» 


♦ 


.♦ ♦. 


* 'BUSOUT CHK* 


* 


.♦ ♦. YES 


* CODE FOR MSG 


♦ 


♦. DEVICE END ...... 


* WRITER 


* 


♦ • .♦ 


♦ 


♦ 


♦ . .♦ 


*ii:*ili*n'*********** 


♦. .♦ X 






* NO ♦♦♦♦ 


* 




» ♦ ♦ 






♦ F4 ♦ 


X 




♦ ♦ 


*♦*♦* 




♦♦♦♦ 


♦ PA ♦ 




X 


♦ Jl^ 




.♦. 


♦ ♦ 




C2 ♦. 


« 




.♦ ♦. 


ERR900 




•♦NONEXISTENT*. NO 

♦. TAPE UNIT .♦ 

♦.(TUSTATB).* 

*, ,* 

♦ • • ♦ 

♦ YES 

X 
***♦♦ 
♦PA ♦ 

♦ C2^ 



.* FILE OPEN ♦. NO 
♦. CP20PENJ .♦... 



♦♦♦♦ 

♦ ♦ 

♦ El ♦ 

♦ * 
♦♦♦♦ 






R095 .♦• 

El *. 
.♦ ♦• 
.♦ ♦. NO 
♦ • DATA CHECK .♦. ... 


ERR096 •♦. 

E2 ♦. 
.♦ ♦. 
.♦ ♦. 
....X^. DSE FAILURE • 


NO 

♦ •• .. 


♦ , ♦♦ 
♦ . .♦ 
♦ YES 


♦ . •♦ 
♦ . •♦ 
♦. .♦ 
♦ YES 


X 

***** 

♦ PA ♦ 

♦ Gl^ 

♦ ♦ 

♦ 



4i4>4c#«D3 ♦♦♦♦♦♦♦♦♦♦ 

♦ INSERT X»47« ♦ 

♦ 'UNX INTERV ♦ 

♦ CODE FOR MSG ♦. 

♦ WRITER ♦ 

♦ * 

**:ll*****ilHtt******* 



*****c^********** 

♦ INSERT X»08» ♦ 

♦ • INTERV REO» ♦ 
•X^ CODE FOR MSG ♦ 

♦ WRITER ♦ 

♦ ♦ 

^^[♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



^ilHf**oet********** 



♦SET OPINT INTO ♦ 
X^ ERQFLG ♦ 



if^^*************** 



***** 
♦PA ♦ 
♦ Jl* 



» ♦ 

* INSERT Xni» ♦ 
♦•DATA CHK» CODE^ 
♦FOR MSG WRITER ♦ 

* * 



**♦♦* 

♦PA ♦ 
♦ J1+ 



4c«**4tf 2 ♦♦♦♦♦♦♦♦♦♦ 

♦ INSERT X«42» ♦ 

♦ "DSE FAILED* ♦ 

♦ CODE FOR MSG ♦ 

♦ WRITER ♦ 

♦ ♦ 

•ilr^ilflHlf:^**********]** 

I **** E 
. ♦PA ♦ 
..X^ Jl ♦ 



NO .♦ ♦. 

*««♦, LOAD POINT .♦X, 





.♦ REWIND ♦ 




♦ . UNLOAD 




♦ . .♦ 




♦ , .♦ 




♦ . •♦ 




♦ NO 




♦*♦♦ 




♦ ♦ . 




♦ G4 ♦.X. 




♦ ♦ . 




*♦♦♦ X 


.♦. 


ERR040 .♦• 


G3 ♦. 


G4 ♦. 


♦ . 


.♦ ♦• 


♦ . 


NO .♦ COMMAND ♦ 


OVERRUN •♦X,-.. 


,.,.♦. REJECT 


,* 


♦ . •♦ 


.♦ 


♦ « .♦ 



♦ PREV MSG ♦. NO 
CTF2MSGINI .♦... 



• ♦ 
• ♦ 
YES 



***** 

♦ PA ♦ 

♦ D2^ 



♦ X 



♦ INSERT X»29« ♦ 

♦ 'BK INTO LP' ♦ 

♦ CODE FOR MSG 

♦ WRITER ♦ 

♦ ♦ 

*illit.^c*1fil,i^^fitc******* 



X 
***** 

♦ PA ♦ 

♦ JI^ 



X 


♦. .♦ 


♦♦♦♦ 


♦ YES 


♦ * 




♦ El ♦ 




♦ * 




**** 






X 




.♦. 




H2 ♦. 




.♦ ♦• 


NO . 


♦ 


.•• .. •••♦. 


COMMAND ROB 




♦ . 




♦ . .♦ 




♦. .♦ 




♦ YES 



***** J2 ********** 

♦ SET OFF ♦ 

♦ UNIT CHECK ♦ 

♦ SET ON UNIT ♦ 

♦ EXCEPTION ♦ 

♦ ♦ 
***************** 



*****H3 *♦♦♦♦♦♦♦*♦ 

♦ ♦ 

♦ INSERT X'14* * 
♦•OVERRUN' CODE ♦ 

♦ FOR MSG WRITER ♦ 

♦ ♦ 
***************** 



X 
♦*♦♦♦ 

♦ PA ♦ 

♦ Jl^ 



H4 



.♦ 



♦ . 



.♦LOAD POINTt*. NO 
♦. FILE PROT, .*... 
♦. WRT .♦ 
♦ . .♦ 
♦ . .♦ 
♦ YES 



*****J4********** 

♦ SET UP FOR ♦ 

♦ X'17^ MSG NEXT * 

♦ ENTRY ♦ 

♦ <P20PPTIE» * 

♦ ♦ 
***************** 



ERR910 
X ERR905 
*****(;5 ********** 

♦ MOVE SAVE MSG ♦ 

♦ NO FROM ♦ 

♦ P^ORGTIE TO ♦ 

♦ EROMSG ♦ 

♦ * 
***************** 

I **** 
. *PA ♦ 
..X+ F4 ♦ 

* * 

*♦♦* 

*****H5 ********** 

♦ INSERT X«18» ♦ 

♦ •COMM REJECT • ♦ 
.X* CODE FOR MSG ♦ 

♦ WRITER * 

♦ ♦ 
***** ** ********** 



***** 

♦ PA ♦ 

♦ JI^ 



X 
♦♦**♦ 
♦PA ♦ 
♦ D2^ 



.ERR 500 

X 

***** 

*PB * 

* CI* 

* * 



Detail Charts 195 



Chart PE. $$AEERAI - Phase 8 cf Tape ERP (Part 1 cf 2) 
Refer to Chart 02. 



♦ A3 * 



♦ A5 ♦ 

* * 



ttt^Al «■♦♦♦♦♦♦*♦ 
* f$ABERAI ♦ 



t***'*B l******#*** 



* ESTABLISH ♦ 
♦ADDRESSABILITY ♦ 



»*#♦♦**♦*♦*♦♦♦♦#♦ 



*««*3«i(^ 14c*4i4i*4e4c9|>«4> 



FIND l»0 INTER 
TO ERR CCW 



*4i4(4c4t)4e;f4c*«4c4i4t***« 



ERR075 .♦. 

Dl *. 
.* ♦• 
NO .* SEVEN ♦. 
,..*. TRACK 

♦. TAPE .♦ 



.♦ ♦. 

.* DATA *. YES 

*. CONVERT .*.... 



* « 
♦SET ON ROR FLAG^ 

♦ IN PUB2 AND ♦ 

♦ USER CC8 ♦ 

* ♦ 



4t«*4i4>B3 ********** 



***************** 



*****C^********** 

♦ * 

♦ SET SUPPRESS ♦ 

♦ DATA TRANSFER ♦ 

♦ IN RORCCW ♦ 

♦ ♦ 

******* ********^fi* 



*****0-i**** ****** 

* * 
♦SET READ COUNT ♦ 

♦ AND CLEANER ♦ 

♦ COUNT TO ZERO ♦ 

* ♦ 
***************** 



ERR080 .*. 

Fl ♦. 
.♦ *, 
.♦ SUPPRESS ♦. YES 
♦ .DATA TRANSFER. ♦ X 



♦♦*♦ 

♦ * 

♦ G2 ♦.X 



DATA 
CHAINING 



NO 


• ♦ 


USER'S 


..♦ 




DIRECTON 




♦ 


RDB 

♦ . 



**f3******* 



*********** 



**** 
ERR880 X 

#***#G2 ♦♦♦♦♦♦♦♦♦♦ 

♦ INSERT X'll* ♦ 

♦ 'DATA CHECK* ♦ 

♦ CODE FOR MSG 

♦ WRITER 



***************** 



♦X. 



*****Q^*********t 

* * 

* SET RETRY ♦ 

* USER'S ♦ 

* DIRECTION OFF ♦ 

* * 
***************** 



ERR 900 X 


ERRIOO .♦. 








tl-H 2 ******* 


H3 *. 








♦ * , 


,♦ ♦. 








♦SET UP FETCH ♦ 


• ♦ WRONG ♦. NO 








♦ PHASE 5 ♦ 


♦ . LENGTH .♦.. 








♦ $$A8ERAF ♦ 


♦. RECORD .♦ 


, 






♦ * 


♦ . •♦ 








**********ifi , 


♦ . .♦ 


X 






, 


♦ YES »♦** 






♦♦** 




. ♦ 




* 




♦ * , 




♦ 


K3 


* 




♦ J2 ♦.X 




• ♦ 




* 




♦ * 




***4 






**** 












ERR950 




• ♦• 








X 


J3 ♦. 








**i^*j2********* 


.♦ ♦. 








♦ SVC 5 FETCH ♦ 


. YES .♦ CSW ♦. 








♦ A-TRANSIENT ♦ 


.....•♦.RESIDUAL = .♦ 








♦ ♦ 


♦• •♦ 








*************** 


♦ . .♦ 
♦• .♦ 

♦ NO 
**** 

♦ * , 

♦ K3 ♦.X. 

♦ ♦ . 
♦♦♦♦ X 






***♦♦ 
♦PF ♦ 

* 




ERR200 .♦. 




ERR 825 


X 




K3 ♦. 




*****lf^it**m******* 




.« ♦. 




* 


* 




.♦lOALS BEINGS. NO 
♦ . USED .♦.. 




* 


SET FETCH ♦ 








..K* FOR $SABERAD ♦ 



SET UP CNT TO ♦ 
LOOP ♦ 



***************** 



* KETCBUF MACRO ♦ 

* ♦ 

* ♦ 

********w******** 



.♦ IS IDAL 


♦ . YES 


♦. BLOCK 


.♦. ... 


♦.AVATLABLE 


* s 


♦. .♦ 




♦ . .♦ 


X 


♦ NO 


***** 




♦ PF ♦ 




♦ AI + 




* ♦ 




* 




ERR275 


*****Dei ********** 


* 


* 


♦ ADO I TO 


* 


♦ LOOP CNT 


* 



*************** t* 



.♦IS LOOP CNT^. YE 
. = MAXCNT .♦.. 



♦ *** 

* * 

* G2* 

* * 
**** 



*****f^ ********** 



***************** 



*****r fy********** 



***************** 



*****^i^*W******** 



***************:** 



***************** 



**** 

♦ * 

♦ A5 ♦ 

♦ * 



♦ J2 ♦ 

♦ ♦ 
♦ *** 
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cf Tape ERP (Part 2 cf 2) 



***** 

♦ PE ♦ 

♦ C5* 



ERR275 X 

*ilf*^c^i(^l*******1f^H: 

♦ * 

♦ PUT ERP I DAL * 

♦ AOOR IN PUB2 * 

♦ CCW * 

♦ * 

***:tLlHf^**m******* 



*****Ql********** 

* * 

* CALC BYTES * 
♦TRANSFERRED AND* 
♦PUT IN PUB2 CCW* 

* ♦ 

***ili:H^:t,1Hlt********* 



♦ ♦ 

* GET ADDR OF ♦ 
USER IDAL AND 

* FIRST IDAW ♦ 

♦ ♦ 



YES .♦ READ ♦. 

,..*. BACKWARD .♦ 



:(t«=»::(c4tE |*4'***>|c*4t*4' 



♦ ADD 800 TO ♦ 
♦FIRST USER lOAW* 



***#4<4c4i:*4t« ******* 



* ZERO 11 HIGH ♦ 

* ORDER ♦ 

* BITS (21-31) ♦ 

* * 

#:<c«4ct** ♦♦♦♦♦♦♦*♦♦ 



#)(K4:*i«cG !♦♦♦♦*♦♦♦♦♦ 

* * 

♦NOW WE HAVE THE* 

* CALC PAGE * 

* BOUNDAPY ♦ 

* ♦ 

:ilit^:lf^t************ 



«4c#«*H !♦♦♦♦♦♦♦*♦♦ 

* * 

♦SUB FIRST USER * 
♦IDAW FROM CALC ♦ 

* PAGE ♦ 

* ♦ 
*#4c 4s ^c^^i ♦*«♦*>!( 4c**4< 



♦ * 
♦LOAD ABSOLUTE^ 

♦ CALC VALUE ♦ 
♦ (NOBIFP) * 

♦ ♦ 



READ ♦. NO 
BACKWARD .*. .. 



■1f****/^2********** 

♦ * 
*ADD1 TO NO. OF * 
♦BYTES IN FIRST * 

♦ PAGE * 

♦ ♦ 
*ii**,IH^4********** 

**** 



♦ B2 *.X, 



**** 
ERR450 X 

4t4>**«B2 ********** 

* SUB BYTES * 

* TRANSFERRED - * 

* INOBIFP) = RES ♦ 

* CNT ♦ 

* * 

****nfi^:tH^t'******** 



*^C2******* 

* * 

* SET USER 
INDEX TO ONE 

* IDAW 

* * 

^^c********* 



♦ ADD 1 TO USER ♦ 
,.X* IDAW INDEX * 



****^tm*********** 



YES 



ERR600 .*. 

A3 *. 

• * ♦• 
* READ ♦. 

FORWARD .♦ 
*. .♦ 



«*B3******^ 



* 


IS 


RES 


CNT 


♦ . 


YES 




LI 




?048 




♦• . .. 


* 








« 






* ♦. 




.♦* 




, 






*. 


.* 




X 






♦ 


NO 




«*♦♦ 












* 






, 






* A3 






I 






♦ 
**** 



4c4i4r4i4ip2 ****♦*♦**♦ 

* ♦ 

* SUB 1 PAGE ♦ 
.*t2048J FROH RES* 

* CNT ♦ 

* ♦ 



***^*m****ilr. 



4t*c3******* 

* SET NEG ♦ 
♦VALUES (-1 AND 

* -7 FFI ♦ 
* * 

*********^* 



* ADD (* OR -II * 

* TO FINAL RES * 

* CNT ♦ 

* ♦ 
****^it^**ilf***^t**** 



4e4c4<**E3 *****♦*♦♦* 



♦ADO C+1 OR -li 
* TO NOBIFP 



^*:ti**^f*****t1ii**** 



^***1ff^^*^****ii*** 



CALC FIRST 
ERP IDAW 



4c sH 4c 4> «:♦♦♦♦♦♦♦*♦*♦« 



4c4>G3******* 



4c4c4c« ****** 4c 



* HOVE CALC ERP ♦ 
..X* IDAW TO ERP * 

* IDAL * 

4> * 

4c4'*************4c4c 



«4>***B4********** 



4>4i4c*4i**4c********* 



4i4i*4c4iC4********** 



4t4<**4c4i4c4i*****4<*** 



.* LAST IDAW *. YES 
*. TO BE .*.... 
*. CREATED .* 



4c4i4'*4cE4********** 



♦ CALC NEXT ERP 
X..* IDAW 



4t«4E4c*4c4c4c4c4c***4'*4c* 



* CALC LAST ERP * 
X* IDAW ♦ 



4c4c4i4c*4c4c*4c4c4c4:*4i4i*4> 



4:«4<**E5 ********** 
4c 4c 

* MOVE LAST ERP ♦ 

* IDAW TO ERP * 

* IDAL * 

* * 

4i4e*** ******** 4c*** 



***** 

♦PE ♦ 
♦ K4* 



**4c* 

♦ ♦ 

♦ B2 * 

♦ * 
**4t* 
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chart PJ, $$AEERR1 - Eata Cell EEF (Part 1 of 
Befer to Chart 02. 



a) 



♦ * 

* $$ABERR1 * 



t*:***SZ********** 



GET ADDR OF 
SYSCOM 



*4>4'««*«3K*«4'«*«*4i4> 



* ♦ 
♦GET ERROR BLOCK* 

* ADDR FROM ♦ 

* SYSCOM * 

* * 



♦ ♦ 

♦ GET PUB ADDR * 

♦ FROM ERROR * 

♦ BLOCK * 

♦ ♦ 



E2 ♦. 
* *, 
VALID ». 
CHANO 
PTR .♦ 
*. .♦ 
*. .* 
♦ YES 



♦ TAKE IGNORE * 
.X*EXIT VIA SUPRET* 

♦ MACRO ♦ 



m^:t'**f2********** 



♦GET RETRY COUNT* 
♦FROM ERR BLOCK ♦ 



4>4t**4t«*«*^*****^* 



4c 4(4c**G2 ♦♦♦♦♦♦♦♦♦♦ 



4(«*4t4; 4> * 4<*4>««4t «4c)|i« 



«*#**H2 ♦♦♦♦♦♦♦♦♦♦ 



SAVE RETRY 
COUNT 



♦♦*♦*♦#♦*♦♦***♦** 



#«4t4t4iJ2 #******♦*♦ 



GET CC8 ADDR 
FROM ERRO 



««**«*«********** 



***A4********** 



.X* SAVE CCB ADDR * 



« «:4t4c «#* 4ij|c*4c4c*«:*** 



*«4c4t4:B4«4(*«:****** 

♦ ♦ 

♦ GET CSM ADDR * 

♦ * 

♦ ♦ 

«]*(*♦♦****«♦«*♦*** 



](t4t**«Q44i*:***i|t4c«)ttitt 



4t«4c«4t*:4E4c4c4c««4(#«*« 



* * 

* GET ADDR OF ♦ 

* FIRST * 

* CCW * 

* * 



E4 ♦. 

.* ♦. 

* IS THERE * 

SVC 70 
*. SUPPORT .* 



♦ ♦ 

♦ SET UP TO * 

♦ INTERFACE TO * 

♦ VIRTAO ♦ 

♦ « 

^^(♦♦♦♦♦♦♦♦♦*«4i*4(* 



*4c4i4c4tG4^*^^^**^** 

♦ ♦ SVC 70 - ♦ ♦ 

♦ ♦ DETERMINE ♦ * 

♦ VIRTUAL ADDR^ * 
OF CCH 



♦ * 



* * 



^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



***** 
*PK * 
* A2* 



K2 



*. 



•* IS CCB ♦. YES 
♦. ADDR .*.,.. 
♦, NONZERO ,♦ 

*. .* 
♦, .« 
* NO 

Iaoi 

X 

***** 

♦PK * 

* E2^ 

♦ ♦ 



198 DOS/VS Error Recovery and Recording Transients 



Chart PK. $$ABERR1 - Cata Cell EFF (Part 2 cf 4) 
Refer to Chart 02. 



***** 
♦pj ♦ 

♦ 64* 



N0SVC70 X 

«4c4t**A2********** 

* SET UP TO * 

* INTERFACE TO * 

* GETDAOR ♦ 

* * 
***************** 



*****Q2********** 

♦ * SVC 60 - * * 

♦ ♦ DETERMINE * * 

♦ VIRTUAL ADDR* ♦ 
OF SEEK 



♦ ♦ 



* * 



***************** 



*****Q2********** 



MOVE CCHH TO 
ERROR OUEUE 



***************** 



*****Q2 ********** 



***************** 



**** 
♦PJ * 

* K2 



♦ .X 



♦** X 
• *• 
E2 ♦. 
.* ♦. 
»* CHANNEL 
. DATA CHECK 
♦. 

♦ . .♦ 



*. YES 
.*.... 



*• 



* NO 



*****f2********** 



* SET MSG CODE * 
*FOR EQUIP CHECK* 



***************** 



*****^j^********** 

* * 

♦ SET MESSAGE ♦ 
.X* CODE FOR CHAN * 

♦ DATA CHECK * 

* ♦ 
***************** 



REFERENCES 
TO PKF4: 
PLC2t PL04 
PLG2, PLC4 
PLH4 

*♦*♦* 



EQUIPMENT 
CHECK 



X 

.*. 

H2 ♦. 

.♦ *. 

* NO RECORD 

FOUND 



.* RETRY ♦.NO 
.GREATER THAN .»... 
*. ONE •♦ 

*• •* 



X 

*♦**♦ 
*PM ♦ 
* Fl* 



****f:if********* 

♦ TAKE RETRY * 

♦ EXIT VIA * 

♦ SUPRET MACRO * 

m************** 



***** 
*PM * 
* A4* 



.PHASE4 X 

#*«##H3********** 



*. 



♦SETMSGMTR NAME 
* FOR PHASE 4 



***************** 



.* *. 

*. YES 
SEEK CHECK .*.... 
• . * • 

*. .* 


****J3 ********* 

* EXIT - SVC 5 

* i 
*************** 


*. .* X 
* NO ***** 




*PM * 
* A3* 

X * * 




***** * 




♦PL * 
♦ A3* 





Detail Charts 199 



Chart PL. $$AEERR1 - Data Cell ERF (Part 3 of 4) 
Refer to Chart 02. 



***** 

*PK ♦ 

* J2* 

♦ * 



f^EFFRENCES 

in PLRl: 

PM42, PMR? 

***** 

* * 

♦ ♦* 



NOPE 


TOl ,*. 


X 


B2 *. 


****B I********* 


, * ♦ 


♦TAKE CONT EXIT * 


YES .* INIT 


♦ VIA SUPRET *X.. 


♦. SELECTION 



***#***4t**^**** 



***** A3**** ***#** 

* SET MSG CODE ♦ 

* FOP ♦ 

* INTERVENTION * 

* REQUIRED * 

* * 
***************** 



B3 *. 
.* ♦, 

* 
INTERV REQ 

*, ,! 

*. .♦ 

*« .* 

♦ NO 



.* IS RETRY *, 

♦.GREATER THAN . 

♦ . 1 ,* 



***** 
*PK * 
♦ F4* 



*****C3^**^^***** 

» * 

* * 

♦ SET MSG CODE ♦ 

♦ ♦ 

* * 
***************** 



*****[}2 ********** 



***************** 



X 
***** 

♦ PM * 

♦ Fl* 

♦ * 



.♦ ♦. YES 

*. DATA CHECK .* . . . 



IS RETRY 


*, 


NO 


MULT OF 16 




♦ .« . . 


• «♦ 




*, ,* 




, 


♦ . .♦ 




X 


* YES 




**♦* 
»PK 
* F4 


X 




* * 


***** 




* 


*PH ♦ 




ROl 


♦ Fl* 






* * 






* 






MSGWTR 







***** 
♦PM ♦ 
♦ DI + 



*****P2 ********** 

* * 

♦ SET ^SG CODE ♦ 

♦ FOR CHAN *X 
♦CHAINING CHECK ♦ 

* * 
*********4t*4<4c**«]|( 



X 






X 


. ♦. 




KOI 


.*. 


G2 ♦. 






G3 *. 


.* * 






,* * 


IS RETRY 


♦ « 


NO 


.♦ MISSING 


MULT OF 16 




♦ . ... 


♦, AOOR MARK 




*' 




*. 


♦ . .♦ 






*. ,♦ 


*, ,* 




X 


♦ . .♦ 


♦ YES 




***** 

♦ PK * 

* F4^ 


♦ NO 


X 




* * 




***** 




* 


* 


*PM * 




ROl 




♦ Fl^ 






X 


♦ ♦ 






****«H3*****^ 


* 






* 


MSGWTR 






* 



SET MSG CODE 



* YES 


***** 




*PK ♦ 




* F4 + 




* * 




* 




t^Ol 




PHASE3 


H4 ♦. 


*****H 5 ********** 


♦ *, 


* * 


IS RETRY * 


. NO *SeT FETCH NAME ♦ 


COUNT ODD 


.* ..X* FOR PHASE 3 * 



***************** 



♦SET FETCH NAME 
♦ FOR PHASE 2 



***************** 



****«2 ********* 

* * 

♦ EXIT - SVC 5 ♦ 

*************** 



X 




.*. 




J3 *. 




♦ . 




COMMAND * 


. YES 


REJECT 


...... 


,* 




', .♦ 


, 


*. ,* 


X 


* NO 


♦ ***♦ 




*PM * 


. 


♦ A5^ 



. •♦ ♦. 




.♦ TRACK ♦ 


. NO 


♦. COND CHECK 


...... 


♦ . .♦ 




. ♦. .♦ 




♦ . .♦ 


X 


♦ YES 


***** 




*PM * 




♦ AI* 



***** 
*PK * 
♦ FA+ 



***************** 



♦***j5 *♦**♦♦♦** 

* * 

* EXIT - SVC 5 * 

* * 

***4c*********it:* 
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Chart PM. $$ABEFR1 - Data Cell EBF (Part 
Refer to Chart 02. 



^ cf ^y 



♦♦**♦ 

*PL ♦ 



***** 
*PK * 
* J2* 



♦♦♦*♦ 

♦ PL ♦ 

♦ J3* 



^**n'*h2********** 



.♦..-.....X* POST CCB 



itt^m************** 



.* COMMAND *, NO 
*. REJECT .*... 

*. .* 



B02 .♦. 

A4 *. 
• ♦ *. 
.* MISSING ♦. NO 
.,,%*, AOOR MARKER .*•.. 



. ♦**♦ XIGNORE 
. ♦PL ♦ 
..X^ Bl ♦ 



X 
♦♦♦♦♦ 
♦PK ♦ 

♦ H3^ 



m****Q2********** 



^^^'♦♦^ ♦♦♦♦♦♦♦♦♦♦♦♦ 



♦*♦♦ XIGNORE 
♦PL * 
,K* 81 ♦ 



.* FILE *. 

*. .♦ 



CHANNEL 
CHAINING 

. CHECK 



. YES 
.*• ... 



♦♦♦*♦ 
♦PL * 
♦ F2^ 



4t^«:^^C 2 ♦♦♦♦♦♦♦♦♦♦ 

* ♦ 

* SET HSG CODE ♦ 

X* FOR FILE ♦ 

* PROTECT ♦ 

* ♦ 

^(^^^^^(♦♦♦♦♦♦♦♦♦♦4c^ 



$i1lct**Q2********** 

* ♦ 
♦TURN OFF RETRY ♦ 

♦ AND IGNORE ♦ 

♦ FLAGS ♦ 

* ♦ 
m**** ****** ****** 



^t^^tif^cQ'^iHt******** 

♦ * 

♦ SET MSG CODE ♦ 

♦ FOR COMMAND ♦ 

♦ REJECT ♦ 

♦ ♦ 
if^t^if ******* ****** 



♦ ♦ 

♦TURN OFF RETRY ♦ 

♦ AND IGNORE ♦ 

♦ FLAGS ♦ 

♦ ♦ 
^^^(♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



^^♦♦♦B4.^^^^*^^^^^ 

♦ ♦ 

♦ SET MSG CODE ♦ 

♦ FOR MISSING * 

♦ ADOR MARKER ♦ 

♦ ♦ 
mm^^infm^iti^m******* 



* ****c tk********** 



♦TURN ON TYPE- 

* MSG FLAG 



iiHf4tiHitt^*m********* 



^♦♦♦*A5 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦TURN OFF RETRY ♦ 

♦ AND IGNORE ♦ 

♦ FLAGS ♦ 

♦ ♦ 
♦♦♦*^«^4E^4c«i**4(4[*« 



X 

• ♦. 



!tt****^ l**m******* 

* * 

♦ SET MSG CODE ♦ 



^^*:ilc*t *********** 

. !?EFEPFMCE*^ 
*♦** , TO f^MFi: 

♦ ♦ » PKF3t PLD? 

♦ ♦ ♦.X. PL04, PLC? 



♦*♦* 
NSGWTR X 

^(♦♦♦♦F !♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦C5 ♦♦♦♦*♦♦♦♦♦ 

♦ ♦ 

♦ SET MSG CODE ♦ 

♦ FOR FILE * 

♦ PROTECT ♦ 

♦ ♦ 
*lfiltm*** ********** 



I|c4c4c4c^^^^^^^^^^^^« 



♦♦♦♦G !♦♦♦♦♦♦♦♦♦ 

* ♦ 

* EXIT - SVC 5 ♦ 

* ♦ 

itt********ifilfi*:*:ii^f: 
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Chart PN. $$AEERR2 ~ Eata Cell ERF CPart 1 of 2> 
Refer to Chart 02. 



* $$ABERR2 * 

♦ * 



«;4t4E*:«B l'l'***'<'**4' =*<'*' 



4:4t4(#^4<««4t4!«:4c4i*s(|i4i# 



*t***C I********** 



4c4c 4t>t(4:4t «*4e*4c4c4c*#*4> 



♦ ♦ 

♦ LOAD ADOR OF * 
♦ERR BLOCK FROM ♦ 

♦ SYSCOM * 

♦ ♦ 

♦ 4t 4{ 9K « * « 4t 4r 3K « #3^ « « !^ « 



♦ * 

♦ LOAD ADDR IN ♦ 

♦ USER CCB ♦ 



«*«4:#4(4t4[4»«e4c4'«»4<4<«: 



4:4c«««p Iitt4c#4c4:4c«^«4c 



#«4c!4(«4c4c4i«)(c4c4E4ct«4t« 



He 4c 4c 4c4<Gl ♦♦♦♦♦*♦'♦'('♦ 



4<4c4:«4<*4i4c«* **♦«♦♦♦ 



4c4c4c4c««4(4e4c4c4c4c4c4!4<4c4t 



.♦VALID CHAN 
Q PTR 
♦ . 



*♦♦♦ 

* ♦ 

* C4 * 

* * 
♦ ♦♦♦ 



.♦ I/O ♦. NO 
♦, COMPLETE ^♦ee* 
*. .♦ 



♦STNSM - DISABLE^ 

♦ FOR I/O ♦ 
» INTERRUPTS * 

♦ * 



4c**4t«C5 ♦♦*♦**♦♦*♦ 



««♦♦*♦♦♦♦♦♦♦♦♦*♦♦ 



♦♦♦♦J2 *♦**♦♦**♦ 

♦ TAKE IGNORE * 
.X+EXIT IN SUPRET * 

♦ ♦ 



«#4t«*E3*^**#^*^ ♦♦ 



iHit'********il'*****J^ 



«:**««F3 ♦♦♦♦♦♦♦♦♦♦ 

* DETERMINE LUB * 

* NUMBER * 



^[^♦^^(♦♦♦♦♦♦♦♦♦♦♦^ 



«:#4c*^G3 ♦*♦♦♦♦♦♦♦♦ 



♦SET LUB NUMBER ♦ 
♦ IN ERP'S CCB ♦ 



4c**: ^^♦♦♦^^[♦♦♦♦♦♦^ 



*;****H3^« ♦♦♦♦♦♦ ♦♦ 

♦ ♦ 
♦SET UP PTK AND ♦ 
♦GET CCB AODR !«♦ 

♦ REG I ♦ 

♦ ♦ 



♦♦♦♦♦J3 ♦♦♦♦♦♦♦♦♦* 

♦ ♦ 
♦STOSM - ENABLE ♦ 

♦ FOR I/O ♦ 

♦ INTERRUPTS ♦ 

♦ * 
4c*)|>**4c****4c4c****4c 



**4c**K3 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ READ HA AND ♦ 

♦ RO - SVC 15 ♦ 

♦ SYSIO ♦ 

♦ ♦ 



• ♦. 

E4 *, 

,* ♦, 
.♦UNIT CK ON * 
. RD HA RO 
♦ . .* 

♦• .♦ 



♦ . 



♦ NO 



F4 ♦. 

.* ♦« 
.♦ ALTERNATE ♦. NO 

TRACK •♦.... 

♦ . .♦ • 



G4 ♦. 
♦ ♦, 

HEAD 19 

♦. .♦* 

♦ . .♦ 
♦ YES 



X 

***** 
*pp ♦ 
♦ 82^ 



♦***♦ 
*pp * 
♦ A2^ 



***************** 



*****P5 ********** 

♦ ♦ 

♦ * 
♦SET MESSAGE N0,+ 

♦ ♦ 

♦ * 

***************** 



****G5 ********* 

* * 

* EXIT - SVC 5 ♦ 

* * 

*************** 



*****H4^^^^^^^^^^ 



***************** 



****J4********* 
♦TAKE CONT EXIT ♦ 

♦ VIA SUPRET ♦ 

♦ ♦ 

*************** 



202 DOS/vs Error Recc^erY and Pecording Transients 



Chart PP, $$ABERR2 - Data Cell ERP (Part 2 cf 2) 
Refer to Chart 02. 



♦♦♦♦♦ 

♦PN ♦ 



* * 

* A3 * 

* * 
♦♦♦* 



♦ADD I TO HO IN 

♦ RO RO CCM 



«#4'«t4'A3*4i4r4t4e4'**** 



PUT SEEK CCH 
ADDR IN CCB 



♦ ^^C*^************! 



♦♦*♦ 
*PN ♦ 
* F4 ♦.X 



*4c«*«B2 ♦4i*4c4>***** 



COMPUTE NEW 
SEEK ADDR 



^^^^itt*******^***^' 



* ♦ 

* GET ADDR OF ♦ 

* LAST CCW * 

* EXECUTED ♦ 

* * 



♦♦♦♦♦02 ♦♦**♦♦♦♦*: 



SUBTRACT 8 



4c:((4(#4i « « «# :)c4c4i# **«] 



:tiilt1fif::l^^2 ********** 

* * 

* * 

♦PUT IN TIC CCW ♦ 

* * 

* ♦ 

i^nnfrn************* 



FILE 
PROTECT 
OPTION 



«4e**«G2 ♦♦♦♦♦♦♦♦♦♦ 



4t««4c#*4>****4>4:«4(** 



4i4c4i**#3|i*«*«4(4c«*^* 



B3 



», 



♦ . 

NO .♦ STORAGE ♦ 
,.•♦. PROTECT 

♦ . FEATURE .♦ 
♦ . .♦ 

♦ • .♦ 
♦ YES 



«*#«*C3*4>^:»^***^* 



lli:^:ti^iitiltc*nf********* 



♦TAKE RETRY EXIT^ 

♦ VIA SUPRET ♦ 

* * 



t**itt^iH2********** 



♦GET ADDR OF PUB^ 



4e«4i4i4(4i#4c4i**)|c4c««:*4' 



in)iiiiinifj2********** 



* GET CHAN UNIT ♦ 

♦ OF ERR DEVICE * 



^1tHfr^li^^^t***^'***m*i|^ 







X 




TEST 




.♦. 
K2 ♦. 








* *, 




YES . 


*' 


CHANNEL 


* 


...♦, 




BUSY 






♦ 


♦ . .♦' 

♦ . .♦ 

♦ NO 

X 
♦*♦♦ 

♦ * 

♦ A3 ♦ 

♦ ♦ 
**** 


* 
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Chart PQ. $$AEERR3 - Eata Cell ERF 
Refer to Chart 02, 



(Part 2 of 2) 



♦♦'•'♦A I*'*'******* 

* * 

* $$A8ERR3 * 

* * 



*it***Bl********** 



*«*«4t4c*4c4>«*4i«4i»3|i« 



«)tt*4[4eC 14i*4c ♦♦*«*♦♦ 



LOAD ADOR OF 
COM REG 



-^t***1f***'¥******* 



♦ ♦ 

♦ LOAD ADDR OF * 
♦ERR BLOCK FROM ♦ 

♦ SYSCOM * 

« ♦ 



t'tmm'tiBl********** 



* A3 * 

* * 



* PUT USER DISK * 

* ADDR IN SEEK ♦ 

* CCW'S ♦ 

* ♦ 



B050 



.* IS LOOP *• NO 
♦• CNT = •♦... 

♦ . .* 
♦ . ,* 



.* IS RETRY ♦. NO 
♦. MULT OF 32 .*... 



•* 
YES 



♦ PUT USER SEEK ♦ 

♦ ADDR IN SEEK ♦ 

♦ CCW ♦ 

♦ « 



itJii^^cii'Ea ♦♦♦*♦♦♦♦#♦ 



* NO-OP SECOND 

* SEEK CCW 



i^f^'^^tiiilt^t********* 



♦lOPTN PR* 

* ISSUE r/o * 

* SUBROUTINE * 

* 4e 



♦ *♦* 

* * 

* A3 ♦ 

* * 



«*«*«**#*♦♦♦*♦#♦♦ 



♦lORTN PR* 

* ISSUE 1/0 * 

* SUBROUTINE * 

* * 



SAVE HA FOR 
MS6 WRITER 



*4>«4c************* 



^cmt^nttnii*******^** 



E062 



4c # *# * 4c 4c «c4t *« « 4t4< ♦ ♦ * 



4t*4c**G3 **** ♦*♦♦♦* 



♦SUBTRACT 1 FROM* 
* STRIP NO. * 



4<4i4c 4c4c *4>*** ♦ ♦♦♦^ * ♦ 



X 
.*« 

HI *• 



4c4i4c4(4tH 2 ♦*♦♦*♦♦*** 



4c4c4c**H3 ♦**♦**♦♦♦♦ 



4c4c4<4'4>J I*«4>**4c4c4c4c« 



SET LOOP 
COUNTER TO 9 



4c4(4i4c4:4c4c4c********* 

X 
4'4i4<* 

* ♦ 

* A3 * 

* * 
*♦♦* 



4c4c******#*******4c 



♦*** J2 ♦♦♦♦4t**** 

♦ 4> 

♦ EXIT - SVC 5 ♦ 

♦ * 

4t4c4c:^4>****4c4c4c4i4c4c 



4c4i4c4c4i4c****4c***4:** 



*4c4c 41* J3 **♦*♦**♦♦♦ 



PUT SEEK CCW 

ADDR IN CC8 



4i4c«4t4c4'***** ♦ 4<** 4c4< 



4c4:*>|c4cK3***^^****^ 

♦lORTN PR+ 

4c-4t-4i-4c-»-4c -4c-* -♦ 

♦ ISSUE I/O *. 

* SUBROUTINE ♦ 

4c 4c 

4c 4c4c4c4c4c4c4c4c 4c4c 4c4c4r4c * 4c 



4c4c4c*K4^^****^^* 

♦TAKE RETRY EXIT* 

X* VIA SUPRET * 

4c * 

4c4c4c4c4'4c4c4c4c4c4c4e4c4c4c 
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Chart PR. $$AEERR3 - Eata Cell ERP (Part 2 cf 2) 
Refer to Chart 02. 



* * 

♦ lORTN * 



IDRTN 



SET UP PIK 



^^c^^^^^tfc^i^^c^^ic^i^c* 



#4'*)*: 4cC !♦♦«♦♦♦♦♦♦♦ 



GET PUB ENTRY 
A DOR 



m**i^*C^*******ilt1f* 



SVC 7 
«AIT 



^HfHt^Hf^tm********** 



01 *. 

.* ♦• 

.*VALID CHAN *. 

f, PTR .♦. 



♦ TAKE IGNORE ♦ 
.X*EXIT VIA SUPRET* 



» * 

* E3 * 

* ♦ 

X 

* ♦ 

♦CALCULATE LUBID* 

* ADDR ♦ 

* * 
«4c*4t4c4i4c*4i *♦***♦** 



3|c*««*p3#4>#4i«**4[*4t 



^^^^[♦♦♦♦♦♦♦♦♦♦'K** 



♦MOVE LUB NUMBERS 
♦TO CC8 AND PUT ♦ 

♦ CCB ADDR IN ♦ 

♦ REG I ♦ 

♦ ♦ 
*#*««♦♦**♦♦♦♦**♦♦ 



4c)|c*4:*H3 ♦♦♦♦♦*♦♦♦♦ 

♦ ♦ 

♦STOSH - ENABLE * 

♦ FOR I/O ♦ 

♦ INTERRUPTS ♦ 

♦ * 



4c4c*** J3 *4c**4c:^ 4t4c 4c4t 



*4t«*4c****4t4:4:**«** 



K3 ♦. 
.♦ ♦. 

.♦ 1^0 ♦. YES 
♦ . COMPLETE *.♦.... 



m*min******m***i^** 



♦ ♦ 
♦STNSH - DISABLED 

♦ FOR I/O ♦ 

♦ INTERRUPTS ♦ 

♦ * 



.♦ DISASTER ♦. YES 
*, ERROR .♦••.. 



♦SET FETCH NAME 
.X^FOR MS6 WRITER 



^^^((♦^^♦♦♦♦♦♦♦♦^ 

• RETURN ♦ 

♦ ♦ 



mm**m*********mmm 



«4c4t4t4cF 5 ♦♦♦♦♦♦♦♦♦,♦ 



♦ SET MSG CODE 



mm***iit^im***m***** 



♦ EXIT - SVC 5 ♦ 



♦ C4 ♦ 

* * 
♦♦♦* 
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Chart PS, $$ABERR4 - Data Cell ERF (Part 1 cf 3) 
Refer to Chart 02c 



* * 

* A2 ♦ 

* * 
*♦♦♦ 



♦♦** 

* * 

* A5 ♦ 

* * 



* $$ABERR4 * 



**«*«B1********** 



EG A DOR 



4e4[4c«**«4<**4>**««*4> 



■ilt****ci******'^*'^* 



GET AOOR DF 
CCB 



^t****^*!*^^^^^**** 



4(««j|r*0 X ♦♦♦♦«'*♦♦>•«•' 



GET ADDR OF 
SYSCOM 



4c)|i4>*i«i4i««t4i«*4i««««i 



♦ ♦ 
*GET ADDR OF ERRf 

♦ BLOCK FROM * 

* SYSCOM * 

* * 



m**tlf*fl******!**** 



RELOCATE ADDR 
CONSTANTS 



*m*******0*t'***** 



*4c**4>Gl*>i>****4>4<4t4t 



♦MOVE BBCCHH TO 
* SEEK CCH 



^t^C***!**:******!!!!*** 



*#4e4i*A2 ********** 



ii,m*************** 



*^m**B2********** 

* * 

* MOVE ADDR OF * 
♦SEEK, RD HA CCW^ 

♦ TO CCB ♦ 

♦ * 

**l^***1tL*******^** 



*****C2********** 
♦lORTN ?U* 

♦ ISSUE I/O * 

♦ SUBROUTINE * 

♦ ♦ 

********iti***'^t**** 



♦SET TRACK ADDR ♦ 
♦ TO 19 ♦ 



***************** 



*iinit**^2********** 

* * 

* SET MS6 CODE ♦ 

* FOR UNINIT, ♦ 

* STRIP ♦ 

* ♦ 
********it,******** 



**4i*ittf:2********** 
♦TORTN PU+ 

♦ ISSUE I/O ♦ 

♦ SUBROUTINE ♦ 

♦ * 



G2 ♦. 
.♦ ♦. 
.♦ DISASTER ♦ 
*. ERR ON EXCP 



BALMSG X 

4i*4c4c4tA5 ********** 



SET BALLAST 
CELL MSG 



4(*4t**««:«*** ***«♦* 



)ti4t4>*«B54>4c***4'*)K«4t 



* SET INT REQ'D ♦ 



i^im*** ****** ****** 



* SET UP SENSE ♦ 

♦ CCH AND SET ♦ 

♦ SUI ♦ 

* * 
iii****ifiic****iiim**** 



4i4t**«05 ***liiiit**** 

♦ lORTN Pii* 

♦ ISSUE I/O ♦ 

♦ ROUTINE * 

♦ * 



REFERENCES 
TO PSe5: 
PTB4, PTDl 
OTJ3 



♦ G3 ♦ 

* * 
**** 


• 


X 

.*. 

G3 *. 

.♦ ♦. 

IS i 

RETRY GT 15 


* YES 



REFEOENCeS 
TO PSG4: 
PTCl, PTG3 
PTG4 

***** 



♦TAKE RETRY EXIT^ 
.X^ VIA SUPRET ♦ 

* ♦ 

4c4c4< ^*^Ltt******** 



«*. 


BALSTCHK X 


HI ♦. 




m****H2********** 


.♦ ♦. 




* * 


.♦ NO RECORD ♦, 


NO 


♦ SET SUBCELL ♦ 


♦. FOUND 


♦ . ••• 


♦ TO ♦ 


♦• .♦ 




* * 


♦ . .♦ 




* * 


♦ . .♦ 


X 


***************** 


♦ YES 


***** 
♦PT ♦ 


* 




♦ A4^ 






* * 

* 


I 




SOI 


, 






X 


Jl ♦. 




4:*4c«4i J2 ********** 


»♦ ♦« 




♦lORTN PU^ 


.♦ MISS ADDR ♦, 


NO 


♦_♦_*_*_♦_♦_*_♦_* 


♦. MARKER 


...... 


♦ ISSUE I/O ♦ 


*. .* 




♦ SUBROUTINE ♦ 


♦ . .♦ 




* * 


♦ . .♦ 


X 


***************** 


♦ YES 


***** 






♦PT ♦ 






♦ A2^ 






♦ ♦ 






* 




X 


NOl 


X 


.♦. 




.♦. 


Kl ♦. 




K2 ♦. 


.♦ ♦, 




.♦ ♦, 


LOW .♦COMP RETRY ♦ 


. HIGH 


.♦ DISASTER ♦. 


...*. CNT TO 4 


.*. ... 


*. ERR ON EXCP .» 


*• .♦ 




♦ . ,♦ 


*, .» 


, 


*. .♦ 


X ♦. .♦ 


X 


♦. .♦ 


♦♦♦♦♦ ♦ EQ 


**♦♦ 


♦ YES 


♦ PT ♦ 


♦ * 




♦ Al^ A06 


♦ G3 ♦ 




♦ * X 


♦ * 


X 


* ♦♦♦* 


*♦** 


**** 


* * 




* * 


♦ A2 ♦ 




♦ A5 ♦ 


* * 




* * 


**** 




**** 



SET MSG CODE 
FOR NRF + MAM 



***************** 



**^**^^********** 



♦SET FETCH NAME 
..X^FOR MSG WRITER 



***************** 



****f IS ********* 

* * 

* EXIT - SVC 5 ♦ 

* ♦ 
** ************* 
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Chart PT. $$AEERR4 - Data Cell ERF (Part 2 of 3) 
Refer to Chart 02. 



♦ PS ♦ 

♦ Kl* 



««♦♦* 
*PS * 

♦ Jl* 



♦PS ♦ 
♦ Hl^ 



♦ ♦ 

♦ PUT ADOR OF ♦ 

♦ RESTORE STRIP * 

♦ CCW IN CCB * 

♦ ♦ 



*#4(**B1 *♦♦«♦♦««♦♦ 

♦lORTN PU* 

♦-♦-*-*-*-*-♦-♦-♦ 

♦ ISSUE I/O ♦ 

♦ SUBROUTINE ♦ 

♦ ♦ 



*4i«:4t*A2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ MOVE ADOR OF ♦ 

♦ SEEKt RHA CCW ♦ 

♦ TO CCB ♦ 

♦ ♦ 



♦CHANGE RD HA TO^ 

♦ RD RO AND CNT ♦ 

♦ TO 4 ♦ 

♦ ♦ 



SOI . X 

4E«*4t*A ^♦♦♦♦♦♦♦♦♦^ 

♦ ♦ 

♦ SET MSG CODE ♦ 
• X^FOR SEEK CHECK ♦ 



m*******mmm***m** 



CALLMSG .♦. 




X 


CI ♦. 




«4c**«c 2 ♦♦♦♦♦♦♦♦♦♦ 


.♦ ♦. 




♦lORTN PU^ 


.♦ DISASTER ♦ 


. NO 


♦_♦-»-.»_♦-♦-*_#-.♦ 


♦• ERR ON EXCP 


•♦..•• 


♦ ISSUE I/O ♦ 


♦ . ,♦ 




♦ SUBROUTINE ♦ 


*• .♦ 




♦ ♦ 


♦ • .* 


X 


*4t4i*««4«4r««4i**4i4<^ 


♦ YES 

* 


♦♦♦♦♦ 
♦PS ♦ 

vr 

♦ 






EXITRTN 


X 


HSGWTR X 




.♦. 


^^'♦♦♦Dl^^^^^^^^^^ 


02 ♦. 


♦ 


♦ 


.♦ ♦. 


♦SET ERROR CODE 


♦ YES .♦ ♦• 


♦ - ERR ON 


♦X...... 


..♦. ERR ON I/O .♦ 



itt0m***m**itm**itf**t 



♦♦♦♦♦ 
♦PS ♦ 
♦ B5* 



E2 

.♦ 
.♦ HA = 



♦ . .♦ 
♦ NO 



X 

*♦♦♦♦ 
♦PS ♦ 
♦ £?♦ 



• ♦ 
.♦ 
YES 



**:«:#«{: 2 ♦♦♦♦♦♦♦♦♦* 



♦ GET CCB ADOR 



m***mt^********* 



POINT CCB TO 
SEEK CCH 



mm******mm*m***m* 



* **m*o^** ♦♦♦♦♦♦♦♦ 



♦MOVE BB TO SEEK^ 
♦ AODR I ♦ 



^^^^^■♦♦♦♦♦♦♦♦♦♦♦^ 



♦lORTN PU^ 

♦ ISSUE I/O ♦ 

♦ SUBROUTINE ♦ 

♦ * 

4i*4c« ♦♦♦♦♦♦♦♦♦♦♦*♦ 



*4c4t«*F4^^^^^^^^^^ 



♦CHANGE CCHH FOR^ 
♦ 2ND SEEK ♦ 



^[^^^^^^♦♦♦♦♦♦♦♦♦4c« 



.♦USER WANTS 
*. NRF RETRY 

*. . 



NRF LIMIT ♦. NO 
REACHED .♦... 



*♦♦♦♦ 
*PS ♦ 
♦ G4+ 



4c««4<*H2 ♦♦♦♦♦♦♦♦♦♦ 



4c4t**#H3 ♦♦♦♦♦♦♦♦♦♦ 



*4c4c««*«4i*«4c*4<^«4e4c 



♦lORTN PU^ 

♦_*_♦_♦«♦-♦-.*-♦-* 

♦ ISSUE I/O * 

♦ SUBROTUINE ♦ 

♦ * 
^'♦^(♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦*♦♦«: 

♦PS ♦ 

♦ G4^ 



^li^il^t* ************ 



itiii:1t*J2 ********* 
♦TAKE CONT EXIT ♦ 

♦ VIA SUPRET ♦ 

* ♦ 



*^if*****:tt^Liti:lf***** 



:tt*:***J-i********** 

* * 

* SET MSG CODE ♦ 

* FOR NO REC * 

* FOUND ♦ 

* ♦ 
ilf^tt*************** 



***** 

♦ PS ♦ 

♦ E5^ 
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Chart PU. $$ABERR4 - Data Cell ERF 
Refer to Chart 02. 



(Part 3 cf 3) 



* * 

* lORTN * 



ilt1Hlit:*Hl*******1lc*t* 



X 

.*. 
CI *. 

.* ♦• 

.♦VALID CHAN », 
*. Q PTR 

*, ,♦ 



♦ *♦* 

* C^ ♦ 

* * 

♦ ♦♦* 



X 
.♦. 



^^Ht*C2 ********* 

* TAKE IGNORE * 
.X*EXIT VIA SUPRET* 

♦ * 



* YES 



itiiifimiiUC'i' ********** 



*«#4c4c*4c*«:4c4:4c4c«4c4c4c 



* E3 ♦ 

♦ ♦ 
***♦ 



♦ * 

♦STNSM ~ DISABLE* 

♦ FOR I/O * 

♦ INTERRUPTS * 
» * 

)|e4c4e4c4c«4c«*4c4c)|c*4!4c4>« 



itit***E3********** 



♦ CALCULATE LUBID* 



iti^ti^t************* 



:^t4!itfiifmf3********** 



DETERMINE LUB 

NUMBER 



4t4ii|c4t«4c4t*4c)|c4c4»tc4c**4c 



4c«4>4!4cG 3 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ PUT LUB * 

♦ NUMBER * 

♦ IN CCB * 

♦ ♦ 

4c4c4c4c4c«4i4c4t«4c4c4i4c4c4c* 



4c 4c)|c*4[H3 *♦♦♦♦♦♦*♦♦ 

♦ * 

♦SET UP PIK AND ♦ 
♦PUT ADDR OF CCB^ 

♦ IN REG I ♦ 

♦ ♦ 

4c4c4c^^^«^***^^*^^^ 



4c4c^*^J3^4e^^^^^*4:4c 

♦ ♦ 

♦STOSM - ENABLE ♦ 

♦ FOR I/O ♦ 

♦ INTERRUPTS ♦ 

♦ 4c 
4c4:4c4c4c^«^#^^^^^^4c4c 



4c4c4:^*K3^*^^*^*«^^ 



4!4c4c}»4c4c«^4>^^^^4c^ 4=4' 



E4 ♦. 
• ♦ ♦. 

* DISASTER 

ERROR 

♦ . 

♦ , ,4c 

♦ « .♦ 

♦ NO 



4c4c4:^F4^*******« 

♦ ♦ 

♦ RETURN +4 * 

♦ ♦• 

4c 4:#^^4( ♦♦♦♦♦♦♦♦♦ 



♦♦♦♦E5*****++** 

♦ * 

* RETURN ♦ 

4i 4e 

4c4c4c«4e4c««^4c«^4<«4' 
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Chart PV. $$AEEFR5 - Eata Cell ERE 



* A3 ♦ 

♦ ♦ 
»♦♦♦ 



* « 

♦♦♦♦ 



****A2 ♦*♦****** 
♦ $SA8ERR5 ♦ 



itit*:lf:lfQ2 ********** 



♦LOAD ADOR OF BG* 
♦ COMREG ♦ 



4t**4c4i4>*4i****«4i««* 



:ii«***C 2********** 



*LOAD ERR BLOCK * 
* ADDR ♦ 



**«4:4t««««*3|c4(4t*4E** 



^ft*:iii*02********** 



4i4i4i*««]([>4i#^##4c*4c4c* 



♦♦♦♦*E2 ♦♦♦***♦♦** 
* * 

♦SET MSG CODE - ♦ 
♦NO ADDR MARKER ♦ 



««#4'*4'#««**«4')|<«4<:4: 



.♦ ♦.NO 

♦. DATA CHECK .♦... 



4t4c«*«A3*4'*4t^4c***4[ 



TURN ON BIT 
IN CCB 



ift^t ******** *****if 



♦ ♦ 

♦ SET HSG CODE ♦ 
♦FOR DATA CK ON ♦ 

♦ COUNT ♦ 

♦ ♦ 



♦♦♦♦ 
MSGWTR X 

^(■^fflf4ittC3********** 

♦SET FETCH NAME ♦ 
♦ FOR MS6 MRITER ♦ 



^LHt1f^ittitti)itt**t:*****t^ 



♦ ♦ 

♦ EXIT - SVC 5 ♦ 

♦ ♦ 



♦. .♦ 




^ 


♦. .♦ 




X 


♦ YES 




♦ > 

♦ C3 ' 

* 
♦*** 














G2 ♦. 






♦ ♦, 






USER WANT 


♦ , 




DATA CK 


.♦ 





♦ POST DATA 

♦ CHECK IN CCB 



ift*********m***** 



4i**4E*g4]^*4t4i4c«4i4'4t4< 



GET ADDR OF 
LAST CCW 



^^■♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



*«4r4t«C4^ ♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ ♦ 

♦ SUBTRACT 8 ♦ 

♦ ♦ 

♦ ♦ 



.♦• 

04 ♦. 

•♦ ♦. 

.♦ WRITE ♦. 
COMMAND 

♦ • •♦ 



NO .♦ USER WANT 
. ..♦. VERIFY 



:(Et*«4cP4***4>4i**4i** 



♦ TURN ON PASS ♦ 
♦BACK BIT IN CCB^ 



^t*************** 



♦ C3 ♦ 

* ♦ 
♦*♦* 



:(c*4( 4c «H2 ♦♦♦♦♦♦♦♦♦♦ 



:^4c*«* *♦«♦*♦♦♦♦♦♦* 



4:#*>|c4( J2 ♦♦♦♦**♦♦** 



♦ SET MSG CODE ♦ 
♦FOP DATA CHECK ♦ 



^Hi:^i)it**^********** ^ 



.♦ ♦. 

.DATA CHECK ON. YES 
♦. COUNT ...... 



G4 ♦. 

.♦ ♦. 

.♦ SLI AND ♦. 

.SKIP BITS ON . 

♦ . .♦ 



* ♦ 
♦TURN ON VERIFY ♦ 

♦ ERR IN CCB ♦ 



#:»:4c4'«#4<«4c**4(**4c4i4t 



t****J^********** 



SET MSG CODE 
TO VERIFY ERR 



X 

♦ ♦ 

♦ C3 ♦ 

♦ ♦ 
*♦♦* 



.♦ 


, 


♦. .♦ 


X 


♦ NO 


**»* 




♦ 




♦ A3 


X 


♦ J 


*♦♦♦ 


♦**♦ 


♦ * 




♦ A4 ♦ 




♦ ♦ 




*♦*♦ 
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Chart PX, $$ABERR7 - Diskette I/C Unit ERF (Fart 1 cf 3) 
Refer to Chart 02. 



* $$ABERR7 ♦ 

* * 



REFERENCES 
TO PXB4: 
PYC3, Py}(.Z 



.* INTERFACE *. YES 
*. AND CHANNEL •♦.... 
*. CONTROL .* 
♦.DECK .* 



,♦ *. 
.♦ CHANNEL ♦» YES 
*. DATA CHECK .*.... 



* SET UNDETERM 
.X* ERROR MESSAGE 



*. .* 
* NO 



♦ ^t^E^^I**^****^'*** 



* * 

* SET CHANNEL • 
X* DATA CHECK *. 

♦ MESSAGE X'28» ♦ 

♦ * 



♦ SET OFF RETRY ♦ 
X* AND IGNORE ♦. 

♦ FLAGS X»EB» * 

♦ ♦ 



FETCH X 

***«*B44>*<M' ♦*♦♦♦* 

♦ SET PHASE ♦ 

♦ NAME TO ♦ 
...X^tfABERRl RESET ♦. 

♦ RETRY COUNTER ♦ 

♦ ♦ 



♦ SVC 5 ♦ 
,X^ $$ABERRl ♦ 

♦ CHART OA ♦ 



Dl 


♦ . 






»* 


* 










« 


. NO 


UNIT 


CHECK 




.♦. . 



REFERENCES 
TO PXE2t 
PYAl, PYA5 

♦♦♦♦♦ 

♦ ♦ 

♦ ♦♦ 



.* . 




NOTUSED X 


El V, 






3ic*4i#4iE ^ ♦♦♦♦♦♦♦♦♦♦ 


.♦ SENSE ♦. 






♦ ♦ 


* BYTE ♦ 


. YES 




xi ^E^^gg^sig" : 


UNUSED BITS 


.♦. ••*« • 




*. 5,6,7 .♦ 
♦. ON .♦ 






♦ X»19» ♦ 






♦ ♦ 


♦ . .♦ 






*«*#«4< ♦♦♦♦♦♦♦♦♦♦♦ 


♦ NO 


X 
♦♦♦* 






* 


* 




• 


♦ E2 


♦ 






♦ 


* 




X 


**** 





Fl *. 
.♦ EQUIP ♦. 
* CHECK SNS 
BYTE 0, 

*. BIT 3 . 



♦♦♦♦*F2*******^^« 

♦ ♦ 

♦ SET EQUIP ♦ 

X^ CHECK MSG ♦.•.. 

♦ X»10' ♦ 

♦ ♦ . 

♦♦♦♦♦ 

♦ PY ♦ 

♦ A1 + 



♦ ♦ 

♦ SET OFF RETRY ♦ 
X^ AND IGNORE ♦ 

♦ FLAGS X»EB» ♦ 

♦ ♦ 
**4t*4i«*4i*«t4> ♦♦♦♦♦♦ 



X 

♦♦♦♦♦ 

♦ F4^ 



GI ♦. 
.♦INTERV ♦. 
.♦ REQUIRED 
. SNS BYTE 0, 
♦. BIT 1 . 



4c4'^^^G2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET INTERV ♦ 

♦ REQUIRED ♦ 
X^ MESSAGE ♦. 

♦ X»08» ♦ 

♦ ♦ 
**Hfm** *********** 



G3 ♦. 
•♦MOTION ♦. 
.♦MALFUNCTION^. YES 
.X^, SNS BYTE 1 ...... 

♦ . BIT 2 .♦ 
♦. ON .♦ 
♦ , ,♦ 
♦ NO 



**Qt^******* 

* * 
SET OBR 
WANTED 
FLAG ON 

♦ ♦ 
*********** 



HI *. 

.* BUS ♦. 

.* OUT CHECK 

. SNS BYTE 0, 

*. BIT 2 . 

*« .♦ 



*****^2 ********** 



***************** 



4C4IH3 ♦♦♦♦♦♦♦ 

* * 
SET 08R 

WANTED FLAG 
ON 

♦ ♦ 
*********** 



X 
♦♦♦♦♦ 
♦PY ♦ 
♦ Al^ 



.* *. 
.♦DATA CHECK ♦ 
. SNS BYTE Of 

*» BIT 4 .♦ 



*****J2**** ****** 

* * 

♦ SET DATA ♦ 
X+ CHECK MSG ♦. 

* xni« ♦ 

♦ ♦ 
***************** 



***** 

♦ PY ♦ 

♦ Al^ 



x 

.*. 
Kl *. 

^•♦command*- 

* "EJECT 

SMS BYTE 0, 
*• BIT ^. 



*. 



* NO 



*****\(^2 ********** 

* * 
^* SET COMMAND ♦ 

-^* REJECT MSG ♦. 

* X'18» ♦ 

* * 

^jf^m************** 



*****f^2********** 

* * 

* SET ALLOM * 
X* IGNORE FLAG ♦ 

♦ ON X»IO« ♦ 

♦ ♦ 



* * 

* E2 * 

* * 
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chart PY. $$AEERR7 - Diskette I/C Unit ERP (Part 2 of 3) 
Refer to Chart 02. 



♦*♦** REFERENCES 

* ♦to PYAl: 

* ** PXF2, PXG4 
* * PXH3 



BYTEONE .♦. 

Al *. 
.♦ SENSE ♦. 
.♦ BYTE 1 ♦. NO 
*. UNUSED BITS •♦.•• 
♦ . 5.6,7 .* 
♦. ON •♦ 
*• .<!> 
♦ YES 



X 
***** 
♦PX ♦ 
♦ E2* 



A2 ♦. 

.♦ *. 

.♦ PERM *. NO 

.X*. ERROR BIT .*... 

♦• ON .♦ 

♦ . .♦ 

♦. .♦ 

♦ YES 



X 
***** 
*PZ * 
♦ A2* 

* * 



X 

***** 
♦PX ♦ 
♦ B4« 



.♦ RETRY *. NO 
• X*. AFTER INTERV .♦... 
*. BIT 3 .* 
*. ON .* 



*****QJ**** ****** 

* * 

* SET ON INTV * 
*REO»D AND RETRY* 

* FLAGS X»44« ♦ 

* * 
***************** 



X 

.*. 

C3 *. 

.♦ OBR *. 

NO .♦ RECORD ♦. 

.«.♦. WANTED .♦ 



.♦. 

A4 *. 
.* ♦. 
.♦AUTO RETRY 
.X». BIT I ON 



♦ SPEC RECO ♦ 


NO 


TRANS BIT 


♦. . .. 


*. 4 ON .* 


, 


♦ . .* 




♦ . .♦ 


X 


* YES 


♦ ♦♦♦♦ 




♦ PX ♦ 




♦ E2 + 




* ♦ 




* 


NOTUSED 



YES .♦ 
...♦. COUNT 



♦♦♦♦♦ 
♦PZ ♦ 
♦ A2* 



♦ . .♦ 
♦ YES 



X 
*♦♦*♦ 

♦ PZ ♦ 

♦ F4* 



♦ ♦ 




♦ El ♦ 




♦ ♦ 




♦♦♦♦ 




X 




.♦. 




El ♦. 




.♦ IS ♦. 




.♦ PGM ♦• YES 


♦. RUNNING IN .♦. 




♦ . REAL .♦ 


, 


♦.MODE .♦ 




♦ . ,♦ 


X 


♦ NO 


♦♦♦♦ 




♦ 




♦ J2 




* 




♦♦♦♦ 






*****^l********** 




♦ LOAD REAL ♦ 




♦ ADDRESS OF ♦ 




♦ ERROR CCW ♦ 




♦ AND ZERO ♦ 




♦ REGISTER ♦ 




***************** 





*****(;;_if.^L********* 



UPDATE 
COUNTER BY 



***************** 



****Qt^********** 

* 

STORE ♦ 

COUNTER ♦ 

IN PUB ♦ 

♦ 

***************^ 



RETRY 

*****^i^ilt*Hi******m 



****m************ 



*^i***fi^lti**r)c****itc* 

* ♦ 

* UPDATE * 

* APPROPRIATE * 

* SOR COUNTER ♦ 

* * 
***************** 



*#4c«*R5 *♦♦♦♦♦♦♦*« 

♦ SET ON BIT ♦ 

♦ TO INDICATE ♦ 

♦ SPFC RECORD ♦ 

♦ TRANSFERRED ♦ 

♦ BYTE 3 BIT ♦ 
**-timm************ 



**** 

* * 

* PI ♦ 

* ♦ 

♦*♦* 



**Ql******* 

♦ GET OADR ♦ 

♦ MACRO TRANS ♦ 
♦REAL TO VIRTUAL^ 

♦ + RETURN ADDR* 

♦ IN REG 15 ♦ 
*********** 



♦ COUNTER 
OVERFLOWED 



HI ♦. 


•^'♦♦♦H2^^^^*^^^^^ 




♦ DOES ♦. 


♦ ♦ 




REG 15 ♦. NO 


♦ LOAD VIRTUAL ♦ 




HAVE BAD ...... 


....X^ AODR OF DATA ♦ 




ADOR •♦ 


♦ ♦ 




♦ . .♦ 


♦ ♦ 




♦ . .♦ 


***************** 




♦ YES 








♦♦♦♦ 




, 


♦ ♦ . 




X 


♦ J2 ♦.X. 




♦♦♦♦ 


♦ ♦ . 




♦ ♦ 


♦♦♦♦ X 




♦ J2 ♦ 


CKC4 .♦. 




♦ ♦ 


J2 ♦. 




♦♦♦♦ 


.♦ IS ♦. 


♦♦♦♦ 




.♦ 1ST BYTE ♦. YES 


♦ 




♦. OF DATA .♦... 


X^ 65 




♦• -C4- .♦ 


♦ 




♦. .♦ 


♦♦♦♦ 




♦. .♦ 






♦ NO 






SRMSG X 






**«*4cK2 ********** 






* * 






♦ SET SRT MSG ♦ 






♦ X'55« SET ON ♦ 






♦ ALLOh IGNORE ♦ 






♦ FLAG ♦ 






*************if**^, 






Ifetch 






X 






♦♦♦♦* 






♦PX ♦ 






* B4* 





♦ SET FOR RETRY ♦ 

♦ FROM OBR ♦ 

♦ RECORDING ♦ 

♦ ♦ 

****************Hi 



X 
♦♦♦♦♦ 
♦PZ ♦ 

♦ G4^ 



* * 



AROUND X 

4t OETPY * 

♦ ROUTINE 
...X^ MAC'O 

♦ •SUf>«?FT« 



^^^(♦♦♦♦♦♦♦« 



4c4(4e^H5 ♦♦♦♦♦♦♦♦♦ 

♦ EXIT TO ♦ 

♦ SUPFRVTSOR ♦ 

♦ * 

^f:tLi^**iH********* 
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Chart PZ. $$ABERR7 - Diskette I/C Unit ERF (Part 3 cf 3) 
Refer to Chart 02, 



♦♦**♦ REFPPENCES 

* * TO PZAPs 

♦ ** PYA2, PYB4 



PERMERR X 

* SET ON ♦ 

* UNRECOVERABLE ♦ 

* ! /O ERROR * 

* BYTE 2 BIT 2 ♦ 

* IN CCB ♦ 



.* *. NO 

*» .♦ 



4> « 

* SET ON DATA ♦ 

♦ CHECK BYTE 3 * 

♦ BIT 3 IN CCB ♦ 

* ♦ 
4i«4>4c*#*«4>*4t«4t***4< 



.X.,. 



.♦ SPECIFIED 
♦. {BYTE 2 



X 

.♦. 
E2 *. 

,♦ *e 
.* *. H 

*. DATA CHECK .*. 



E3 *. 

,♦ *, 

.* ERREXT * 

.X*. SPECIFIED 

*. <BYTE 2 .* 

*BIT 4}.* 

.♦ 



* YES 



NORETRN 

* ♦ 

* SET ALLOW * 
..X* IGNORE ♦ 

* FLAG OFF * 

* * 

)4t*4c«*«4(4(4c*4>*)|<*4>#4t 



CFFERENCFS ***♦ 
in PZF4: * ♦ 
PXF3, PYt3 * ♦ *.X, 



RETURN X 

* SET ALLOW ♦ 

* IGNORE FLAG *. 

* ON xno» * 

* * 



**♦♦ 
OBRREC X 

♦ SET RETURN ♦ 

* TO MSG WRITER * 
...X* $$A8ERR1 * 



#4[«4e4i«4t4c4c)|i**4c4c«*« 

**»* I 

♦ PY * 

♦ H4 *.X. 

*♦♦* 
OBRPeCZ X 

♦ * 

♦ CALL OBR * 

♦ RECORD PHASE * 

♦ $$ABERRK * 

« * 



♦ ♦ 

♦ SET FLAG TO * 

♦ CREATE OBR * 

♦ RECORD X»40» ♦ 

♦ * 
«*4c*4c4(*«*4<*4:4c4c*4i4( 



♦***J4***«*»##* 

* SVC 5 * 

* SSASERRK * 

* CHART MA * 
**4ei|c****4<*4t*4<*4c 
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Chart QA. $$AEERRL - Phase 1 cf ERP Message Writer 
Refer to Chart 03. 



* * 

* iSABERRL * 



«*#«*B2 **«**«**«* 



* ESTABLISH 
♦ADDRESSABILITY 



:^it:^tt*********m*** 



♦USE MSG NUMBER ♦ 
♦IN ERQUE ENTRY ♦ 

* TO SET UP PTR ♦ 
♦TO APPROPRIATE ♦ 

♦ MESSAGE TEXT ♦ 



♦ MOVE APPROPR* ♦ 

♦ TEXT TO FIRST ♦ 

♦ OUTPUT LINE ♦ 

♦ OF MESSAGE ♦ 

♦ ♦ 



*«4c*E 2 ♦♦♦♦♦♦ ♦♦♦ 

♦ SVC 5 ♦ 
♦FETCH f$ABERRM ♦ 

♦ CHART QB ♦ 
^i^Hfittt ********** 
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Chart QB. $$AEERRM - Phase 2 cf ESP Message Writer (Part 1 cf 2) 
Refer to Chart 03. 



* $$ABERRM ♦ 

* « 



4E4i*4i*B 1 4"l>**4>*4i**)|t 



^:if*iHm****rii*iit!***t* 



♦ SET UP MSG * 
♦NUMBER IN FIRST* 

♦ OUTPUT LINE. ♦ 
♦INIT. ACTIONFLO* 

♦ TO I (INFO.) ♦ 



* ♦ 

* INIT. TARGET ♦ 

* FIELD TO I ♦ 

* fIGNOREI ♦ 

* «t 
itim**** *********** 



NO .-^ CCS *. 
..♦. AVAILABLE .* 

*. .* 

♦ . .* 



.* OPERATOR *. YES 
*. INTERVENTION .*.... 
♦ .REQUIRED .♦ 



♦ * 

♦ A2 * 

♦ * 
**** 



*****f^2********** 

♦ MOVE CHAR C * 

♦ TO TARGI ♦ 

♦ MEANING * 

♦ CANCEL ♦ 

♦ * 
***************** 



B2 ♦. 
.♦ ALLOW ♦. 
.* RETRY ♦. NO 
AND/OR ...... 

*. IGNORE .♦ 
♦ . .♦ 

*. .* X 

♦ YES *♦♦♦ 



* kh * 

* * 
**** 



•^•.. 



*****C2********** 
♦MOVE CHAR D FOR* 

♦ OPTR DECISION ♦ 
♦TO ACTION FIELDS 

♦ BLANK OUT ♦ 

♦ TARGI FIELD ♦ 
****^^*********1^** 



• ♦. 

02 ♦. 
.* ♦. 
.* ALLOW *. 
IGNORE .* 

*. .* 



*****il^2********** 

♦ MOVE CHAR I * 

♦ INTO TARGI * 

♦ FLO TO ♦ 

♦ INDICATE ♦ 

♦ IGNORE ♦ 
********i$*******il^ 



♦ ACCEPT ♦, NO 
UNRECOV I/O .♦.., 
♦. ERROR .♦ 
♦ • .♦ 



♦*♦♦ 

♦ ♦ . 

♦ B3 ♦.X. 

♦ ♦ . 
♦♦♦♦ 

X 
*****^i^*********ilk 

♦ MOVE CHAR I ♦ 
♦FOR INFORMATION* 

♦ INTO ACTION FLO^ 
♦AND I TO TARGI ♦ 

♦ FOR IGNORE » 
********^**m***** 



*****C3****'lf***** 

♦ MOVE * 

♦ BLANK ♦ 

♦ INTO * 

♦ TAR62 * 

♦ AREA * 

*************** *:^f 



• X.. 

X 

***** 

♦ QC ♦ 

♦ Al^ 

♦ ♦ 



♦ 62 ♦ 

♦ * 



.X. 
X 



♦ C5 ♦ 

♦ ♦ 
♦♦♦♦ 



* RETURN ♦. YES 
CONTROL TO ...... 

♦. USER .♦ 



♦ A2 ♦ 

**** 



ALLOW 
RETRY 



*♦♦♦ 

♦ * . 

♦ G2 ♦.X. 

♦ ♦ . 
♦♦♦* 

X 
*****(;2********** 

♦ MOVE CHAR R ♦ 

♦ FOR RETRY ♦ 

♦ INTO TARG2 ♦ 

♦ FIELD ♦ 

♦ * 
****** **Hi*******1f 

♦♦♦♦ I 

♦ ♦ .X. 

♦ H2 ♦.X. 



*♦*♦ 








♦ ♦ 








♦ A4 ♦... 








♦ ♦ . 








*♦♦♦ X 








• ♦. 


.♦. 






A4 ♦. 


A5 ♦. 






.♦ ♦. 


.* *. 






.♦ CCB ♦. YES 


.♦ ACCEPT 


* 


, YES 


♦. AVAILABLE .* 


..X^. UNREC I/O 




...... 


*. .♦ 


♦. ERROR . 


* 


, 


*. .* 


♦ . .♦ 






♦ • .* 


*. .* 




X 


♦ NO 


* NO 




**** 








* ♦ 








♦ H2* 








* ♦ 


.X..... .•••.... 






**** 


X 






.♦• 








B4 *. 








.♦ ♦. 








NO .* 2400 ♦. 








..♦. TAPE .* 








*. .♦ 








♦ . .♦ 


**** 







.♦ ♦. 

YES .* I/O *. 
X..^. PROGRAM .♦ 
*. CHECK .♦ 





D4 *. 




.♦ *. 


YFS 


.* I/O 


X,,* 


. PROTECTION 




♦. CHECK . 




♦ . .* 




♦ . .♦ 




* NO 



YES .* COWHAND 
X..^. REJECT 



* C5 * 

♦ ♦ 



4t«i«:4i4tC 5 ♦♦♦♦♦♦♦♦♦♦ 

♦ MOVE * 

♦ CHAP U* ♦ 

♦ INTO ♦ 

♦ ACTION ♦ 

♦ FIELD * 



* ♦ 

* BLANK * 

* TARGFT ♦ 

* FIELD ♦ 

* ♦ 
i^***il,*********it*i^ 



4i4c«#*F<5 ♦♦♦♦♦♦♦)('♦* 
♦TUON ON BIT TN * 
♦LHftN sCHfcU FLGS* 

* OF PUB ENTOY ♦ 

* TO SHOW OPPTR * 

* TNTEPV NEEDED * 



***** 

♦oc ♦ 



***** 
♦PC ♦ 
* Al* 



*♦♦* X 
POSTDIS .♦. 

H2 ♦. 
,* ♦. 

.♦ CCB 
..X^. AVAILABLE 
♦ . 



X 
***** 
♦OC ♦ 
♦ Al* 



*****42********** 

* TURN ON * 

* BYTE 2, BIT 2 * 

*0F CCB MEANTING* X*. 

* UNREC. I/O * 

* ERROR ♦ 

****^*i!lilf7!fiii^t:***** 



J3 * 










.♦ 


* 








RETURN 




♦ . 


NO 




CONTROL 


■0 




*.. 




', USER 




,♦ 






*. 


.* 








*. .* 








X 


* Y 


ES 






*♦♦* 



* * 

* B3 * 

* * 
**** 
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Chart QC. $$AEERRM - Phase 2 cf EBP Message Writer (Part 2 of 2) 
Refer to Chart 03. 



^ REFEftENCES 
Z *W QCAl: 
*^ f* QBC3, QBES 
♦ * 0BF4, QBH2 



• A2 * 

♦ ♦ 



NO .* CCB *. 
...». AVAILABLE .♦ 



♦ El ♦ 



* GET LOGICAL * 

♦ UNIT NUMBER * 

* FROM CCB; GET * 

• CCH ADDRESS * 

♦ FROM CCB tSS ♦ 



SYSTEM 
LUB 



♦CONVERT LOGICAL* 
♦UNIT NUMBER TO ♦ 

♦ DECIMAL AND * 
♦MAKE PRINTABLE ♦ 

♦ PRINT LINE ♦ 



*4<«4i4iA2 ♦♦♦♦♦♦*♦♦♦ 

♦ *SVC 70 12X1* ♦ 
» *GET VIRTUAL* ♦ 

* ADOR OF FIRST • 

♦ *AND FAILING* * 

* * CCM»S ♦ * 

*♦♦♦ 



* B2 *.X 



«**♦ 
NEXTl X 

*4i#«*B2********** 

* SET COMMAND * 

* CODE OF LAST * 

* USED CCH ♦ 

* IN PRINT LINE * 

* ♦ 
^t^i^t************* 



.*ADDRESS OF *. NO 
. FIRST CCH .*... 
*. VALID .* 



* *. NO 

SWITCHABLE •*... 
*. DEVICE •* 

*. .* 



4c*4i4>«Bl ********** 

* DISPLAY * 

* HIGH CHANNEL * 

* NUMBER IN * 

* OUTPUT LINE * 

* «E 



♦ C3 *.X 



X 




*• •* 


♦♦♦♦ 




* YES 


* * 






♦ B4 * 






♦ ♦ 






*♦*♦ 




X 




^tx.^^t^'DZ *♦***♦**** 




♦ 


* SVC 60 * * 




* 


* GET FROM * * 




* 


* THE REAL * ♦ 




* 


*THE VIRTUAL* * 




♦ 


SEEK ADDRESS* * 




:4c**#4t***««4c***«** 



* El *.X 



*♦♦* 

RESTS X 

♦UNPACK PHYSICAL* 

* CHAN AND UNIT ♦ 
♦NUMBER AND MAKE* 

* IT PRINTABLE ♦ 

* IN PRINT LINE ♦ 



.♦DEVICE NOT ♦, YE 
*. OPERATIONAL .♦. • 
♦ . MESSAGE .♦ 



♦ ZERO THE ♦ 

♦ COMM CODE ♦ 

♦ OF THE CSy ♦ 

♦ IN PRINT ♦ 

♦ LINE AREA ♦ 



THIS 

ADDRESS 

VALID 



4c#4i4:«F2 ♦♦*♦♦♦♦♦♦* 

♦ MAKE BB PART ♦ 

* OF SEEK * 

* ARGUMENT * 

♦ PRINTABLE IN ♦ 
PRINT LINE 



X 

* 


i),:^:* ************** 


**** I 


A3 ♦ 


♦ ♦ .x....... 


* 


♦ G2 ♦.X. 


«*♦♦ 


♦ ♦ . 




**** 


LACSW X 




*****(;2********** 




* * 




♦ UNPACK CSW * 




♦ BY PARTS INTO * 




♦ PRINT LINE ♦ 



***« 
MOVE X 

4i4(4t*«C3**** ****** 

* UNPACK CCB * 

* ADDRESS IN^O * 

* PRINTLINE. * 

* TRANSLATE TO * 
*PRINTA8LE CHARS* 
4t4i4'***********«** 



^tt^^c^iOS**** ****** 

* UNPACK CCHH * 

* FROM SEEK * 
*ADDR AND TRANSL* 

* ADDRESS TO * 

* PRINTABLE CHARS* 
*i**i**m*m********* 



*«** 

* « 

* 84 * 



4i«*tt*B>44i**4t*****4t 

* MPY SYM UNIT * 
*N0. BY 3 TO GET* 
*OFFSET IN SYMB-* 

* UNIT lOENT. * 

* TABLE * 
***m**********m** 



««*«t«C4********** 

* POINT TO * 

* APPROPRIATE * 

* SYMBOLIC NAME * 

* * 



*^Hf**QMt^*m******* 

* MOVE SYM NAME * 

* OF SYSTEM OEV * 

* FROM TABLE * 

* TO PRINT LINE * 

* * 
***************** 



*B5 
IF COPIED CCB, SET 
VIRTUAL CCB ADDRESS 
AND VIRTUAL CCH 
ADORE SSt SVC 771 
FOR MESSAGE. 



♦ . NO 
2560/5425 *♦... 



F3 *. 
.♦ OPINT ♦. 
.♦ FLAG ON ♦, NO 
*. (ACTION .♦... 
♦. REO.I 



• ♦ 



.♦ 



HI 



♦ . 



.♦ADDRESS OF ♦ 

♦. FAILING CCW 

♦ . AVAILABLE. ♦ 

♦ . .♦ 

♦ . .♦ 

♦ YES 



*****ilHlf*******-tiilHti 



^f****ii2 ««4>4c4i«*4.4c4: 

♦ TRANSLATE ♦ 

♦ ASSEMBLED ♦ 

♦ CSW INTO ♦ 

♦ PRINTABLE ♦ 

♦ CHARACTERS ♦ 
**************Hiil^i^lt 



****fi^********* 

♦ SVC 5 ♦ 
•X*FETCH $$ABERRN * 

♦ CHART QO ♦ 

*************** 



«4e**G4********* 

♦ SVC 5 ♦ 
.X* $$ABERRE * 

♦ CHART OH ♦ 

**************:* 



****^2 ********* 

♦ SVC 5 ♦ 
♦FETCH $$ABERRC ♦ 

* CHART QM * 
*************** 



Jl *. 
.♦ *. 

♦ USER 
TRANSLATED 

♦ . CCB 

*. .♦ 
♦ . .♦ 
♦ YES 
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Chart QD. $$ABERRN - Phase 3 cf EBP Message Writer (Part 1 cf 3) 
Refer to Chart 03. 



♦ A3 * 



* A5 » 

♦ ♦ 
♦*♦» 



♦***A1********* 

♦ * 

♦ $$ABERRN ♦ 

♦ ♦ 



i^t***Bl********** 



«4c4c4t«##4e#***4e**4<* 



♦♦***C I********** 



^t************ile** 



♦ * 

♦ RFLOCATE DATA ♦ 

♦ ADDRESSES * 

♦ IN CCW'S ♦ 

♦ ♦ 



* * 

* GET NUMBER ♦ 

* OF SEMSE * 

* BYTES * 

* ♦ 



* DETERMINE ♦ 

* NUMBER OF ♦ 

* SIGNIFICANT * 
*SENSE BYTES (NO* 
♦TRAILING ZEROS)* 

*«:4<4c4c***********# 



4r4c**!|cGl ********** 

* DETERMINE NO. * 
*0F OUTPUT LINES* 

* AND CCW'S * 
*NEEDED FOR SNS * 

* INFORMATION * 



«*4;*#H I********** 

* SUPPRESS COMM * 

* CHAINING IN * 

* LAST CCH. * 
*SET CORRECT CNT* 

* IN THIS CCW * 

4c ^t*************** 



♦♦♦♦*J !♦********* 
*SAVE ADDRESS OF* 
* LAST CCW. SET * 
♦UP SKIP CCW TO * 
♦FOLLOW (IN CASE* 
*MSG ON PRINTER}* 
4c4c4c«*4c4:**4t******« 



«t#4c**A3********** 

* RELOCATE * 

* ADDRESS * 

* OF CCW CHAIN * 

* IN CCB * 

* * 

4c4t«*4c*«:*********i|c 



DEVICE *. YES 
IN ERROR .*.... 
IS 2560 .* 



BA *. 

.* *. 

ACTION 

REQUIRED 

. (OPINT) . 

*• .* 

*. .* 

♦ NO 



4i:*4c*4tD3********** 

* UNCHAIN * 

* SECOND CCW ♦ 

* (TO PRINT * 

* ONLY ONE ♦ 

* MESSAGE LINEl ♦ 

4:iti«**«4(*********4c 



.* DEVICE *c NO 
♦. READIED IN .♦..X 
*. BETWEEN .* 



C5 *. 

,* * 

.* CHANNEL 
*. PROGRAM 
*. CHECK 

*. .* 
*. ,* 
* NO 



**♦* 

* ♦ 

* A5 * 

* * 
**** 



EXTEND X 

)«e«**4c05 ********** 

* UPDATE CNT OF * 
*2N0 CCW TO PRT * 
*SEeKA0OR (0ASD1* 
*0R RESTART-NO. * 

* (2560J * 

***4i*4c*********** 



m***iltB 5 ********** 
*MAKE SENSE INFO* 

* PRINTABLE I M t 

* 3R0 AND, IF * 
*REQ., FOLLOWING* 

* OUTPUT LINES ♦ 

^ttiitim****:*** **:**** 



*«F3******* 

* ♦ 

TURN OFF 

INTERV. REQ. 

IN PUB 

* * 

«4c********« 



X 
***** 

*0F * 
* B3* 



***** 
*0E * 
* Al* 
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Chart QE, $$AEERRN - Phase 3 cf ERP Message Writer (Part 2 of 3) 
Refer to Chart 03. 



♦♦♦♦♦ 

♦ QO ♦ 

* E5* 



TESTLOG X 

^i**** A 1 ♦****♦*♦♦♦ 

♦ ENABLE AND * 
» THEN DISABLE * 

♦ FOR I/O ♦ 

♦ INTERRUPTS ♦ 

♦ ♦ 



♦ ♦ 

♦ POINT ♦ 

♦ TO SYSLOG ♦ 

♦ LUB * 

♦ ♦ 

^^^Hf^^:tt** ********** 



4i*#«4iDl^*«4c***4c**4( 



^di^t^^^i^c******:*** 



El ♦, 
.* I/O ♦• 

.♦ ERROR *. 
*. QUEUED FOR . 

*. SYSLOG .* 







♦*♦♦ 
* * 






* ^5 * 

* * 
**** 

,,,,,, ,,,,,.xl 


PRINTLST X 

*****f^3**** ****** 

* ENABLE * 

* AND THEN * 

* DISABLE FOR ♦ 
♦I/O INTERRUPTS ♦ 

* * 


:tit***t^St********** 

* * * * 

* * SVC 7 * * 

* ♦ WAIT ♦ ♦X... 

* * * ♦ 

* * ♦ ♦ 


X 

• *. 

A5 *. 

.♦ *. 

NO .* i/n * 

♦. OPFRATION 

♦.COMPLETE .♦ 



:tH^ti:i^m************ 



*«#«4t4i*4i**«*««i*4i* 



4>4i#4i*f)5 «*4c*«*)|<**4' 



' SYSLST 


* 


















♦ DISABLE FOR ♦ 


ASSIGNED 




I* 
















* T/0 ♦ 




.* 


















* INTERRUPTS ♦ 


*♦. .♦ 






















♦ . .* 






X 
















♦ YES 






**** 




















* 


♦ 














, 






* E5 


* 




















♦ 


♦ 














. 






**** 












X 


X 








LOGOK 


.*, 






**C3********** 










C4 *. 






C5 *. 






* 










.♦ *. 




.♦ ♦. 


POINT TO 












* 


SYSLOG 


*, 




NO .♦ I/O *. 


SYSLST PUB 










,* 




A PRINTER 




4>X 


..♦. ERROR ON .* 


ENTRY 








, 




'* 


.* 




*. SYSLOG .* 


^m********i 


)f* 


It* 




X 






*. .* 






*. . ♦ 

♦. .♦ 








**** 




* NO 






♦ YES 








* 




* 


















* 


E5 


* 


















* 




* 


















**** 












X 




















X 


.*. 




















.*. 


03 *. 














04 *. 






D5 *. 


.* * 














.* »- 




.♦ ♦. 


ERROR 


'* 


, YES 






* 


MSG 


*. 


NO 


.♦ ERROR *. NO 


QUEUED FOR 




.* 






* 




PRINTED ON 




*.... 


*. RETRIED ...... 


. SYSLST 


,* 










'* 


. SYSLST . 


♦ * 




*. 3 TIMES .* 


*. .* 














*. .* 






*. .* . 


*. .* 






X 








♦ . .* 




X 


*. .* X 


* NO 






**♦♦ 






♦ YES 




4(«*4:i4c 


* YES **** 








♦ 


♦ 










♦OF * 


*♦♦♦ , * * 








♦ E5 


* 










♦ Al* 


* * . * Al* 








♦ 


* 






X 




♦ * 


♦ E5 *.X. ♦ ♦ 








*♦♦* 






**♦* 




* 


♦ ♦ , **♦♦ 


X 














♦ * 






♦*♦* X 


•♦« 














* E5 * 




NOLOG •♦. 


E3 *. 














* * 






E5 *• 


.♦ * 














**♦* 






.* ♦. 


SYSLST 


'* 


















.♦ INFO *. YES 


DEQUEUED 




I* 
















♦. TYPE -*.... 


.* 


















♦. MSG .♦ 


♦ . ,* 




















♦. .* . 


♦ . •* 




















*. .* X 


♦ YES 




















* NO *♦♦♦♦ 
♦OF * 
* 81* 






















, ♦ * 


X 




















♦ 


.*. 






















F3 ♦. 




















X 


.♦ * 




















«4t4c*p(v ««4c^«*i»#* 


DEVICE 


* 


















* svr5 * 


BUSY 




*♦ 
















♦FETCH $«ABERRO * 




,* 


















* CHART OH * 


*♦. .* 




















*^!i^ilt:f ********** 



))i*««*G3 ♦♦♦* ♦♦♦♦♦* 
♦SET SYSLST SYMB* 

♦ UNIT ADDR IN ♦ 
♦CCB AND ADD TWO* 

♦ SKIP CCW'S TO ♦ 

♦ CCM STRING * 



* ENABLE * 

* FOR I/O ♦ 

* INTERRUPTS ♦ 

* ♦ 
^(^[♦♦♦♦♦♦♦♦♦♦♦♦♦♦* 



STARTIO 

♦♦♦J I************ 

* SVC 15 * 

PRINT MESSAGE 
* <SYSIO» * 
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Chart QF. $$ABERRN - Phase 3 cf EBP Message Writer (Part 3 cf 3) 
Refer to Chart 03. 



*♦♦♦♦ 

*QE ♦ 

* o4» 



*♦♦♦ 
♦QE ♦ 

* E5 

* * 
**** 

TSTTRG 



INFO 

TYPE 

MS6 



X 



.* IS 

TARGET 
*. CANCEL 



* * 

* H5 ♦ 

* ♦ 



♦ * 

♦ LOAD R15 ♦ 

♦ WITH CANCEL * 

♦ EXIT AOOR. * 

♦ * 



* ♦ 

* J5 ♦ 

* ♦ 

♦**♦ 



A3 *. 


**A4*4c4<**«4> 




.* ♦. 


* INDICATE * 


4c«#4cA5 *♦♦**♦♦*♦ 


.♦ ACTION «<• NO 


* REPLY TO BE * 


* SVC 5 * 


.»X*» TYPE .♦••••• 


...X* TESTED ♦..•. 
* BY $$ABERRO ♦ 


•..•X*FETCH iSABERRO * 


*. MSG .♦ 


♦ CHART QH ♦ 


*• •* 


* * 


4(* ***♦ 4e4c ♦* 4t4»|i4E ♦ 


*. .* 


4r**4<4:4>**«4i4c 




* YES 






♦♦*♦ 






♦00 ♦ 






♦ F3 *.X. 






* ♦ • 






♦**• X 






ATYPi •*. 






B3 *• 




«3(iB5*«#««^* 


.* *. 




* ♦ 


.:* ^Ikh *:*T.... 




♦ CLEAR USER * 




• •..X* rCB BITS * 


♦• RETURN .♦ 




* * 


*. .♦ 




III ♦ 


«• .* 




^^A^^tlc^^cfc^ 


Vyes 






X 




X 


♦♦CS******'^ 




C5 *. 


♦ ♦ 




,* *. 


* ESTABLISH ♦ 




.* *. f 


♦ CHANNEL END ♦ 




*. 2560/5425 ,* 


♦ FOR 1419 ♦ 




*. .* 



^Cilt^t********! 



D3 *. 
* ♦. 
DEVICE *• NO 
BEEN .*.., 
READIED - 



,* 



♦ * 

* ESTABLISH 
CHAN END AND 

* DcV END 

* ♦ 



.* 


CCW 


* 


. YES 




, 


ADDRESS 




.♦ 


» • • • 




* 


.AVAILABLE 

*, .* 
♦ . .* 
» NO 


»* 




X 


* 












* H5 


4c 












♦ 


♦ 












♦ ♦♦* 




X 










♦*1 


c4cg3*««t«:4'**«*4t 












* 








SET UP 




♦ 








DUilHY 




* 








ADD? 


?ESS 




4c 







.REPOSITIONING. NO 
. REOUTRED .*.., 



4t4'E5*4t««4>#4c 

MODIFY INSTR. 

♦AT XRESET TO ♦ 

♦AVOID RESETTING* 

♦ OF PUBFLAGS ♦ 

* ♦ 

4c**4c4c*4<4c*#* 



«*>l>*4cF5««4(4e4c**«*4c 

♦ * 

♦ LOAD R15 WITH ♦ 

♦ RETRY EXIT ♦ 

♦ ADOR * 

♦ * 
«** ** *4t 4< *#♦ 4c« *«4'4: 



^iiftim****m*tr^***** 



.♦ RETRY ♦ 


. YES 


♦. ALLOWED 


...... 


♦ . .♦ 




♦ . .♦ 




♦. .♦ 




♦ NO 




**** 




* * . 




♦ H5 ♦.X. 




♦ ♦ . 




♦*** 




XIGNORE X 




4;4(4:#«H5 ♦♦♦♦♦♦♦♦♦♦ 


* 




♦ LOAD R15 WITH 




♦ IGNORE EXIT 




* ADDRESS 




* 




^*iTtL*HtHtHiif ********* 


**** , 


• 


♦ ♦ .X 





4c4t**4cJ5^^^^^^^^^^ 
♦PESTORE CSW ANO^ 
»I/0 ADOR IN LOW^ 
♦STORAGE. RESET ♦ 

♦ SVC5NM AND ♦ 

♦ PUBFLAGS ♦ 

4c4c«*4c*4c4c**4c4t*4c*4i* 



4c* 4c4cK5 ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ ERPEXIT IN ♦ 

♦ SUPERVISOR ♦ 

4c4c 4c4c 4c 4c4c4>4c4c 4c4c 4c4c 4c 
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Chart QH. $$AEERRO - Phase 4 cf ERP Message Writer (Part 1 of 2) 
Refer to Chart 03. 

* A3 * 



****A 1*****»*** 



4E*##«4>4>4(#4(**«4t4< 



4i**«*Bl**4>:ti*«***4i 



4c4c4c4i4c4(4e«*:«i4'****** 



TEST ♦. NO 
OPERATOR .*... 
. REPLY .* 



1/0 

ERROR 



♦ . .* 
♦ YES 



»• NO 



X 
B3 ♦. 



♦*♦♦ 

♦ 03 ♦ 

* * 



***** 
*0J * 
♦ C5* 



*♦♦♦ 

♦ * 

♦ B5 * 

♦ ♦ 



♦ RELOCATE * 

♦ ADDRESSES * 

♦ IN CCW * 

♦ AND CCB ♦ 

♦ ♦ 

********Hi****itnti*itt 

**** * 

♦ El *.X. 

♦ * .X. ....... 

**** 



♦*El******* 

* * 

* CLEAR INPUT ♦ 
*AREA AND POINT 

* REGI TO CCB * 

* * 

******il,***:^ 



***fl************ 



**** *fi^********iti* 
.» •, * * * ♦ 

NO .* HAD ♦. YES ♦ ♦ SVC 33 * ♦ 
...*. 3 RETRIES .♦ .X* ♦ ♦ ♦. 

♦ . .♦ * * ♦ * 

♦ . .♦ ♦ ♦ ♦ * 

♦. ,♦ ***************** 



**** 

* * 

* 03 * 

* ♦ 
♦♦♦♦ 



X 
.*. 

03 *. 
,* ♦, 
.* RESPONSE ♦.NO 
*. RETRY OR .♦.., 
*. E08 .♦ 
*. .* 
*. .* 
♦ YES 



YES 


.* 


RETRY *. 


• ••* 




ALLOWED .♦ 




*, 


.* 






♦ . •♦ 






♦ . .* 


***** 




* NO 


*QS * 






* m* 




•X......... .. 


* * 





SVC 
EXCP 



***************** 



♦ * 

ENABLE FOR 

I/O 
INTERRUPTS 

* * 
^***Hi*itiiHH*^li 



I/O *. YES 
COMPLETED .*. .. 

.* 
♦ . .* 
*. .* 
* NO 



*****J I********** 



I)c4t4:#4:*:*4(*4t*4i4c4t4t** 



.♦ RESPONSE *. NO 
*. IGNORE .*... 
*. .* 

*. .* 



YES .* IGNORE ». 
,..*. ALLOWED .♦ 



. .* 
* NO 



***** 

*QJ * 
* J3* 

* * 



X IGNORE X 
.*. 
H3 *. 



«:^Kl**4c*4'** 



♦ DISABLE FOR * 
*I/0 INTERRUPTS 



4c4c**:(c*:#*«4t« 



*****^J********** 

* GET * 

* CONDITIONAL * 

* CANCEL ♦ 

* EXIT * 

* * 
****lt************ 



. **** 

. *0J * 
..X* K3 * 
* * 
**** 
XCANCEL2 

^i****f(^'i ********** 

* SET UP * 

* TO ISSUE 

* INVALID 

* RESPONSE 

* MESSAGE ▼ 
m*********^****** 



*X. 



REPERRl X 




*****S5 ********** 


* 


DISPLAY 


* 


* 


MSG NUMBER, 


♦ 


..X* 


A-TYPE, 


*X... 


♦ 


CHAN AND UNIT 


* • 


* 


IN LOC 0-3 


♦ ' 


***************** 






**** 






• ♦ 






♦ B5* 






♦ ♦ 






♦*♦* 
















C5 ♦. 






.♦ ♦. 






* OPER. ♦ 


. NO 


**4 


INTERV. 






*. REO. .♦ 






♦ . ,* 






♦ . .♦ 


X 




* YES 


♦OJ ♦ 






♦ Al* 






* * 






♦ 




X 


DTYPE 




.♦. 






05 ♦. 






.* HAS *. 




NO , 


♦ DEVICE ♦. 


...*. 


BEEN .♦ 




*. READIED .* 






*. .♦ 





*****^^ *********i^ 



* CLEAR LOW 

* REAL STORAGE 



***************** 



F5 ♦. 




.* ♦. 




.» USER *. 


NO 


*. HANTS 


♦ .... 


♦. RETURN .* 




♦ . .♦ 




*. .♦ 


X 


* YES 


***** 




*QJ * 




* 03* 




* ♦ 




* 




CLRCC 



*****Q^ ********** 

♦ESTABLISH C.E. ♦ 

♦ AND D.E.AND * 

♦ SET UP DUMMY ♦ 

♦ ADDRESS IN * 

♦ EROCSW * 
***************** 

I **** 
. ♦QJ ♦ 
..X^ J3 ♦ 
♦ ♦ 
♦♦♦♦ 
.♦. XIGNORE 
H5 *. 
.♦ ♦. 
.♦ CONS. ♦. NO 
. X^. PR-KEYBOARD .♦,... 
♦ . .♦ 

♦. .* 

♦. .♦ X 

* YES ***** 
♦OJ ♦ 
♦ 01* 



****JS********* 

* SVC 5 * 
♦FETCH ttABERRA ♦ 

♦ CHART MU ♦ 
*************** 



**** 

* * 

* El ♦ 

* * 
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chart QJ. $$ABERRO - Phase ^ cf EBP Message Writer (Part 2 cf 2) 
Refer to Chart 03. 



***** 

♦OH ♦ 
♦ C5* 



OTYPE X 

♦RELOCATE INSTR.* 

* ADDRESS IN ♦ 

* OWN EXTERNAL ♦ 

* INTERRUPT * 

* NEW PSW ♦ 

*-ifHf**':tt*********** 



^^it'm*Ql*$i*i^m***** 

♦ SET UP D-TYPE ♦ 

♦ (BYTE l; AND ♦ 
♦TARGET (BYTE ^;* 

♦ RETRY IN LOW ♦ 

♦ REAL STORAGE ♦ 
*^if************** 



***m*ci********** 

* SAVE EXTERNAL ♦ 

♦ NEW PSW AND ♦ 

* REPLACE IT ♦ 
♦BY OWN EXTERNALS 

♦ NEW PSW , ♦ 



****t<2********* 

♦ EXTERNAL ♦ 

♦ INTERRUPT ♦ 

♦ * 
*itiit,*itt********** 



EXINTR X 

«*««#B2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ESTABLISH ♦ 
♦ADDRESSABILITY ♦ 



^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



X 

• ♦. 

C2 ♦. 

.♦ ♦. 

NO .♦ KEYED ♦• 

...♦. INTERRUPT .♦ 

♦ • .♦ 

♦ . •♦ 



♦«•* 






♦OH ♦ 






♦ H5 ♦.X 






* * 






**** 






LDPSW X 




4c4c**#0 i*4i«««#4t4i«# 


♦ SET UP 


♦ 


♦ REGISTERS 


♦ 


♦ FOR USE 


♦ 


♦ BY SUPJ 


ER VISOR 


♦ 



**ilf**Ht*****iti*$:*-il,iti 



****El********* 

♦ LOAD PSWO PUT ♦ 
♦SYSTEM IN ENABLE 
^ ED WAIT STATE * 



X 

.♦• 

02 ♦. 



♦♦♦♦♦A3 ♦♦♦♦♦♦♦♦♦♦ 

♦ RESTORE ♦ 

♦ EXTERNAL NEW ♦ 
.•X^ PSW ♦ 

♦CLEAR LOW REAL ♦ 

♦ STORAGE ♦ 
^ti^im************* 



.♦. 


.♦. 


B3 *. 


B4 ♦. 


.♦ ♦• 


,♦ * 


• ♦ WAS ♦. NO 


.♦ WAS 


♦. RESPONSE .♦ 


...X^. RESPONSE 


♦ . RETRY .♦ X ♦. IGNORE 


♦ . .♦ 


♦ . .♦ 


♦ . •♦ 


♦ . .♦ 


♦ YES 


♦ YES 


X 




.♦. 




C3 ♦. 


C4 ♦. 


.♦ ♦• 


,♦ ♦ 


.♦ RETRY ♦.NO, 


.♦ IGNORE 


♦. ALLOWED .♦ 


♦. ALLOWED 


♦ . .♦ 


♦ . 


♦ . .♦ 


♦ . .♦ 


♦ • •♦ 


♦ . .♦ 


♦ YES 


♦ YES 


**** 


* 


* * . REFERENCES 




♦ ♦ ♦.X, TO 0JD3: 


X 


* * . QHe3, 0HF5 


**♦* 


♦*** , 


♦ * 


CLRCCB X 


♦ J3 ♦ 


#«03 ♦♦♦♦♦♦♦ 


♦ * 


♦ ♦ 


**** 


♦ CLEAR USER ♦ 




♦ CCB BITS ♦ 





WAS 
RESPONSE 
. CANCEL 



♦ • NO 

• ♦... 



lt*if**E2********** 

♦ TURN OFF KEY ♦ 

♦ BIT ♦ 

♦ SET UP REGS ♦ 
»FOR SuPcRVibOR * 

♦ ♦ 



itnni^f2********* 
♦LOAD PSWO ENTERS 
♦NORMAL EXT. INT^ 
♦ PROCESSING ♦ 

:^imtm*********** 



^,*^t**m***** 



£3 ♦. 
• ♦ 
.♦ SYSIPT 
♦ . OR 

♦. SYSRDR 



X 

♦ QH ♦ 

* B5* 



REPERRl 

X 

4c*«)t>*05 ♦♦♦♦♦♦♦♦♦♦ 



4t«)tc4i;4<«:4c*#**r4c4E*«4t* 



♦ . 



*♦ 
.♦ 

YES 



4t4EF3«4t4c**«* 



^■♦♦♦♦♦^c**:*^ 



Hc*ilfjtc*Q^****jtii^**^* 

♦ * 

♦ LOAD REG 15 ♦ 

♦ WITH RETRY ♦ 

♦ EXIT ADDRESS ♦ 

♦ * 
ilf**'itt****m*****^(itt* 



RETRY 
ALLOWED 



REFERENCES ♦♦♦♦ 
TO QJJ3: ♦ ♦ 
QHG3, 0HG5 ♦ ♦ 



*♦♦* 
X IGNORE X 

iti*itt**Ji********** 



* J3 ♦. ...X^ 



LOAD REG 15 
WITH IGNORE 
EXIT ADDRESS 



lf*m************¥* 



**** 
*QH ♦ 
♦ J3 ♦.X 



XCANCEL2 X 

^^^^[^'^♦♦♦♦♦♦♦♦♦^ 
♦RESTORE CSW ANO^ 

♦ I/O ADDRESS. ♦ 

♦ RESET SVC5NM ♦. 

♦ AND PUBFLAGS ♦ 

♦ * 

^1^iti:^iH,i^itt********* 



♦ BRANCH TO ♦ 

♦ ERPEXIT IN ♦ 

♦ SUPERVISOR ♦ 
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chart QM. $$AEERRC - Set up repcsitioning infcriration for MFCM (Part 1 of 
Refer to Chart 03. 



4) 



» ♦ 

♦ $$ABERRC * 



* INITIALIZE ♦ 

* POINTERS AND * 

* RESTART ♦ 

* INFORMATION * 

* FIELD ♦ 



* * 

* SAVE STACKER * 

* SELECT * 

* INFORMATION * 

* * 



• *. 

01 *. 

.♦STACKER*. 

.* SPECIFIED ♦. 

. FOR PRIMARY .* 

*. FEED .♦ 



* * 

* SET UP THE * 
♦DEFAULT STACKER* 

♦ NUMBER ♦ 

♦ ♦ 



♦♦** 

♦ ♦ 

♦ A2 ♦ 

♦ ♦ 
♦♦♦♦ 

X 
4>**4i«A2 ♦♦*♦♦♦♦**♦ 

♦ ♦ 

♦ SET UP * 

♦ RESTART 500 * 

♦ ♦ 

♦ ♦ 



♦ ♦ 

♦ RESET ERROR * 

♦ ENTRY BUILT ♦ 

♦ INDICATOR ♦ 

♦ ♦ 



♦ FETCH * 
♦PHASE $$ABERRN ♦ 

♦ ♦ 
««« ♦ ♦ «*♦♦♦*♦♦♦♦ 



♦ INDICATE FEED ♦ 

♦ CHECK IN ♦X, 
♦RESTART NUMBER ♦/ 

♦ ♦ 



NORECERR X 

♦FIND ADDRESS OF* 
♦FAILING CCM AND* 

♦ LOAD IT INTO ♦ 

♦ CCHREG * 

♦ ♦ 



SIMP ATTN .*. 

B4 ♦. 
.♦ IS ♦. 
.* OPERATORS ♦. NO 
♦.INTERVENTION •♦.... 
♦.REQUIRED .♦ 

♦ . •♦ 

♦ . .♦ X 

♦ YES ♦♦♦♦♦ 

♦QN * 

♦ Al^ 

• ♦ ♦ 

♦ 
X EQPCHECK 
COVERCHK •♦• 

C4 ♦. 
.♦DUE TO ♦. 
.♦ A COVER ♦. YES 
♦. INTERLOCK •♦.... 
♦. CHECK .♦ 

♦ . .♦ 

♦ . .♦ X 

« no ***** 

♦QP * 

♦ A5^ 

• * ♦ 
, * 

X CVRCHECK 
TSTFDCHK .♦. 

04 ♦. 
.♦ ♦. 
YES .*DUE TO FEED^. 
......CHECK MACHINE. ♦ 

♦. CHECK .♦ 

♦ . .♦ 

♦ . .♦ 

♦ NO 



♦♦♦♦♦ 
♦OP ♦ 

♦ H2^ 



SECDEF .*. 

Fl ♦. 

.♦STACKER*. 

YES .* SPECIFIED ♦. 

.*.FOR SECONDARY, ♦ 

♦. FEED .* 

♦ , ,♦ 

♦ . .♦ 

♦ NO 



*****Q, £:»j|c«4c**4c««4c 

* ♦ 

* SET UP THE ♦ 
♦DEFAULT STACKERS 

* NUMBER ♦ 

* ♦ 
iii7tc***it^*m********* 



E3 ♦. 
.♦ ♦. 

.♦ IS IT A ♦. YES 
♦.MACHINE CHECK ...... 

♦ . .♦ 

♦ . .♦ 

♦ . .♦ X 

♦ NO ***** 

♦QN ♦ 
♦ Gl^ 
♦ ♦ 



♦ FIND LOCATION ♦ 
♦THAT CAUSED THE^ 

♦ FEED CHECK ♦ 

♦ ♦ 
**************^** 



G3 ♦. 

.♦ ♦. 

.♦ IT IS A *. YES 

• SINGLE FEED .♦..•• 

♦. CHECK .* 

♦. .♦ 

*. .♦ X 

♦ NO ***** 

♦QQ ♦ 
♦ AI^ 
♦ ♦ 



** **E5 ********* 



.♦. EXITSVC 

E4 ♦• 
.* ERROR ♦. 
.♦OCCURRED AT^. YES 

♦ . INITIAL .♦.. X^FETCH ffABERRL ♦ 

♦.SELECTION.^ ♦ ♦ 

♦, ,♦ *************** 

♦ . •♦ 
♦ NO 
♦♦♦♦ 

♦ ♦ . REFERENCES 

♦ ♦ ♦.X. TO 0MF4: 

♦ ♦ , QNB3, 0NC3 
♦♦♦* 

X 

♦SUPRET $♦ 

*_♦_»_♦-»-. ♦^ »_*-. ♦ 

♦ LOAD PROPER ♦ 

♦ EXIT ADDRESS ♦ 

♦ ♦ 
***************** 



****Qi^********* 

♦ RETURN TO I/O ♦ 

♦ INTERRUPT ♦ 

♦ HANDLER ♦ 
***m*********** 

REFERENCES 
TO QMH4: 
QN02, QND3 
kOQFl 



**♦♦ 



.* SECOND ♦. YES 
.REPOSITIONING.*.... 
♦.REQUIRED ,* 



. .♦ 


X 


* NO 


♦♦♦* 




♦ 


, 


♦ A2 


X 


* 


**** 


**** 



4>#*4>*H3 ♦♦♦♦♦♦♦*♦♦ 

♦ INDICATE MORE ♦ 

♦ THAN ONE FEED ♦ 

♦ CHECK IN ♦. 
♦RESTART NUMBER ♦ 

♦ ♦ 

llt****,tf:********t** 



L *♦♦♦ 
PATHSEL 



.♦ PRIMARY ♦. NO 
.X^.FEED COMBINED. ♦... 
♦ . •♦ 



PATHSEL 1 X 

* ****J i^*j)c*******^: 

* * 

* ADD ONE TO ♦ 

* RESTART ♦ 
♦SEQUENCE NUMBERS 

* ♦ 

*iti*ilf:^ti**^ii*****ilr*ic 



***** 
♦QN ♦ 
♦ G4^ 
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Chart QN, $Si^EERRC - Set up repositioning infcriration for F.FCVl (Part 2 of 4) 
Refer to Chart 03. 



***** 








***** 






♦ QM * 








♦QP ♦ 






* B4* 








* A3^ 






* * 








♦ * 
* 

X 






tgPCHECK X 








PRICHKO .♦. 






*****f^l********** 








A4 ♦. 






* INDICATE ♦ 








.♦ ANY ♦. 






♦EQUIPMENT CHECK* 








.♦CARD BEHIND^. 


NO 




♦ IN RESTART ♦ 








..X^. THE PUNCH . 


♦ .... 


♦ NUMBER ♦ 








♦. STATION .♦ 






♦ * 








♦ . .* 






■tt**************** 








♦ . .♦ 




X 


, 








♦♦♦♦ ♦ YES 


♦♦♦♦ 










♦ ♦ 


♦ 


♦ 










♦ A4 ♦ 


♦ 


C5 ♦ 










♦ ♦ 


♦ 


* 


X 

• ♦♦ 








*♦♦* 
PRICHKl .♦. 


♦♦♦♦ 


CMPCHERR .♦. 


RTYONE .♦. 






PRICHK2 .*. 


Bl ». 


B2 ♦. 


B3 ♦. 




B4 ♦. 




B5 ♦. 


*♦ MAS *e 


.* ♦, 


.* HAS ♦. 




.* ♦. 




.* ANY ♦. 


.♦ FAILING *. NO 


.♦ IS IT A *. YES 


•♦ OPERATION ♦ 


. CNCL .♦IS A CARD ♦. 


NO 


.* CARD BEEN *. NO 


♦• COMMAND A •*•••• 


....X*. DATA CHECK •♦.••. 


....X*. BEEN 

♦. RETRIED .♦ 


.♦. 


♦.IN THE PUNCH . 
♦. STATION .♦ 


*.. 


>.•••. X^. STACKED •*.... 


♦ . READ .* 


*• .* 




♦. DURING .♦ 


*• ,* 


♦ • .♦ 


♦ . .* 




♦ . .♦ 




♦.CYCLE. ♦ 


*• •* 


♦• •♦ 


♦ , .♦ 




X ♦. .♦ 




♦ . .♦ 


* YES 


♦ NO 


♦ RTRY 




***** * YES 

♦ QM ♦ 

♦ F4* 

♦ * 
♦ 

X 




* YES 

**** , . 

♦ ♦ • 

♦ C5 *.X. 

♦ ♦ , 
♦♦♦♦ X 


READERR X 


X 


X 




.♦- 




PBICHKR **^ 


***ilfi*Cl*^fii^**^Hi**^ 


*****C2********** 


1f****Q^********** 


C^ ♦. 




C5 ♦. 


* SET READ ♦ 


* SET PUNCH ♦ 


♦ 




.♦IS THIS^. 




.♦ ♦. ■ 


♦ STATION ♦ 


♦ STATION ♦ 


♦ SET RETRY 




YES .♦ CARD FROM *. 




YES .♦ PRIMARY ♦. 


♦IDENTIFICATION ♦ 


♦IDENTIFICATION ♦ 


♦COUNTER TO ONE 




...♦. THE FEED IN . 


* 


,..♦. PRE-PUNCH .♦ 


♦ IN RESTART ♦ 


♦ IN RESTART ♦ 


♦ 




♦- ERROR ,♦ 




♦. VACATED .♦ 


♦ NUMBER ♦ 


♦ NUMBER ♦ 


* 




. ♦. .* 




. ♦. .* • 


****H,***)tt***^i1f**'^ 


***************** 


***************** 


X ♦. .♦ 




X ♦. .♦ 


, 








♦♦♦♦ ♦ NO 




♦♦♦♦ * NO 






I **** 




♦ ♦ 




* * , , 


* 




. ♦QM 
..X* F4 


♦ 


♦ 05 ♦ 

♦ ♦ 




♦G^'* .X.. .•••..•.. 




* ♦ 






♦ 


♦ 


♦ ♦♦♦ 




♦♦♦♦ 


X 




♦♦♦♦ 




X 






• ♦• 


PCHCHECK .♦. 


PCHFEED 




• ♦. 




PRICHK3 X 


01 ♦. 


D2 ♦. 


*****Q'i********** 


D4 ♦. 




*****Q^******tt*** 


•♦ ERROR ♦. 


.♦ ♦. 


* 




.♦ IS ♦. 




♦ ♦ 


.♦CAUSED DUE *. YES 


.♦ WAS IT ♦.NO 


♦ ADD TWO TO 




.♦ SECONDARY ♦. 


NO 


♦ ADO TWO TO ♦ 


♦.TO EQUIPMENT .♦.•.. 
♦ . CHECK .♦ 


♦. PUNCH ONLY •♦•.•• 


...X* RESTART 


R* 


♦ . PRE-PUNCH . 
♦. VACATED .♦ 


♦.. 


.....X* RESTART ♦X... 


♦. COMMAND .♦ 


♦SEQUENCE NUMBE 




♦SEQUENCE NUMBERS 


♦ . .♦ 


♦ • •♦ 


♦ 




♦ . .♦ 




♦ ♦ . 



*****^l********** 

* * 

* INDICATE DATA ♦ 

♦ CHECK IN ♦. 
♦RESTART NUMBfcR ♦ 

♦ ♦ 
***tt*****^*^f**lf*^ 



«*^*F !♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ POSCHECK ♦ 

♦ ♦ 
ti^i************* 



REFERENCES ♦♦♦♦ 
TO QNGl: ♦ ♦ 
QME3, QPB5 ♦ ♦ ♦.X 

POSCHECK .' 
Gl 



♦♦♦♦♦ 
♦QM ♦ 
♦ H4^ 



****iH*********^** 



***** 

♦ QM ♦ 

♦ H4^ 



***************** 



*****^tt.********** 

♦ SET RESTART ♦ 
♦SEQUENCE NUMBER*. ...X. 

♦ TO NINE ♦ 



**??f**e'e'e*****'!:?:* 



^^■♦♦F4*^^^^^^*^ 



***:^*********** 



REFERENCES 
TO 0NG4; 
QMJ4, QPC5 
0PG3. OOEl 
***** 

* * 

* ** 



**** 

♦ ♦ 

♦ 05* 

♦ ♦ 

**** 



**** 
CHECKEXT 

*^***Q/f********** 



.♦ SECONDARY ♦. YES 
♦.FEED COMMAND .♦. ... 



.♦ 
.♦ 
♦ NO 



X 
♦♦♦♦♦ 
♦QP ♦ 
♦ A3^ 



PRICHECK X 

4c4c*4c^H !♦♦♦♦♦<♦♦♦♦♦ 

♦ ♦ 

♦ ADD ONE TO ♦ 

♦ RESTART * 
♦SEQUENCE NUMBERS 

♦ ♦ 
********l,****ilii*^iif 



Jl ♦. 
,♦ IS ♦. ♦♦** 

.♦ SECONDARY ♦.NO * ♦ 

♦.CARD PATH IN ......X^ A4 ♦ 

♦. USE .♦ X ♦ ♦ 

*, .* . ♦♦♦♦ 

♦ , ,♦ 
♦ YES 



♦ * 

♦ ADO FOUR TO ♦ 

♦ RESTART ♦. . 
♦SEQUENCE NUMBER* 

♦ * 



***************** 



*4(***\^it*ilHf****iti*ti 

♦STKSETUP QQ^ 

*_♦-*_♦_*_♦_*_*_* 

♦SET UP STACKER ♦ 

♦ NUMBERS ♦ 

* ♦ 

*****i^***ili*il,:ti*nt*iH 



***************** 
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.♦ ALL ♦. 

♦. INFORMATION 

♦ . PROCESSED. ♦ 

*. .♦ 

*. .* 

♦ NO 


YES 
.*.. .. 

X 

*♦*♦* 


X 
***** 


♦QO * 

* E2* 

* * 

* 


♦QP * 
* Al* 





Chart QP, $$AEERRC - Set up repcsitioEing infcriraticn fcr MFCM (Part 3 cf 4) 
Refer to Chart 03. 



***** 

♦QN ♦ 
♦ K4* 



***** 

♦ QN * 

* Gl* 



♦OM ♦ 



.*. 

Al ♦. 

.* MORE *. 
.♦ THAN ONE 
♦ . STACKER NO. 
*. ENTERED . 



TESTl X 

*****% l*^******** 

*STKSET3 QQ« 

*_♦_*_ ♦-♦-♦-♦^♦_# 

..X* FIND NEXT • 

* STACKER * 

* NUMBER * 
********if^ti *****itf 



*****C I********:** 

* * 

* SAVE TWO * 

* STACKER * 

* NUMBERS * 

* * 
********ilf^i^*****m 



31 



*• 



.* MORE 
•* THAN TWO *. NO 
. STACKER NO. .*. .. 
♦.REQUIRED .♦ 
*, .* 
*. .* 
* YES 



«*4t4>*E I********** 



♦ SAVE THREE ♦ 
.♦STACKER NUMBERS^ 



^il^flfS^'*.*********** 



SECCHECK .♦. 

A3 ♦. 
.♦ IS ♦. 
.♦ PRIMARY ♦. NO 
♦.CARD PATH IN ...... 

♦ . USE .♦ 
♦ . •♦ 

♦ . .♦ X 

♦ YES ♦♦♦♦♦ 

♦ QN ♦ 

♦ AA* 
* * 

♦ 
PPRICHKO 
X 
*****Q-i*****m**** 



CVRCHECK X 

*****l^<^ ********** 

♦INDICATE COVER ♦ 
♦INTERLOCK CHECKS 

♦ IN RESTART ♦ 

♦ NUMBER ♦ 

♦ * 

****m******i^m**** 



****Q2********* 

♦ ♦ 

♦ STKEXT ♦ 

♦ * 
***********:**** 



**** 

♦QN ♦ 



**** 

STKEXT X 

***ilf*^2********** 
* * 

♦SET UP STACKER ♦ 

..X^ PARAMETER ♦ 



♦♦♦♦ 

* * 

* E2 ♦ 



:»*4i4c4.3|> 3|t:#4:#4i>K* * * *« 



F2 ♦. 

. ♦ ♦. 

.♦ DATA OR ♦. 

♦ . EQUIPMENT .♦ 

♦. CHECK ,♦ 

♦ . ' .♦ 

♦. .♦ 

♦ YES 



*4>«*4c62 ♦♦♦♦♦♦♦♦♦♦ 
♦COLCALC QQ^ 

*-♦_♦-*-♦-*-*-*-♦ 
♦CALCULATE FIRSTS 
♦FAILING COLUMN ♦ 
* * 

***************** 



♦ ADD FOUR TO ♦ 














.♦ INITIAL ♦. NO 


♦ RESTART ♦ 












♦. SELECTION ...... 


♦SEQUENCE NUMBERS 












♦. .♦ . 


* * 












♦. .♦ 


***************** 












♦ . .♦ X 
♦ YES ♦♦♦♦♦ 
♦ON ♦ 
♦ Gl^ 

♦ ♦ 

POSCHECK 


SECCHKO .♦. 












X 


C3 ♦. 












^^♦♦♦C5 ♦♦♦♦♦♦♦♦♦♦ 


.♦ ANY *. 












r'-g^iftiuSJxr : 


.♦CARD BEHIND*. 


MO 










♦. THE PUNCH .♦ 


* « . . 










♦ PRINT IN ♦ 


♦ . STATION .♦ 












♦ RESTART ♦ 


♦ . .♦ 












♦ NUMBER ♦ 


♦ . .♦ 


X 










***************** 


♦ YES 


♦♦♦♦ 












♦ 


* 












♦ E4 


* 












♦ 


* 








X 




♦♦♦♦ 








***** 


X 












♦ON ♦ 


SECCHKl •♦• 




SECCHK2 .♦. 






♦ G4^ 


03 ♦. 






04 ♦• 






♦ ♦ 


.♦ ♦. 






•♦ ANY ♦. 






♦ 


.♦ IS A CARD ♦. 


^0 




.♦ CARD BEEN ♦, 


NO 


CHECKEXT 


♦.IN THE PUNCH .♦ 






,X^. STACKED •♦ 






♦ . STATION .♦ 






♦• DURING •♦ 








♦ . .♦ 






♦.CYCLE. ♦ 








♦ . .♦ 






♦ • .♦ 




X 




♦ YES 






♦ YES 




**** 










♦♦♦♦ 




♦ ♦ 




I 






♦ ♦ . 




♦ F4 ♦ 










♦ E4 ♦.X. 




♦ ♦ 










♦ ♦ . 




♦ ♦♦♦ 




X 






♦♦♦* X 








.♦. 




SECCHKR .♦• 








E3 ♦. 






E4 ♦. 








•♦IS THIS^. 






.♦ ♦• 








,♦ CARD FROM ♦. 


YES 




.♦ SECONDARY ♦. 


fES 




♦. THE FEED IN .♦ 






♦. PRE-PUNCH . 


* 






♦. ERROR .♦ 






♦. VACATED •♦ 










♦ . •♦ 






♦ . .♦ 










♦ . .♦ 






♦ . .♦ 










♦ NO 






♦ NO 










• 






•••••••.X. 










X 








•♦. 




SECCHK3 X 










F3 ♦. 






*m***pif********** 








.♦ ♦. 






* 


* 








•♦IS PRIMARY ♦. 


MO 




♦ ADD THO TO 


* 








4c. PRE-PUNCH .♦ 






.X^ RESTART ♦ 
♦SEQUENCE NUMBERS 








♦. VACATED .♦ 




'x 





*************:^t*** 



*****QS********** 

♦ SET RESTART ♦ 
♦SEQUENCE NUMBERS 

♦ TO NINE ♦ 

♦ * 
***********in**itL*m 



EXIT 

*it***»2********** 

♦ SAVE ♦ 

♦ REPOSITIONING ♦ 
♦INFORMATION FOR^ 
♦PHASE $$ABERRD ♦ 

♦ ♦ 
^nifm************** 



***** 

♦ QN ♦ 

♦ G4^ 



X 
***** 
♦QM ♦ 
♦ E5^ 
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Chart QQ. $$AEERRC - Set up repositioning information for MFCM (Part 4 of 4) 
Refer to Chart 03. 



*♦♦♦♦ 

♦ QM ♦ 

♦ G3* 



FEEOSEL X 

♦STORE LOCATION * 

♦IDENTIFICATION * 

♦ IN RESTART ♦ 

♦ NUMBER ♦ 

♦ « 



TEST450 ,♦. 




Bl ♦. 




.♦ ♦. 




BFRE .* DID CHECK ♦ 


BHNI 


...*. OCCUR AT CELL, 


♦ ... 


♦ .8—9 .* 




♦ • .♦ 




X ♦. •♦ 




♦♦♦♦ ♦ YES 




QN ♦ 




Gl^ 




♦ ♦ 




♦ POSCHECK . 




X 




• ♦. 




CI ♦. 




.♦ WAS ♦. 




.* IT A * 


YES 


♦. PRINT 


♦ .•X 


♦. COMMAND .♦ 





♦ ♦ 

♦ ADD ONE TO ♦ 

♦ RESTART ♦ 

♦ SEQUENCE * 

♦ NUMBER ♦ 



El ♦. 

.♦ WAS *. 
.♦ IT A ♦. YES 
♦ . READ .♦..X 
♦. COMMAND .♦ 



♦ . .♦ 
♦ NO 



j|i*«c4iA2 ♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ STKSETUP ♦ 

♦ ♦ 



STKSETUP .♦• 

82 ♦. 
.* ♦. 

•* COMMAND * 
♦ .WITHOUT FEED 



NOFEED .♦. 

B3 ♦, 

.♦ CARD ♦. 

.♦ STACKED ♦ 

...X*. DURING LAST 

♦. CYCLE .♦ 

♦ • .♦ 

♦ . .♦ 

♦ NO 



♦ ♦♦o 
♦ J2 ♦ 



#* 4i # A 4 4(4> ♦ 4< 4t4c ♦ « 4t 

♦ * 

♦ COLCALC ♦ 

♦ ♦ 



COLCALC 

♦ GET FAILING ♦ 

♦ COLUMN FROM * 

♦ 5Ef4Sr * 

♦ INFORMATION ♦ 

♦ * 



STKSETl 

m « 

♦ SET STACKER ♦ 

♦ SCAN COUNT TO ♦ 

♦ THREE ♦ 

♦ ♦ 



3(i4c4i4t4[02 ♦♦♦♦♦♦♦*♦♦ 

* * 

* SET STACKER ♦ 

* POINT TO LAST ♦ 

* ACTIVE ONE * 

* ♦ 



.♦ IS THIS ♦. YES 
ENTRY .♦... 
♦. VALID .♦ 



X 
♦*♦** 

♦QN ♦ 
» G4^ 



♦ * 

♦ ADD ONE TO ♦ 

♦ RESTART ♦ 
♦SEQUENCE NUMBER+ 

♦ ♦ 
^^^(^^(♦♦♦♦♦♦♦♦♦♦♦4i 



STKSET3 X 

♦ DECREASE * 
♦STACKER POINTERS 

♦ AND STACKER ♦ 

♦ SCAN COUNT ♦ 

♦ * 



.♦ ALL ♦. 

. INFORMATION . 

♦. PROCESSED. ♦ 



♦♦♦♦ 

* * 

♦ E2 ♦ 
« * 



4c4t4;#^H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ POINT TO ♦ 

♦ DEFAULT ♦ 

♦ STACKER ♦ 
« * 



♦ J2 ♦.X, 

* i 
♦♦♦♦ 



*«4c^J2 ♦♦♦♦♦♦♦♦♦ 

♦ RETURN VIA ♦ 

♦ REGISTER 14 * 

♦ * 



» * 

♦ SET UP ♦ 

♦ COLUMN ♦ 

♦ PARAMETER ♦ 

♦ * 



CALCl 

4i#)K4c4c04^^^^^^^^^^ 

♦ CONVERT FIRST ♦ 

♦ FAILING COLUMN ,♦ 

♦ TO PRINTABLE ♦ 

♦ CHARACTER * 
♦' * 



♦ * 

♦ SAVE THIS ♦ 

♦ FAILING ♦ 

♦ COLUMN ♦ 

♦ * 



4i*4c 4ip 44[4t4c^4»|i4<4c« 

♦ RETURN VIA ♦ 

♦ REGISTER 14 ♦ 

♦ ♦ 
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chart QR. $$ABERRD - KFCM/KFCU repositioning phase (Part 1 of 3) 
Refer to Chart 02. 



****A1 ***♦♦♦♦** 

♦ $«ABEPRD ♦ 

* ♦ 



:^*#«4[Bl«4c**4i*4c4i*4i 



LOAD PHASE 
POINTERS 



^i^^f^^nf *********** 



#:«>4i]|c4>C I********** 



* RELOCATE 1/0 
♦AREA ADDRESSES 



**:^tiilHc***tt******* 



:tcii:ili-ti*0l3lft* ******* 



SET UP PROPER ♦ 
CAW ADDRESS ♦ 



iti:t,iti*^^f*4:** ******* 



.♦ *. NO 

*. DeVlCE=5425 .♦. .. 

*• .* 



E2 ♦. 
.* *. 
.♦MAS FAILING^. YES 
•X^. COMMAND A ...... 

♦. PRINT .♦ 



«♦ 



. BFRE 
WRITEREP .*. 

E3 ♦. 

.* ♦. 
.♦ IS A CARD ♦. BHND 

...X^. IN PUNCH .♦ 

♦ . STATION .♦ 



PREPRINT 

^^^^^^^♦♦♦♦♦♦♦♦♦^ 
♦PUNCHREP QT^ 

*_♦_♦_*_♦_♦_♦-♦-♦ 

,..X^ REFILL PUNCH ♦..X. 

♦ STATION • 



***************** 



m****f I********** 



^^^^'♦♦♦♦♦♦♦♦♦♦♦♦^ 
♦♦♦♦ 



.♦WAS FAILING^. YES 
♦. COMMAND A .♦... 
♦. PUNCH .♦ 



* Gl * 

♦ ♦ 
♦♦♦♦ 



♦ UNCHAIN LAST ♦ 

♦ CCW THAT HAS ♦ 
♦BEEN GENERATED ♦ 

♦ ♦ 

^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



.♦WAS A CARD ♦. NO 
♦. IN PUNCH .♦..X 
♦ . STATION .♦ 



F3 ♦, 
.♦ WAS ♦. 
.♦ FAILING ♦- NO 
♦. COMMAND A .♦... 
♦. PRIMARY .♦ 
♦. ONE .♦ 
♦ . .♦ 
♦ YES 



♦♦♦♦ 

♦ ♦ 

♦ J3 ♦ 

♦ ♦ 
♦♦♦♦ 



♦♦♦♦ 
♦ 

♦ K2 
♦ 

♦♦♦♦ 



H2 ♦. 
WAS. *. 



♦DEVICE END 


♦ 


. NO 


.♦ FAILING 


♦ 


ONLY 




.♦. ... 


♦. COMMAND A 




♦ . 


* 




♦. PRIMARY . 


♦ 


♦ . .♦ 






♦. ONE .♦ 




♦ . .♦ 




X 


♦. .♦ 




♦ YES 




***** 


♦ YES 








♦QS ♦ 
♦ A3+ 






X 




♦ ♦ 






♦♦♦♦* 




♦ 






♦OS ♦ 






X 




♦ AI + 




PHIPPTST .♦. 




* « 






J2 ♦. 




♦ 






.♦ ♦, 
.♦ PRIMARY 
♦. PRE-PUNCH 
♦. VACATED , 
♦ . .♦ 
♦. .♦ 
♦ NO 


♦ 
♦ 



.♦ SECONDARY ♦. YES 
.X+. PRE-PUNCH .*.... 
♦. VACATED .♦ 



PCHREPS X 

*iti^:f*»it********** 

♦PRIMREP QS^ 

♦_♦_♦-♦_♦-.♦-♦_*-♦ 

...X^REFILL PRIMARY ♦ 
♦ PRE-PUNCH ♦ 



^^'♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦♦♦♦ 

♦ ♦ 

♦ J3 ♦... 

♦ ♦ . 
♦♦♦♦ 

PCHREPP X 

****4iJ^^Hf^c****tt** 

♦SECREP QT* 

♦-♦-♦-♦-♦-♦-♦-♦-♦ 

...X^ REFILL * 

♦ SECONDARY * 

♦ PRE-PUNCH * 
m**************** 



4c««4c«K !♦♦♦♦♦♦♦♦♦♦ 

♦SECREP QT^ 

♦-*_*_♦_♦_♦_*_*_♦ 
♦REFILL SECONOAR^X. 

♦ PRE-PUNCH ♦ 

♦ ♦ 

*^t:************** 



♦ K2 ♦.X. 

♦ ♦ . 
♦♦♦♦ , 

PREPUNCH X 

;4c4[**«K2 ********** 
♦PRIMREP QS^ 

....♦REFILL PRIMARY ♦ 

♦ PRE-PUNCH ♦ 



4t*4c4c«*:«««*4c^^^^^^ 



PCHREP X 

^^♦♦♦K3^^^^^^^^^* 
♦PUNCHREP QT* 

♦_»_*_♦_♦-♦-♦-♦-♦ 

♦ REFILL PUNCH *. 

♦ STATION * 

♦ * 
^■♦^^♦♦♦♦♦♦^♦♦♦^'♦^ 



ANY DUMMY ♦. 
COMMAND 
.GENERATED. ♦ 
♦ . .♦ 



♦♦♦* 

♦ ♦ 

♦ Gl ♦ 

♦ * 
♦ ♦♦♦ 



X 

♦♦*♦♦ 
♦OS ♦ 
♦ A^^ 
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Chart QS. $$AEERRD - MFCM/KFCU repositioning phase (Part 2 of 3) 
Refer to Chart 03. 



***** 

♦QR * 
♦ HI* 



***** 
*QR * 
* HI* 



***** 

♦ QR * 

* KA* 



**/i^l******* 



ENABLE I/O 
INTERRUPTS 



*********** 



*itiQl******* 



*********** 



*****Q I********** 



RESTORE CAW 
ADDRESS 



***************** 



***0l************ 

♦ EXECUTE ♦ 

REPOSITIONING 

* COMMANDS * 

***************** 



TIO 

DEVICE 

IS 



Fl ♦, 

**is device' 

BUSY 



NOTOPER 

*****!E2********** 



. NOOP VINDICATE DEVICE* 

.♦ X*NOT OPERATIONAL* 



***************** 



*****f2********** 

* * 

* RESET * 

* REPOSITIONING * 

* INDICATOR * 

* * 
***************** 



.*. 
Gl ». 

.* *. 

.*CHANNEL END*. 

ONLY .♦ 

*. .* 

*. »* 

*. ,* 

* NO 





HI *. 






.* * 




.* 




*. NO 


*. 


ANY ERROR 


.*. ... 


* 


**. .* 


* • 




*• .* 


X 




* YES 


* 
* AA 

* 




, ,, ,xl 


**** 




X 




Ierror 


.*. 
Jl *. 

»♦ * 




I NO .* 


TIO 


*. YES 


..• .♦. 


DEVICE 


.*•..... 


* 


END 


.* 



*****(i2********** 



PROVIDE FOR 
CANCEL EXIT 



***************** 



****ii2********* 

* * 
*FETCH $$ABERRA * 

* ♦ 
*^************* 



*SET UP MESSAGE * 
..X*CODE FOR ERROR ♦ 

* ON RECOVERY * 

♦ * 

***************** 



*****^^********** 

* * 

* MAKE IT AN * 

* ACTION TYPE * 

* MESSAGE WITH » 

* RETRY * 
***************** 



C3 *. 
.* *. 

.* ♦ 

*. DEVICE-5425 

*, ,♦ 

*. .* 



♦ YES 



*****Q^********** 



***************** 



* RESET ERROR * 
..X*INDICATION BITS* 



***************** 



4i4<***B4**** ****** 



***************** 



SUPRET X 

*****(^it********** 

*SUPRET OS* 

♦_♦_♦_♦-♦-»_*-♦-♦ 

* SET UP PROPER * 

* EXIT ADDRESS * 

* * 
***************** 



****Q/f.********* 

* RETURN TO I/O * 

* INTERRUPT * 

* HANDLER * 
*************** 



SVC5 

****E3 ********* 

* ♦ 
*FETCH $$ABERRL * 

* ♦ 
*************** 



4C4C4I4CA5********* 

* * 

* PRIMREP * 

*************** 



.* WAS *. 

PRIMARY 

PRF-PiiNCri 

. VACATED . 



PRINREPA X 

*****£t^ ********** 

* PROVIDE DUMMY * 

* READ Af^D * 
♦STACKER SELECT * 

* COMMAND FOR * 

* PPIMAPY * 
***************** 



*****[)^ ********** 

* * 

* INSF'^T PROPER * 
*STACKEP NUMBER * 

* TMjn SFLFCT * 

* CHMMAMO * 
***************** 



*****^^ ********** 

* UPDATE * 

* COMMAND * 

* CHAIN * 

* POTNTFR ♦ 

* ♦ 
***************** 



****ft:, ********* 

* RETURN * 

* TO MAIN * 

* ROUTINE * 
*************** 
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Chart QT. $$AEERRD - NFCM/IVFCU ref csitioning phase (Part 3 cf 3) 
Refer to Chart 03. 



* ♦ 

* SECREP * 

* * 



SECREP .*• 

B2 ♦. 

.♦ HAS «. 

.* SECONDARY *. YES 

*. PRE-PUNCH .*. 

*. VACATED .* 



OUMREAO 

*«t«»«C2 »♦♦♦♦»♦*»♦ 

♦ PROVIDE DUMMY * 

♦ READ AND * 
♦STACKER SELECT * 

♦ COMMAND FOR * 

♦ SECONDARY ♦ 



SSINSERT X 

* * 

* INSERT PROPER * 

* STACKER NUMBER * 

* INTO SELECT * 

* COMMAND * 



i(c4>**4>E2 *♦♦♦♦♦*♦♦♦ 



«****4>^*4i*«**4c*4c4t 



«4c4c*A34c4c*:(c4!4c4i^4e 

* PRIMREP * 

♦ ♦ 



♦GENERATE DUMMY ♦ 

♦ PUNCH AND ♦ 
♦STACKER SELECT ♦ 

♦ COMMAND ♦ 



«::»4c#4iC3 ♦♦♦♦♦♦♦♦♦♦ 

♦ INSERT PROPER ♦ 
♦STACKER NUMBER ♦ 

♦ INTO SELECT ♦ 

♦ COMMAND ♦ 



FEEDTST .♦. 

03 *. 

.♦ MAS ♦• 
.♦ THAT ♦•NO 

♦• COMMAND FOR .♦.•, 
♦.SECONDARY.^ 
♦.FEED .♦ 
♦ • •♦ 
♦ YES 



♦ * 

♦ MAKE THIS ♦ 

♦ COMMAND A ♦ 

♦ SECONDARY ONE ♦ 

♦ » 



♦ RETURN ♦ 

♦ TO MAIN ♦ 

♦ ROUTI NE ♦ 



FEEDTSTl X 



*4'*#«*4>4'#i<4c4>4>*4'** 



♦♦♦♦G3 ♦♦♦♦♦♦♦♦♦ 

♦ RETURN ♦ 

♦ TO MAIN ♦ 

♦ ROUTINE ♦ 



Detail Charts 227 



Chart QIJ. $$_AEEREE - MFCU Feed Check Handling (Fart 1 of 2) 
Refer to Chart 03. 



*♦♦* A I ♦*♦*♦*♦♦♦ 

♦ * 

♦ $«ABEPEE * 

♦ * 



«*««:«B I***:******* 





**** 

* * 

♦ A2 ♦ 

*♦♦* 


FCHl X 

t****i^p ********** 



* GET STACKED * 

♦ NUMBER riF LAST ♦ 

* SELECTED CARD ♦ 

♦ * 
***************** 



*****^i^********** 

* * 

* GFSEPATE * 

* CONTROL -FEED * 

* ccw * 

* * 

******* *^,****^i**7k 

**** * 

* * . 

* R4 *.X. 

* * « 
♦ ♦** X 

H6 .*. 

B4 *. 



****** ****:ti*****:tl, 



♦GET FEED CHECK ♦ 
♦RESTART NUMBER ♦ 

♦ INTO MESSAGE ♦ 

♦ ♦ 
*t*iii*i****Him***'**** 



*****0l********** 

♦ ♦ 

♦ GET NUMBER OF ♦ 

♦ AFFECTED CARD ♦ 

♦ FEED INTO ♦ 

♦ MESSAGE ♦ 



4i4t^*4cE !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ GET NUMBER OF ♦ 
♦AFFECTED CARDS ♦ 

♦ AND UPDATE * 

♦ MESSAGE ♦ 
*i*i*****if******.*** 



.♦ 1 CARD IN ♦. 
. TRANSPORT .♦ 
♦ . •♦ 



4c«4t4[«G !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ GENERATE ♦ 

♦ CONTROL-FEED ♦ 

♦ CCW ♦ 

♦ ♦ 



♦ ♦ 

♦ GENERATE ♦ 

♦ CONTROL-FEED ♦ 

♦ CCH ♦ 

♦ ♦ 

*i*i*i*:**i*********** 



FCH? 




.♦. 






02 ♦. 




• ♦ ♦ 


NO 


.♦ 


REPRINT 


...♦ 




NECESSARY 




♦ . 



4t4t«4i*i£2 ♦♦♦♦♦♦♦♦♦♦ 



GENERATE 
PRINT CCW 



*****i^***^******* 



NO .♦ 3 OR MORE ♦. 
..*. CARDS TO .♦ 
♦. REPOS. .♦ 



*****Q2********** 

* * 

* GENERATE ♦ 

* CONTROL-FEED ♦ 

* CCW ♦ 

* ♦ 

****** ****i*li***** 



.♦ WAS OTHER ♦. YES 
♦ .WAIT STATION .♦... 
*. EMPTY .♦ 
♦ . .♦ 



♦ * 

♦ GENERATE FEED ♦ 

♦ CCW FOR OTHER ♦ 

♦ CARD PATH ♦ 

♦ ♦ 
***************** 



*****f^ ];♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SWITCH PRINT ♦ 

♦ BUFFERS IF * 

♦ NECESSARY * 

♦ ♦ 
*****(************ 



FCH4 
NO . 



.X.. 
X 

♦*** 

♦ ♦ 

♦ A2 ♦ 

♦ ♦ 



.♦ ♦. 
REPRINT ♦. 
REQUIRED .* 



*****j2********** 



GENERATE 
PRINT CCW 



***************** 



****Q-i****l****** 



GENERATE 
PRINT CCW 



**************** 



♦ GENERATE * 

♦ CONTROL-FEED ♦ 

♦ CCW ♦ 

♦ * 

***************** 



.♦ ♦• 

NO .♦ LAST CARD ♦. 

.^o*. TO PUNCH 



*****f:^********** 



GENERATE 
PUNCH CCW 



*i*******t*****:**** 



FCH13 



G3 



.♦ ♦. 

NO .♦ LAST CARD ♦. 
...♦. TO PRINT .♦ 

♦ . .* 

♦ . .♦ 

* . .♦ 
♦ YES 



*****}^j********** 



GENERATE 
PRINT CCW 



*****^f*C********** 



****************** 



FCH5 ,*, 






K2 ♦. 






.♦ ♦. 






-♦ ? OR MORF 


♦ . 


NO 


*e CARDS TO 




♦#«ee 


♦. REPOS. . 


* 




♦ . .♦ 




, 


*. . ♦ 




X 


♦ YES 




**** 

* 1 

♦ B^ 


X 




♦ 


**** 




**** 


* * 






♦ A4 ♦ 






* ♦ 






**♦* 







REPUNCH 
NECESSARY 

'♦. .♦* 

♦ , ,♦ 
♦ YES 



*****{)i^********** 



GENERATE 
PUNCH CCH 



*******^********* 



*****^/^********** 

* * 

* INDICATE ♦ 

* REPUWCH IN ♦ 

* ERROR MESSAGE ♦ 

* * 

***************** 



F4 ♦, 

NO .♦'last CARO'^. 
...♦.TO BE PRINTED.* 

♦ . ,♦ 

♦ . .♦ 

♦ . .♦ 
♦ YES 



****Q^****i****** 



**************** 



♦ GENERATE ♦ 
X^ CONTROL-FEED * 

♦ CCW * 

♦ * 
********i********* 



*****JS^******i**** 



***************** 



X 
***** 

♦ov ♦ 

* A3* 
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Chart QV. $$AEEREE - MFCU Feed Check Handling (Part 2 of 2> 
Refer to Chart 03. 



*QU * 
* J4* 



*TNDICATE IN PUB* 
♦REPOS. REQUIPEO* 



^(♦^'♦^■♦♦♦♦♦Icic^c^c^^i*: 



1^1^t**m ********** 

* * 

* RESET ERROR * 

* ENTRY BUrLT * 

* INDICATOR IN * 

* SYSCOM * 



* SET RETRY * 
♦ALLOWED BIT IN * 

* ERROR QUEUE ♦ 

* FLAG ♦ 



SVC5 

* * 
♦FETCH $$A8ERRN ♦ 

* ♦ 
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Chart QW. $$ABERRE - KFCU N.essage Writer (Fart 1 cf 2) 
Refer to Chart 03, 



* * 

* $$ABERPE * 

* * 



4t*4>4c*B34<*4<*«'*4c4<4:* 



4c <[ * 4e 4i #1*1 )|c 41 * * * 4c 4c * 4t 4> 



,tit***C3**'*'* **'**** 



4i4i4t4c*«4t4<4i«4<4>4t«>*«* 



♦4t*** 
♦ E5* 



4(4>4'* *044e4c4i*4<4<:)<t4> *# 



,* ERROR ON *. NO 




* INDICATE WRITE * 


*. RECOVERY .* 




* CHECK IN * 


*. .* 






* MESSAGE * 


*. .* 






4t 4< 


*. .♦ 




X 


4t*4t*4<4t>«<:«:*4<4<4e4<*4<** 


* YES 


4'**** 






*ox * 






* 


A 2* 






* * 




X 






X 


4<4'itc4>4< E3 *«*<"«"('*4"f ♦ 






4c4!4:4'4cE4*^4<*'*<***'^* 


* * 






^INDICATE WPITE * 


♦ISSUE ERROR ON ♦ 






* CHECK TO * 


* RECOVERY * 






♦ SSABERRD * 


* MESSAGE * 






* IN SYSCOM * 


♦ * 






4c 4: 


4t4>4c**«4E***4i*4c4>4>4<# 






4t«4c4<4<4>4c4c**«**4c«** 


♦ ♦** ', 








*QX * 








♦ K4 *.X. 








* ♦ aX***.*** 








4<*** 


* 






EXIT X 








4t 41 4c*«F3 ♦♦*♦*«*♦♦'<' 








♦ INDICATE IN * 








♦ PUB: * 








♦ REPOSITIONING * 








* REQUIRED * 









«:4!4c4!4'4c4c4!«*«*#*«:4<«: 



4c 4c 4c 4<*G3 *»**♦*♦♦*♦ 

* RESET ERROR * 

* ENTRY BUILT * 
♦IND. IN SYSCOM * 

* ERP AREA * 

* 4c 

4c4c«:«4<4c**4c4c4c4>«4c**>|c 



OXRB 4, * 
♦**4c 

ZXNOREP 

4c4c4c4>4cH3*'«***4'**** 

* SET RETRY * 
♦ALLOWED BIT IN * 

* ERROR QUEUE * 

* FLAG * 

* * 
4c4c4c4i**4c4c4c ♦* 4>4c*4! 4<4c 



***♦ 

♦ OX ♦ 

♦ G2 ♦.X 



4c4c4>^J3 ♦♦♦♦♦♦♦♦♦ 
♦ * 

♦FETCH $$ABERRN * 
4c * 

4c4c4'^^^^^^^^^^4c4c 
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Chart QX, $$ABERRE - NFCU F.essage Writer (Fart 2 of 2) 
Refer to Chart 03. 



*ow * 

♦ 03* 
♦ * 



♦INITIALIZE ERP * 

* AREA IJBHFCER ♦ 

* IN SYSCOM ♦ 

* * 



^1HF-lti-iti^2 ********** 



4c4<*:|c*4i**«4i#4>***4e4i 



♦♦♦♦»C2 ♦♦**♦*♦♦*♦ 

* ♦ 

* GET NUMBER OF * 

* AFFECTED CARD * 

* PATH * 

* * 



* * 

* Fl * 

* * 



4I****: 3^ 4(41 «♦***** 



#4c4:#p|^4(#4c *«*»♦* 

* ♦ 

♦FETCH $$A8EPEE ♦ 

* ♦ 
«#*4c4< 4:44c* slc^^^** 



HAS FEED 

CHECK 

.OCCURRED 



E2 *. 

.* ♦. 

FEED CHECK 



*4<#4i4tE34'«**^**»*^ 

* 4« 

* IDENTIFY * 

* DUPLICATE * 

* EQUIPMENT * 

* CHECKS ♦ 

4c4(*4c«*4i*«4'4:4t***4c4> 

* ♦♦♦* 

♦ * 

..X* El * 

* * 
*4'** 



.* *. YES * INSERT * 

.HOPPER CHECK .*., X* HOPPERCHECK ♦ 

*. .♦ *RESTART NUMBER ♦ 

*. .* ♦ * 

♦ , ,* ♦4t*4«4!4t*4t4!4t4t»**4'** 



EOPl 

4c4c*4!4>D4**4>*****«* 

* CHECK AND * 

* IDENTIFY ♦ 
. ..X* DUPLICATE ♦ 

* EQUIPMENT * 

* CHECKS * 
4c4i4<**4e**4t4E**«#4t«* 



E4 *. 

.♦ ♦. 

* HAS PUNCH 

CHECK 
♦.OCCURPFO . 



♦ . 



#4<4<«*F4**4<**«'***4' 

♦ ♦ 
♦INDICATE PUNCH * 
♦CHECK IN FPROR ♦ 

♦ MESSAGE ♦ 

♦ 4> 

«4:*4<**4>4<:4c«*4<4>4c4<*4' 



4i4c4c4c*G4**^^^^^*** 



X 

♦♦**♦ 
♦ow ♦ 
♦ m* 



.♦ INITIAL *. YES 


.♦ READ OR ♦. YES 


♦ GET STACKER * 


. SELECTION .♦ 




♦. SIMPLE FEED .♦ 




♦ NUMBER INTO * 


♦ , . * 




♦.SPECIFIED.^ 




♦ MESSAGE ♦ 


♦ . .* 




♦ . .* 




* 4c 


♦. . ♦ 


X 


♦ . .♦ 


X 




* NO 


4c*4<** 
*QW ♦ 
* J3* 


♦ NO 


4c«4c4c4c 
»QW ♦ 
* H3^ 


• 




♦ * 

* 


X 


♦ 4c 

* 


X 


X 




4i 4c 41 4c 4(H3 ♦♦♦♦♦♦♦♦♦♦ 




4:4c4c4c4cH4^^^^^^^^^^ 


4c 4[4<4cH2 ♦♦♦♦♦♦♦♦♦ 




* * 




♦ 4c 


IGNORE ERROR ♦ 




♦ GENERATE ♦ 




♦ GENERATE A ♦ 


(RETURN TO * 




♦ CONTROL-FEED * 




♦ CONTROL-FEED ♦ 


SUPVR) ♦ 




♦ COMMAND ♦ 




* AND SS AND * 


4c4>:4c4c* * 4i«4c «4c4<«4t4i 




4c 4c 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4:4c 4:*4c 4c 4c 4c 




♦ PUNCH CCW ♦ 

4c4c4c4c4c4:***^***4c4c4c4c 



«#4c4c*F5 ♦♦♦♦♦♦♦♦♦♦ 
4c ♦ 

♦ INDICATE READ ♦ 
♦CHECK IN FRROR ♦ 

♦ MESSAGE ♦ 

4c 4c 

4:*4c 4c4c4>4c 4c4c4c4c 4c4c4c4c 4c4c 



4:*4c4c4cG5 ♦♦♦♦♦♦♦♦♦♦ 
4c * 

♦ GET COLUMN ♦ 

♦ NUMBER INTO ♦ 

♦ MESSAGE ♦ 

4c * 

4i 4c 4c 4c 4c 4c 4c 4c 4c *4c 4c 4c 4c 4i 4c 4c 



4c 4c4c 4c 4c J3 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 
4! * 

♦IDENTIFY HOPPERS 

♦ CHECK TO * 

♦ $$A8ERRD IN ♦ 

♦ SYSCOM ♦ 

4c»4c4c**4c4c4:4c4:4c4c4:4c4c4: 



HAS CARD ♦. 

TO BE 
.REPRINTED. ♦ 



4c4c4c4c4cK4^*^^^^^^^^ 



4c 4c#4c 4c* 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c4c4:*4c 

♦OW ♦ 
♦ F3^ 
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Chart RA. $$AEERRY - Unit Reccrd ZRP (Part 1 cf 4) 
Refer to Chart 02. 



* * 

* $$aBckRt * 



3^lt***h2 ********** 



* ESTABLISH * 
♦ADDRESSABILITY * 



*4t4>«4t4i«*i|i4i4>*****4t 



NO .* 
,..*. 1441 

♦ . » 

♦ . .♦ 
♦. .♦ 
♦ YES 



ilf^i^:^^02********** 

♦ ♦ 

♦ TURN OFF TYPE ♦ 

♦ BAR SELECT IN * 

♦ SENSE BYTE * 

♦ ♦ 



1^:t^^^^l^^2********** 

♦ * 

* CALCULATE * 
♦ADDRESS OF LAST* 

♦ USED CCH ♦ 

* * 
ilf^m************** 



♦ ♦ 

♦ INSERT X»19» * 

♦ UNDETERMINED ♦X 

♦ ERROR MESSAGE ♦ 

♦ * 

i^^*ii^*iHl^^*t******* 



* ♦ 

♦ INSERT ♦ 

* X'03' IN MASK ♦ 

♦BYTE OF INSTR+ 

♦AT UNUSENS ♦ 



♦ CHANNEL 
DATA CHECK 



♦ INSERT X'28« ♦ 

♦ CHANNEL DATA ♦ 

♦ CHECK MESSAGE ♦ 

♦ CODE ♦ 





.♦. 






-♦. 






.♦. 










HI ♦. 






H2 ♦. 






H3 ♦. 








.♦ IS ♦. 






* *. 






* *, 








.♦ DEVICE A ♦ 


YES 


,♦ 


♦. 


YES 


.♦ 


INITIAL 


♦ . NO 






♦.2501. 2596 OR 


♦# #•- 


*n 


?'560/54?5 - 


*-, e t r e = 


. )(♦- 


SELECT I QM 


^♦sc s 






♦. 1442R/P .♦ 




# 


.♦ 




* 




4c 








♦ . .♦ 






♦ . .♦ 






'♦. .♦ 










♦ • .♦ 


X 




*, ,* 






♦ . .♦ 










♦ NO 


#*4>*4i 




♦ NO 






♦ YES 


REFEPENCFS 








♦RB ♦ 












TO 


0AJ4: **♦* 








♦ H3^ 












RBH3, 


RCC4 * * 






• 


♦ ♦ 

♦ 




• 








RCJ3, 
RDKl 


R0F4 * * *,K 
♦ * 






X 






X 










**♦* 






.♦. 






.♦. 










EXITA X 




Jl ♦. 






J2 ♦. 






J3* '♦. 




*4cJ44t«*4!**4c 




.♦ IS ♦. 




.♦ ♦. 






,♦ ♦. 




* ♦ 




.♦ DEVICE A ♦ 


NO 


.♦ 


INITIAL ♦. 


YES 


.♦ 




♦ . YES 


♦ TURN OFF ♦ 




♦. 1442R 

♦ . •♦ 


,♦. ... 


♦. 


SELECTION , 
.♦ 


♦ 


♦.RETRIED ONCI 
♦ . 


- .♦. . . 


.....X* ALLOW 


RETRY ♦ 

;nore ♦ 




♦ 


♦ AND I( 




♦ . .♦ 






♦ . .♦ 






♦ . .♦ 




♦ IN EROFLG ♦ 




♦ . .♦ 


X 




*. .♦ 


X 




♦ . .» 




^,*itcrtc*****iti* 




♦ YES 


*♦♦♦♦ 




♦ NO 


♦*♦»* 




♦ NO 


PEFERFNrF5^ 


REFERENCES 
TO RAKl: 
RBC3, RCC2 


*♦♦♦ 

♦ * . 

♦ ♦ ♦.X. 

♦ ♦ . 
♦♦♦* X 


♦RB ♦ 

♦ A3^ 

♦ ♦ 




X 


♦ RB ♦ 

* 




X 
***** 
♦ RB * 


TO 

RB82, 
0BJ4, 
R0J4, 


RAK4: *♦** 
P0K5 l^^^* 




TSTCCC .♦. 






.♦. 






♦ El^ 




EXIT 






Kl ♦. 






K2 ♦. 






* * 




X 




.♦ ♦. 






.♦ IS ♦• 






* 




Hi^i**f(^i^f ******** 




.♦ CHAINING ♦ 


. NO 


.♦ 


DEVICE A ♦. 


YES 








* SVC5 FETCH ♦ 




♦ . CHECK 


.♦. ••. 


♦. 


PR NTER -♦ 








♦SSABFRRK CHART *% 




♦ . .♦ 




♦ 


.♦ 










♦ XX ♦ 




♦ . .♦ 






♦ . .♦ 










***4<*4c#**#*4t«*« 




♦ . .♦ 


X 




♦. .♦ 


X 












♦ YES 


♦♦*♦♦ 

*«8 * 




♦ NO 


♦**♦♦ 
♦RB ♦ 














♦ H3^ 






♦ Gl^ 












X 


♦ * 




X 


* * 












**** 


* 




#4(4t4:# 


* 












♦ ♦ 






♦RB ♦ 














♦ K4 ♦ 






♦ A1 + 














♦ * 






♦ ♦ 














♦*4>* 






♦ 
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Chart RB. $$ABERRy - Unit Record ERP (Part 2 cf 4) 
Refer to chart 02. 



*♦♦♦♦ 

*RA ♦ 
* K2* 



Al ♦. 
.» IS ♦. 

» DEVICE A 
1442P OR 
•• 1442R/P • 

♦ . .* 
♦ . .♦ 
* NO 



.*. 
Bl *. 
.♦ XXXX *. 
OCCURRED 
OR A READ 
. COMMAND . 
*. .♦ 
♦ . 



•REFERENCES **** 
TO RBB2: * ♦ 
RDB4, RDC3 ♦ ♦ i 
R0E3, RDF3 » » 
R0J5, RDK3 ♦♦♦♦ 

ATYPE X 



***** 

*RA * 

* 


**** 

* ■ * 
« A4 * 

* * 
**** 


• 


• 


X 
**l^^******* 

* * 
* INSERT ♦ 

X»05« IN MASK ♦ 
♦BYTE OF INSTR* 

♦ AT US ENS * 
*********** 


EQUIP X 

*****l^t^********** 

* * 

• ♦ 
If**************** 



YES 



♦♦♦* 



* NO 



■JEFEPFNCES 
1 *•* y" TO RBCI: 
* * *.X. PAJ2, RDDl 

3TY0NE .*. ^'^^ 

CI *. 
.* PUB *. 
.♦ ERROR ♦. YES 
♦. COUNT = 1 ...... 



♦ TURN ON ♦ 
....X* INTERV REQ IN 
X ♦ ERQFLG ♦ 

* ♦ 

*********** 
**** 
» * 

♦ B2 * 

♦ * X 
**** ***** 

♦RA • 
♦ K4* 



83 ♦. 

.♦ IS *. 
* DEVICE A ♦ 

2540R 

*. .♦ 

♦ . .♦ 

♦ . .♦ 

* NO 



.♦. 
C3 *. 
.* IS ♦. 
• * DEVICE A *• YES 
♦. 2540P .♦..X 



.♦ 




.* 


X 


♦ NO 


***** 




*RA * 




♦ K4* 




* * 




* 



*. 



•• 



***** 

♦ RA ♦ 

♦ Kl* 





X 








.♦. 








84 ♦. 








• ♦ ♦« 






,* 


2540 


*, 


YES 




OR 




♦ .... 


* 


. 1442R/P •♦ 






♦ • .♦ 








♦ . .♦ 




X 




♦ NO 




♦♦♦♦ 








♦ 




, 




♦ 82 « 








♦ 








♦♦♦♦ 




X 








• ♦• 








C4 ♦. 








.♦ ♦. 




.♦ 


2540P 


♦. 


YES 




OR 




♦ .... 


*♦ 


. 2520P •♦ 






♦ . .♦ 








♦ . .♦ 




X 




♦ NO 




♦♦♦♦ 



♦ F4 ♦ 

♦ * 
♦♦♦♦ 



««4>«*0 !♦♦♦♦♦♦♦♦♦♦ 



4<:tc««**#4c4c4E***4t#4i* 



♦ *** 
♦RA ♦ 

♦ J3 ♦.X 



**** 

X 
4i4c4:*4eE !♦♦♦♦♦♦♦♦♦♦ 



*iH***rlf*********** 



NO .♦ ♦. 

...♦.RETRY ALLOWED. ♦ 
♦ • .♦ 

♦ . .♦ 
♦ , .♦ 
♦ YES 
♦♦**^ * REFERENCES 

* * * Y* TO RBGl: 

* ♦ *.X. RAK2, R0D4 

* * - 00F3, RDJI 
RnK2 



*♦*♦ 
X IGNORE 

*««4<*G !♦♦♦♦♦♦♦♦♦♦ 

* * 

* LOAD IGNORE ♦ 

* EXIT ADDRESS ♦ 

* REG 15 ♦ 

* ♦ 

ilfi^iilf1f^e***********it 



♦RESTORE CCW ANO^ 
♦I/O ADDR IN LOW^ 

♦ REAL STORAGE, ♦ 

♦ RESET SVC5NM ♦ 

♦ AND PUBFLAGS ♦ 

^t1fif:it:************* 



♦ BRANCH TO ♦ 

♦ ERPEXIT IN ♦ 

♦ SUPERVISOR ♦ 



♦ ♦ 

♦ INSERT ♦ 

♦ X»02« IN MASK ♦ 

♦BYTE OF INSTR^ 

♦ AT UNUSENS ♦ 
*********** 



.♦. 

E3 ♦. 
.♦ IS ♦. 
DEVICE A ♦. 
2520R/P 

.♦ 



,♦ * 
.♦ 
♦• 2520R/P 



X 

***** 

♦ RC ♦ 

♦ A2^ 



.♦. 

F3 ♦. 

.♦ ERROR ♦. 

NO .♦ OCCURRED ♦. 

,..♦. ON A WRITE .♦ 

♦ • COMMAND •♦ 



**(^^******* 



♦ . 
♦. 

♦ . .♦ 
♦ Y 
♦♦♦♦ 

♦ ♦ • 

♦ F4 ♦.X, 

♦ ♦ . 
»♦♦♦ X 

XXXERR .♦• 
F4 ♦ 



1403/1404 

*♦. .♦* 

♦. .♦ 

♦ NO 



.X,...^. 2560/5425 •♦ 
♦ . .♦ 

♦ . •♦ 
X ♦. .♦ 

♦♦♦ ♦ YES 



♦ 82 ♦ 

♦♦♦♦ 



«♦ 

.♦ INITIAL '♦. YES 
♦. SELECTION ...... 

♦ • •♦ • 

♦ , .♦ 



♦ NO 



♦ G4 ♦ 

♦ ♦ 
**** 



X 

♦♦*♦♦ 
♦RD ♦ 
♦ B2^ 



♦♦♦♦ 

♦ G4 ♦ 

♦♦♦♦ 



***** 
♦RD ♦ 
♦ C5^ 



**G5 ♦♦♦♦♦♦♦ 



♦ X*OE« IN MASK ♦ 
♦BYTE OF INSTR^ 


♦.CCB AVAILABLE-^ 

♦ . •♦ 




.X^ ALLOW RETRY ♦X... 
♦ AND PASSBK ♦ 


♦ AT UNUSENS * 


♦ • .♦ 




♦ IN ERQFLG ♦ 


*********** 


♦ . .♦ 




*********** 




♦ YES 




**** 


♦♦♦♦ . QEFERENCES 
* * 'TO RBH3: 






**** 
♦RD ♦ 


♦ ♦ 

♦ G5^ 


♦ ♦ ♦.X. RAHl, RAKl 


. 




♦ H5 ♦.X 


* * 


* * • RCJ3 






* * 


, **** 


**** X 






**** 




UNUSENS •♦. 


X 


IGNORE X 


H3 ♦. 


**^^t^******* 




«#H5 ♦♦♦♦♦♦♦ 


.♦IMPOSS.^. 


* POST ♦ 




♦ * 


.♦ SENSE FOR ♦. YES 


♦BYTE-3, BIT-3^ 




♦ TURN ON ♦ 


..X^. THIS DEVICE ...... 


♦ IN CCB POST ♦ 




♦ ALLOW IGNORE ♦ 


♦ . .♦ 


♦ PASSBK IN ♦ 




♦ IN EROFLG ♦ 


♦ . .♦ 


♦ ERQFLG ♦ 




* * 


♦ . .♦ X 


*********** 




*********** 


♦ NO ***** 








♦ RA ♦ 


, 








♦ J4^ 










, ♦ ♦ 










. * 










X 


X 








.♦. 


.♦. 








J3 ♦. 


J4 ♦. 








.♦ ♦. 


.♦ USER ♦. 








.♦ EQUIPMENT ♦. YES 


.♦ WANTS ♦. 


YES 






♦. CHECK ...... 


♦• RETURN ON .♦ 


....X.. 






♦ . .♦ 


♦. ERROR .♦ 






♦ . .♦ . 


♦ . .♦ 






♦ . .♦ X 


♦ . .♦ 


X 




♦ NO ♦♦♦♦ 


♦ NO 


***** 




♦ * 




♦RA ♦ 




♦ A4 ♦ 




♦ K4^ 




X ♦ ♦ 




* ♦ 




***** **** 




* 




♦RD ♦ 








♦ Al^ 








♦ * 


K4 ♦. 




**K5 ♦♦♦♦♦♦♦ 


♦ 


.♦ ♦• 




* * 




.♦ ♦. 


YES 


♦ RESET ♦ 




♦. 2560 .♦ 




.X^ PASS 


JK IN ♦ 



*********** 



**** 

* * 

* B2 ♦ 

* * 
**** 

Detail 
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Chart RC. $$AEERRY - Unit Record ERP (Part 3 of a> 
Refer to Chart 02. 



***** 

♦RB ♦ 
♦ E3* 



TST03U .♦. 

A2 ♦. 

.* IS ♦. 

.♦ DEVICE A *. 

*. 1403U OR 

*. 1443/1445.* 

*, ,♦ 

♦. .* 

♦ NO 



**B2******* 

* ♦ 

♦ INSERT ♦ 

♦ X»OF« IN MASK * 

♦BYTE OF INSTR* 

*AT UNUSENS * 

***$******if 



C2 ♦. 

.♦ IS ♦. 

.* DEVICE A ♦ 

♦. 2520P OR 

♦.1403/1404.* 



«c«A4******* 

* * 

* TURN ON ♦ 
IHPOSS, SENSE 

* BITS X»2C« ♦ 

* * 

****^i^iti**^iti 



***** 
*RA * 
* Kl* 



*^D2******* 

* * 

* INSERT ♦ 

♦ X«2l« IN MASK ♦ 

♦BYTE OF INSTR^ 

*AT UNUSENS ♦ 



* ♦ 

♦ TURN ON ♦ 
♦ IMPOSS. SENSE ♦ 

♦ BITS X»20» ♦ 

♦ ♦ 
*iif%i^t****** 



**H2******* 

* * 

* TURN ON ♦ 
♦ IMPOSS. SENSE ♦ 

♦ BITS X'20» ♦ 

* * 



YES . 
...... 



*****(^ii^*il,*****^*^ 

♦ * 

♦ INSERT X'27« * 
♦XXXXXXX DEVICE * 

♦ MESSAGE CODE ♦ 

♦ * 



X 
***** 
*RA * 
* J4* 



.* 


♦ . 


YES 




.♦ 


CHANNEL 


* 


. YES 


*. 3203/5203U 




♦ 


..X^ 




CHAINING 




...... 


*. 


*' 






'* 


: CHECK 


.* 




*» »*' 










♦ . .* 






*. .* 










♦ • .♦ 




X 


♦ NO 










♦ NO 




***** 

♦ RA * 

* J4* 


X 










X 




* ♦ 


**** 










***** 




4c 


* * 










♦ RB ♦ 






♦ A4 ♦ 










♦ H3+ 






♦ * 










* * 
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Chart RD. $$ABERRY - Unit Record ERP (Part 4 cf 4) 
Refer to Chart 02. 



*RB * 
4i « 



.* ♦ 


. NO 




.4" ♦, YES 








* INSERT 


X«ll« ♦ 








*. 1403U 


.♦. 






X*. 3203/520311 .♦,... 








* DATA CHECK * 

♦ MESSAGE CODE ♦ 








♦ . ^ ,♦ 








♦ . .* 








*. .* • 








4c 4c 








♦ . .* 








♦. -♦ X 








4i4c4>4c4c4c4c4c4c4c4c4c4c4c*«« 








* YES 








« NO **** 






^ 








*4** 








**** , * 


♦ 
















* ♦ . 








♦RB * . * Bl 


♦ 
















* Bl ♦.X. 








♦ F4 4>,X. * 


* 
















♦ ♦ . 








* * , **** 
















*♦♦» X 








**** X 








X 








.*• 






TESTINT .♦. 


INTRFO 




.♦. 








Bl ♦. 








B2 ♦. 




*****B-i**,H***i^*** 




B4 ♦. 








.* *, 








m* *. 




* * 




.♦ ♦. 








.* * 


. NO 




•♦ *. YES 




♦ INSERT X«04« ♦ 




.♦ ♦. NO 






*, OVERRUN 


.*. 






,X*, INTERVENTION •4i«.... 




X^INTERV REO MSG ♦ 
♦ CODE ♦ 




*. PRINTER .♦ 
♦ . .♦ 


•• 


*: 




♦ . .* 






♦.REQUIRED .* 






*. .♦ 








*. .* 




* ♦ 




♦ . .♦ 








*, ,* 








*, .« 




4c4(4i4>^^^^^^4c4i4i4<4i^4t 




♦ . .♦ 




X 




♦ YES 








* NO 








♦ YFS 


♦ 4c 4c 4c 4c 
♦RB ♦ 






















♦ 


B2^ 






















4c 4c 
























4c 




















X 








X 
















.♦. 






• ♦• 


4>4t4»(c*C l«******«4<4t 






C2' *♦. 




C3' *♦. 




C4 ♦. 






rs ♦. 


* 


* 






,4> *. 




.♦ ♦. 




.♦ ♦. 






.* *. 


♦ INSERT X«33» 


♦ 






.* *. YES 




.♦ ♦. YES 


.♦ 1443P ♦. NO 




.* COMMAND *. YES 


* PARITY ERROR 


41 
* 






♦.BUSOUT CHECK .*.... 
♦. ,♦ . 




♦. 2560 .♦ 

♦ . .* 




♦. OR .♦ 
♦. 1445P .♦ 






.X4-, REJECT .*.... 


♦ MESSAGE CODE 






*. .* 


* 


4> 






*. .* 




♦. .* 




♦ . .♦ 






*. . * . 


^i.^^^************ 






♦. .* X 




♦ • •* 


X 


♦ . .♦ 






*, .* X 










♦ NO ♦♦♦* 


♦ NO 


4t*»** 


♦ YES 






* NO ***♦ 










, * 


♦ 




♦ RB ♦ 


♦ •♦4t 






• 4c ♦ 










* F5 


♦ 




♦ B2^ 


♦ * 






* Kl* 










* 


♦ 




4> 4' 


♦ D4 ♦.X. 






X 4c ♦ 










♦♦♦4I 




4< 


♦ ♦ . 






*^if** **** 


X 
















4c4c4c4c X 






*PB * 


• ♦. 








• ♦• 




X 


CMR .4t. 






* G5* 


01 *, 








D2 ♦. 




^1*03******* 




04 ♦. 






4c « 


• * ♦• 








.* *. 




* * 




.♦ ♦. 






* 


.♦ ♦ 


. YES 


.♦ *. YES 




♦IF CHANNEL 9 ♦ 




.♦ COMMAND ♦. NO 






♦. CHANNEL END 


.4«, 




♦. DATA CHECK .*.... 




♦OVERFLOW, POST ♦ 




♦. REJECT .♦ 




* 




♦ . .♦ 






, 


*. .* 




♦ IT IN CCB ♦ 




4t, .4c 








*. .* 








♦ . .* • 




♦ 4c 




♦• .♦ 








*. •♦ 






X 


*. .♦ X 




***:Him***** 




♦. .♦ 




X 




♦ NO 




***** 


♦ NO ♦*♦* 






♦ YES 


4c*4c4c4c 








♦RB * 


. * 


♦ 








♦ RB ♦ 








* 


CI* 


* A4 


♦ 








* 


Gl* 




X 




* * 


. ♦ 


* 






X 


* * 




*4i*«« 






* 


**** 






4c 4c 4c 4c 




4c 




♦RA * 








X 








4c 4c 








* K4* 








.♦. 




.*• 




♦ Fl ♦ 








* * 








E2 *. 




E3 ♦. 




4c 4c 








* 








.♦OVERRUN*. 




.♦ *. 




4c*4c4c 
















.♦ OR 2560 ♦. YES 




.♦ ♦. YES 


















♦. FEED/MACH .*.... 




♦. CHANNEL END .♦ 




















*• CHECK .♦ 




♦ . .* 


• 








\ 










♦ • ,* 




♦ • ,* 




4c 4c 4c* 






♦*4«4c 










♦. .♦ X 




♦ • •* 


X 


4c * 






♦ ♦ 










* NO **♦* 


♦ NO 


4'**^* 


♦ F4 ♦ 






♦ F5 * 


**** 








, 4< 


* 




♦ RB ♦ 


4c 4c 






4c ♦ 


* m 








* J3 


* 




♦ 82* 


4c 4c 4c 4c 






**** 


♦ Fl *... 








, ♦ 


* 




4" 4t 










4c * » 








4t*4i4> 




* 










**** X 
























COMREJ .*. 








• ♦• 




• * . 


NOCHANFN X 




BUSnuT X 


Fl ♦. 








F2 ♦. 




F3 ♦. 




**p4«4<**4c4c4c 






4c4c* *«(: 5 I|i4c4c*ic4c4c4i 4ti(< 


.4' 4t, 








.* *. 




.♦ ♦• 




4c 4c 






4c 4c 


YES .* 1403P OR * 






YES »* COMMAND *. 




.♦ *. YES 


♦ SET NO CHN ♦ 






* TNSFRT X«09« * 


•...*. 1404P OR 


'.*%. 




..♦. REJECT .* 




*. DEVICE END .* 




♦ FNO MSG CODE ♦ 






*BUSOUT MESSAGE * 


*. 5203 .* 








*. •* 




♦ . .♦ 


, 


4c 4c 






* CODE * 


*, ,4> 








*. .* 




♦ . .♦ 




4c 4c 






4c 4c 


*. .* 








♦ . .♦ 




♦ . .* 


X 


*4c*4c4>4c4c4>«4c4c 






4c 4c4c 4<4c * 4c 4c 4c 4c4c4c4c 4c 4c 4c 4= 


* NO 








* NO 




♦ NO 


♦ ♦4<^* 


* 








• • 












. 4t4<** 


♦ RB * 










I • 








; 




. ♦RB ♦ 
..X^ B2 ♦ 


* Gl* 
♦ 4c 


X 




















* * 


* 


4c4c4c#4c 








X 








X 




♦♦4>* 




♦RA ♦ 






X 


• .4". 








.♦. 




.*. 




♦ J4^ 






.*. 


Gl ♦. 








G2 *. 




G3 ♦. 




4c 4c 






G5 *, 


.♦ 4>. 








.* *• 




.♦ ♦. 




* 






,4c *, 


.* 1443P OR * 


. NO 




.♦ UNUS.COMM *. NO 




.♦SENSE BYTE ♦. YES 








.* INITIAL *. YES 


*. 1445P 

*• .♦ 


.*, 


•' 


• 


*. SEO OR 2560 •*....• 




X+. = X'DO' .♦ 

♦. .* 










*. SELECTION .*.... 
*. ,* . 


♦. NO CARD .* 


• • 






♦ , ,4t 






, 


♦.AVAIL.* 




♦ . .* 












*. .* 


. ♦, ,4t 






X 


*. .* 




♦ • .♦ 












*, ,* X 


* YES 




**** 


♦ YES 




♦ NO 












* NO 4c*4c4c4c 






* 


* 


















4«PB * 


...■...•••«X. 




* 


Kl ♦ 

* 


















* CI* 

4c 4" 






* 


* 
















. 




**** 


. 
















* 



.* *. NO 


.♦ ♦. YES 




.♦ CHAINING *. NO 




,4c 


♦. 




,* 


l40*=iP 


**. 


YES 


*.CCW AVAILABLE.*. ... 


*. 5203/5203U .♦. 


... 




*. CHECK .* 




X* 




PRINTER .*.... 


*. 


OR 




*. . .. 


♦ . .♦ 




♦. OR 3203 .♦ 






*. .* 






** 


,4c 




*. 


1404P 


.* 




♦ . ,♦ 




♦ . »♦ 






*. .* 








*. .* 






*, ,* 






♦ . .♦ 


X 


♦. .♦ 


X 




*. -* 








*. .* 






*. .* 




X 


* YES 


**** 


♦ NO 


***» 


* YES 








* YES 






* NO 




***♦♦ 




* * 

♦ Kl ♦ 


• 


4c 

♦ F4 


4c 
♦ 


♦*♦* 

♦ ♦ . 


















*RB * 
* H5* 




* 4c 




4c 


♦ 


♦ J3 ♦.X. 


















* * 




4c**4c 


* 


4c4c4c4c 


♦ * , 


















* 


X 










♦♦** X 








X 






X 






.*. 




X 




OVERRUN .♦. 








.*. 






.*- 






Jl *. 




**j2 4'4c*4c4c4<4c 






J3 ♦. 








J4 *. 






J5 *. 






.* ♦. 




♦ TURN ON ♦ 






.♦ ♦. 






.♦ *. 






* * 






.* *. YES 


♦ UNUSUAL ♦ 






.♦ 1443P *. YES 




.* 


INITIAL *. NO 




.*' 


1447R/P 


* 


YES 


*. CC SET MODE .*.... 


♦ COMMAND SEQ ♦ 






*. OR .* 


• a . . 


4c 




SELECTION .*..X 




*. 


OR 


.*. ... 


♦ . .♦ 




♦<CCB BYTE 3, ♦ 






*. 1445P .* 






*4c 


, ,♦ 




*. 


I442R 


.* 




♦ . .♦ 




♦ BIT 41 ♦ 






*. .* 








*. .* 






*. ,* 






♦ . .♦ 


X 


*,f********* 






*. .* 


X 






*. ,* X 




*. .* 




X 


♦ NO 


♦♦4c 4c* 








* NO 


*4c4c* 






* YES ***** 




* NO 




***** 


♦ 4c4c4c 


♦RB ♦ 










* 4c 






♦ RA * 








*RB * 


♦ ♦ . 


♦ Gl^ 










* 04 * 






* K4* 








* 82* 


♦ Kl ♦.X. 


♦ 4c 










* 4c 






X * * 








* * 


4c ♦ 


4c 










4c 4c 4c 4c 






***** He 








* 


4c4c4c4c 










^ 








*RB * 




X 






EXITB X 




X 






X 








* CI* 




. *. 






4c*4<*4cK l^^^^^^^^^^ 




«****K2 ♦♦♦♦♦♦♦♦♦♦ 






****4cK3********^* 








* * 




K5 *, 






♦ ♦ 




♦IF 2560 INSERT ♦ 






♦ 4c 








* 




* * 






♦ INSERT X«18» ♦ 




♦X»18» COMM REJ.+ 






♦ INSERT X« 14« ♦ 










.*' 




* 


NO 


♦COMMAND REJECT ♦ 




♦ MSG CODE AND ♦ 






♦OVERRUN MESSAGE^ 










*. 


2540P 




.*. ... 


♦ MESSAGE CODE ♦ 




♦TURN OFF ALLOW ♦ 






* CODE * 












*. 




* 


. 



**4c*4:*>it4c4c**4E4t««4c4( 



♦ *♦*♦ 
♦RA ♦ 

♦ J4^ 



**♦♦♦ 
♦RB ♦ 
♦ Gl^ 



4c************4c*** 



***** 

♦ RB ♦ 

♦ B2^ 



* YES 


***** 




*P A * 


, 


* K4* 


X 


* ♦ 


***** 


* 


*RB * 




♦ CI* 
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Chart RE. $$AEERRW - Console Printer Keyboard and CRT ERP 
Refer to Chart 02. 



♦ SSABERRH * 



♦ SET UP ♦ 

* POINTERS ♦ 
♦TO ERROR BLOCK ♦ 

* AND PUB * 

♦ ♦ 



♦ TURN ON ♦ 
*ALLOM IGNORE ♦ 

•IN ERROR QUEUE 
♦ FLAG BYTE ♦ 

* ERFLG ♦ 



X 

•*• 
01 *. 
.♦ ♦• 

> CHANNEL 

DATA 

^. CHECK • 

♦ . •* 



♦♦*♦ 

♦ ♦ 

♦ B2 ♦ 

♦ * 



X 

-*• 

B2 *. 

,♦ ♦, 

.♦ 4 

. EQUIPMENT 

*. CHECK .# 



B3 *. 

•** MOD 125 **, YES 
.X*. INTEGRATED ...... 

*. DISPLAY .* 
.UNIT 



* YES 



* INSERT X»28» • 

* CHANNEL ♦ 

* DATA CHECK ♦ 

* MESSAGE CODE * 

* * 



INSERT Xn9« 



♦ INSERT X«08» ♦ 
♦INTERVENTION RE^ 

♦ QUIRED ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 
4i*4>^^* ♦♦♦♦♦♦♦♦*♦♦ 



.♦ ♦. 

• ♦ ♦ 

♦.INTERVENTION 

♦.REQUIRED .♦ 

♦ • •♦ 

♦. .♦ 

♦ NO 



♦ INSERT X»09» ♦ 

♦ BUSOUT CHECK ♦ 

♦ MESSAGE ♦ 

♦ CODE ♦ 

♦ ♦ 



♦ . .♦ X 


♦ NO ♦♦♦♦ 


♦ 


♦ K5 


• ♦ 


♦ ♦♦* 


X 


.*. 


C3 ♦. 


.♦ ERROR ♦. 


,♦ OCCURRED ♦* YES 


♦. ON A READ ...... 


♦. COMMAND .♦ 




♦ . .♦ 




♦ • .♦ 




* NO 




*♦** , 




♦ ♦ . 




♦ 03 ♦.X. 




♦ ♦ • 




♦♦♦♦ X 




ONE .*. 




03 ♦. 




• ♦ ♦• 




.♦ PUB ♦. YES 




♦. ERROR COUNT .♦..X 




♦ EQUAL TO l.» 




♦ . .♦ 





♦ D% ♦ 

♦ ♦♦♦ 



♦ K5 ♦ 

* * 
♦♦♦♦ 



4[«t4t4i4cg3«:4<)|t4c*4t*4c4c4c 

♦ SET ♦ 

♦ ERROR ♦ 

♦ COUNT ♦ 

♦ IN PUB TO I ♦ 

♦ ♦ 

4t4t :*:*#« «*«< ^c^ ♦♦♦♦ ♦♦ 



i^*7H$Hffr^m********* 



♦♦♦♦ 

♦ ♦ 

♦ 04 ♦ 

♦ «4># 

X 

♦ « 

♦ MOVE ADDRESS * 

♦ OF ALARM * 

♦ CCM TO CCB * 

♦ ♦ 



* ♦ 

* LOAD ADDR * 

* OF CCB IfiTO * 

* REG 1 ♦ 

* ♦ 

^((^[♦^♦♦♦♦♦*4t4>4c#)|c4t4e 



♦ *♦♦ 

4c 4i 

* C5 * 

* * 

♦ ♦4t* 



4i4i*C5 ♦♦♦♦♦♦♦♦♦♦♦♦ 
SVC 15 
♦ EXECUTE * 

ALARM CCW 
♦ SYSIO ♦ 

4t4>4t4t4>*4'*^^^^^^^*4( 



4e*D5 ♦*♦♦♦♦♦ 



* ENABLE FOP * 
♦I/O INTFRRUPTS 



4c4t4i4t^*^4t^^* 



♦ UNDETERMINED ♦ 




.♦ ♦. \ 


ES 


♦ LOAD R15 ♦ 


..X^ ERROR ♦ 




♦ . BUSOUT .♦. 




♦ WITH RETRY ♦ 


♦ MESSAGE CODE ♦ 




♦. CHECK .♦ 




♦ EXIT ADDRESS ♦ 


♦ ♦ 




♦ . .♦ 




♦ ♦ 


*«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 




♦. .♦ 
♦ NO 


X 

♦♦♦♦ 

♦ ♦ 

♦ 03 ♦ 

♦ ♦ 


4<4c^4c^^^^^^^^^^^^^ 


X 

.♦. 






♦♦♦♦ 






X 




X 


Gl ♦. 




4>«4i4i4K; 2 ♦♦♦♦♦♦♦♦♦♦ 




*4e4t«4cG3^^^^^^^^^^ 


.♦ ♦. 




♦ INSERT X»18* ♦ 




♦ IF RETRY NOT ♦ 


.♦ CHANNEL ♦. YES 


♦ COMMAND ♦ 




♦ ALLOWED LOAD ♦ 


♦. CHAINING .♦. 




♦ REJECT ♦ 




♦ R15 WITH ♦ 


♦. CHECK ,♦ 




♦ MESSAGE CODE ♦ 




♦ IGNORE EXIT ♦ 


♦ . .♦ 




♦ ♦ 




♦ ADDRESS ♦ 


♦ • .♦ 


X 


4t*«i4>^« ♦♦♦♦♦♦♦♦♦♦♦ 




4i4i»«*4!**4<**^4r#4E«4> 


♦ NO 


♦♦♦♦ 










♦ ♦ 








• 


JK5J 










♦♦♦♦ 








M 




X 






.♦. 




.♦. 






HI ♦. 




H2 ♦. 




^^^■♦♦H3^^^^^^^^^^ 


.♦ ♦. 




.♦ ♦. 




♦ INSERT X»19» ♦ 


.♦ IMPOSS. ♦. YES 


.♦ COMMAND ♦. NO 


♦ UNDETERMINED ♦ 


♦. SENSE BITS .♦. 




♦. REJECT .♦. 

♦. .♦ 




X^ ERROR ♦ 


♦. ON .♦ 






♦ MESSAGE CODE ♦ 


♦ . .♦ 




♦. .♦ 




♦ * 


♦ . .♦ 




♦. .♦ 




^^^^'♦♦♦♦♦♦♦♦♦^^♦♦'K 


♦ NO 




♦ YES 

y! 






TESTQUIP X 


EXITA X 




X 


♦♦♦♦♦J l^^«*^*4>^^^ 




♦♦J2 ♦♦♦♦♦♦♦ 




♦♦J3^^^^^^^ 


* INSERT XS10> ♦ 




♦ TURN OFF ♦ 




♦ TURN OFF ♦ 


♦ EQUIPMENT ♦ 




♦ ALLOW RETRY ♦ 




♦ALLOW IGNORE ♦ 


♦ CHECK ♦ 




♦ AND IGNORE ♦ 




♦ BIT IN ♦ 


♦ MESSAGE CODE ♦ 




♦BITS IN ERQUE+ 




♦ ERQFLG ♦ 



♦RESTORE CSW AND^ 

♦I/O ADDR IN LOW* 

.X^ REAL STORAGE, * 

♦ RESET SVC5NM * 

♦ AND PUBFLAGS ♦ 

*4<*4c4c*4[4'«4i*4e#4t4'4<* 



4i4c4c4cH4*^^^**^** 

♦ BRANCH TO ♦ 

♦ ER^»€XTT * 

♦ IN SUPERVISOR ♦ 

*4c4!4s4(4c«4s«4:*«^4<4! 



.♦ I/O 

. OPERATION 

♦.COMPLETE . 

*, ,* 



4:««*«:F5 ♦♦♦♦♦♦♦♦♦♦ 



4c4c4<4t**4c*4>4t«**«4>^« 



4i4eG5***+** + 

DISABLE 

FOR i/n 

INTEPOUPTS 

* * 



*i^*iiLJif^m******m*** 



♦♦♦♦ 

♦ ♦ 

♦ B2 ♦ 

♦ ♦ 
♦♦♦♦ 



#**♦*♦♦♦♦♦♦ 



4r 4t* ♦ 4c J 44e* ♦♦ * ♦♦4>4c4c 

* SET UP ♦ 

* AND LOOP ♦ 

* TO WAIT ♦ 

* TWO SECONDS * 

* » 

4:4c*4> ♦♦♦♦♦♦4c 4:«4c4c4c4: 



4c4>4c^K4^^^^^^^^* 

* SVC 5 * 
♦FETCH SSABERRO ♦ 

♦ CHART OH ♦ 

4c4c*4c4c*^^^^^^^^* 



4c*J5***+^** 

♦ TURN ON ♦ 
♦INTERVENTION 

♦ REOUIPED BIT 

♦ IN EROUE 

♦ FLAG BYTE ♦ 

4:4c4'^^^«^4c4c4: 

♦ ♦♦♦ * 

♦ * , 

♦ K5 ♦. X. 



4c4c4c4cK5 ♦♦♦♦♦♦♦♦♦ 

* SVC 5 * 
♦FETCH fsABERRK * 

♦ CHART «A ♦ 
#* 4c 4c 4c 4c 4c 4c 4c 4c^*^^^ 
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Chart RF. $$ABERRS - KICK C1412, 1419, 1419E) ERP (Part 1 cf 3) 
Refer to Chart 02. (0135 or 0145 



♦ A2 ♦ 



.* CHAN ♦. 

. DATA CHECK .• 

*. .♦ 



A3 *. 

.♦SHOUL&-*. 

.* NOT -OCCUR ♦. NO 

. SENSE BITS •*... 

*• 3t 7 ,♦ 

*. .* 



♦***B 1 ♦*♦♦♦♦♦*♦ 

* 4> 

♦ fSABERRS * 



*4c4i4»|tC l**##*#**** 



**4c4t4>*««*4E**4c4>*** 



REFERENCES 
TO RF02: 
RGC4r RGJ4 
RH04, RHEl 

♦ * 



* B3 ♦ 



REFERENCES 
TO RFC3: 
RHOl, RHE4 



4E*4t*«C3********** 

♦ INSERT X»19« ♦ 

* UNDETERMINED * 

♦ ERROR MESSAGE * 
» CODE ♦ 

* « 



YES 



INTREQ X 

» INSERT X«08« ♦ 

* INTERVENTION ♦ 
...X* REQUIRED ♦ 

♦ NSG CODE * 



**4t#*4i4i*4t*****4t** 



♦.INTERVENTION 
♦.REQUIRED .* 



♦TURN ON INT REQ^ 

♦ BIT IN CCB, ♦ 
••X^TURN ON ERBLOC ♦ 

♦FL6 FOR TNT REO^ 

♦ AND PASSBACK ♦ 
♦♦♦♦♦♦♦♦♦♦*♦♦♦*♦* 



♦RG ♦ 

♦ Bl* 

* * 



*♦♦** 

*RH * 
♦ B4* 

* * 



PSTERR 



♦ UNRECOV I/O ♦ 

♦ ERROR IN CCB ♦ 

♦BYTE 2, BIT 2^ 

* * 



^r^^E 2 ♦♦♦♦♦♦♦ 

♦ TURN ON ♦ 

♦ PASS BACK 
♦ BIT 2 IN 

♦ ERBLOC 
♦ERROR FLAG ♦ 

**** 



4E4E*4[f:2 ********* 

♦ SVC 5 ♦ 
♦FETCH fSABERRK ♦ 

♦ CHART MA ♦ 
« « ** # Jl:** * * ** * « * 



BUSOUT X 

♦♦♦♦♦£%♦♦*♦♦♦*♦♦♦ 

♦ INSERT X«09» ♦ 

♦ BUSOUT ♦ 

♦ CHECK MSG ♦ 

♦ CODE ♦ 

♦ ♦ 



X 

.♦. 

04 ♦. 

.♦* BUSOUT '♦. 

CHECK 

♦. .♦ 

♦ . .♦ 



TRNONINT X 

♦ TURN ON ♦ 
♦OPER. INTERV.^ 

♦ BIT IN PUB ♦ 
♦ CHAN SCHEO ♦ 

♦ FLAGS ♦ 
«****♦♦♦♦♦♦ 



4i*# 4i4>05 ♦♦♦♦ ♦♦♦♦♦♦ 

♦ TURN ON ♦ 

♦ CHAN END ♦ 

♦ BIT IN CSM ♦ 

♦ STATUS BITS ♦ 

♦ ♦ 



CCB 
AVAILABLE 



♦ 03 
THE CCW 
CAUSING 
INTERRUPT IS 
CHECKED WITH 
X«E1», A DUMMY 
COMMAND CODE 
FOR A FAILURE 
TO DISENGAGE. 



♦ INSERT X«37^ 

♦ DISENGAGE 

♦ FAILED MSG 

♦ CODE 

♦ 



F4 ♦. 

.* ♦. 
NO .♦ COMMAND ♦. 
...♦. REJECT .♦ 



**4i4E4ig44t4(*^ ♦♦*♦♦♦ 

♦ GET ADDR ♦ 

♦ OF CCH ♦ 

♦ CAUSING ♦ 

♦ INTERRUPT ♦ 

♦ ♦ 



DEVICE 
BUSY 



♦ TURN OFF ♦ 
OPERATOR INTERV 

♦ BIT IN PUB ♦ 
♦ CHAN SCHEO ♦ 

♦ FLAGS ♦ 



♦ MOVE X»OC» ♦ 

♦ TO CSW STATUS ♦ 

♦ BYTE FOR CHAN ♦ 
♦END AND DEVICE ♦ 

♦ END ♦ 



*««4e4'H2 ♦♦♦♦♦♦♦♦♦♦ 
♦SSCCB RH^ 
*_♦_♦_♦_*_♦_»_♦_♦ 

♦ GET CCB ♦ 

♦ FOR STACKER ♦ 

♦ SELECT ♦ 



PCURTN 

* INSERT X«28« ♦ 

* CHAN DATA ♦ 

* CHECK MSG ♦ 

* CODE ♦ 

* * 



* A2 ♦ 

* ♦ 



YES .♦ FAILED ♦. 
......TO DISENGAGE .♦ 

♦. ^63 .♦ 



KAOR .♦. 

H5 ♦, 

.♦ ♦. 
.♦ CSW HAS ♦. YES 
♦. A COMMAND .♦... 
♦. ADDRESS .♦ 
♦ . .♦ 
♦. .♦ 
♦ NO 



IREXIT X 

♦TURN ON INT REQ^ 

♦ BIT IN CCB, ♦ 
♦TURN ON ERBLOC ♦ 
♦FLG FOR INT REQ^ 

♦ AND PASS8K ♦ 
^^^^^'♦♦♦♦♦♦♦♦♦♦♦^ 



♦**♦ 

♦ ♦ 

♦ F2 ♦ 

♦ « 
**** 



4c4>«*4'J4**4i***4>**4> 


4i4>4i4t*J5**4t4c4i4(^^^^ 


♦ INSERT X»18» 


♦ 




INSERT DUMMY ♦ 


♦ COMMAND 


♦ 




ADDRESS ♦ 


♦ REJECT MSG 


* 




X'OOIOOO* ♦ 


♦ CODE 


* 




IN CSH ♦ 


* 


* 






^'♦♦♦♦♦♦^■♦♦♦^'♦♦i 


|c4t* 


*i 


ix ..r 


X 


X 


**** 






***** 


* * 






♦RG ♦ 


♦ C2 ♦ 






♦ A5^ 


* * 






* ♦ 


**** 






XIGNORE 
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Chart RG. $SAEEBRS - MICR (1412, 1419, 1419D) ERP (Fart 2 of 3) 
Refer to Chart C2. 



OEFEPENCES ***** 
TO R'^AS: * * 
RFJ5, RHB4 * ** 

* * 



***** 
*RF * 
* Dl* 



^* STACKER *^ NO 
*SELECT COMMAND.*... 
«. CODE .* 
*. .♦ 



4i4i4>**C 1 ********** 
*SSCCB RH* 

♦ GET CCB FOR * 

♦ STACKER ♦ 

♦ SELECT * 



4i«4<4E#[)l ********** 

* LOAD ADDRESS * 

* OF CCB AND * 

* ADD DISPL TO * 

* GET DOCUMENT * 

* BUFFER * 
4>« «4t«* * 4i4t4E 4e##4i^*4c 



CONT X 

4i*4>**El********** 

* INSERT X»28« * 
^ CHAN DATA CHK * 

* MESSAGE * 

* CODE * 

* * 

4i4i«4c****«******** 



X 

.*. 

Fl *. 

.* *. 

.* CHANNEL *. 

. DATA CHECK . 

*. .* 



B3 *• 
.♦SHOULD-*. 
.* MOT -OCCUR *. YES 
*. SENSE — BYTE ...... 

*.0, X»18» .* 
♦. .* 
*. .* 
♦ NO 



* LOAD REG 15 * 
.X* WITH IGNORE * 

* EXIT ADDRESS * 

* * 

**«4c************* 



4i**4i«B5 4t4>4i «:♦***** 
♦RESTORE CSH AND* 
« I/O ADDRESS * 
*RESET PU8FLAGS * 

* AND SVC5NM * 

* * 
4i*3»i**4t4>«i«4i:i»«4t3|i4c** 



INSERT X»08» 


* 




,* 


♦ . 


m^m*C5 ********* 


INTERVENTION 


* 


.* 


STACKER *. YES 


* BRANCH TO 


REQUIRED 


* 


*SELECT COMMAND.*.... 


* ERPEXIT t 


MSG CODE 


* 


* 


, CODE .♦ 


* IN SUPERVISOR 


««*4i)|s4i«4t«4!4t*#«t 


* 

n* 




*. «* • 
». .* X 


*itim************ 








» NO **♦* 










, * * 










* J3 * 










X * * 










4c|i*)ti4> **** 




X 






*RF * 




.*. 






* D2* 




D3 *. 






* ♦ 




.* *. 






* 




.INTERVENTION* 


. YES 




PSTERR 




. REQUIRED 


.*•« •••. 










*• •* 












♦ . .* 












*• •* 












* NO 













*, 



4i*4t*4>Gl*** ******* 

* INSERT X«19« * 

* UNDETERMINED * 

* ERROR MSG * 

* CODE * 

* ♦ 
nt*:ti**********iiim** 



* B3 * 

* * 
**** 



BSOUT X 

4t*4i**E3**** ****** 

* ♦ 
» INSERT X!09« * 

* BUSOUT CHECK * 

* MSG CODE * 

* * 
4i#4i4i4>************ 



F3 *. 
.* *. 
NO .* BUSOUT *. 
...*. CHECK .* 



***** 
*RH * 
* Bl* 

* * 



H3 


*. 


.♦ 


*. 


.* ST 


iCKER *. 


*S ELECT 


COMMAND.* 


*. ODE .* 


*, 


.* 



*. CODE 
*. 



OPVNT 

«4cF^******* 

* TURN ON * 

*INTERVENTION * 

♦REQUIRED BIT 1 

* IN ERBLOC * 

*ERROR FLAG * 



4e*4c*G4*»4>****** 

♦ SVC 5 * 
*FETCH $$ABERRK ♦ 

* CHART MA ♦ 

4»t>4< *«*«»****>•<** 



.♦. 

H4 *. 

.* *. 

.* ALREADY *. 

RETRIED 

*. ONCE .* 



*4i«4t*F5 ********** 
*POST BITS AND* 
*I IN DOC BUFFER* 
♦BYTE 0. INSERT * 

* REJECT DOC * 

* X»CF«, BYTE 5 * 



**** 

* * 

* A5 * 

* ♦ 
**** 



4i4t*4i«H5 ********** 

* INCREMENT * 
RETRY COUNTER ♦ 

PUB BYTE 3 * 

* BY ONE * 

* * 



.X* 



***** 


* * . 


*RH * 


♦*** 


* El* 


PSTBUF X 


* * 


*4c***J3********** 


* 


* POST BITS * 




* AND 1 IN * 




. ..X*DOCUMENT BUFFER* 




* BYTE ♦ 



**j|e4t#4ii|c4c«*4E««sis« #« 



* LOAD REG 15 ♦ 
♦WITH PETRY EXIT^ 

* ADDRESS ♦ 

* * 



***** 
*RF ♦ 
* D2* 



* B5* 

* * 
**** 
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Chart RH. $$AEERRS - MICR (1412, 1419, 1419B) ERP (Part 3 of 3) 
Refer to Chart 02. 



***** 

*RG * 
♦ F3* 

* * 



****l^ite******** 

* * 

* SSCCB ♦ 
*************** 



***** 
*RF * 
* El* 



.*. 








SSCCB X 


NOOUAL •♦• 


Bl *, 






*****Qj********** 


B4 ♦. 


.* *. 






* GET EXTERNAL ♦ 


.♦ *• 


.♦ BATCH ♦. 


OFF 




♦ INTERRUPT ♦ 


.♦ CCB ♦. NO 


*• NUMBERING . 


♦••••••• 






♦ STATUS FROM ♦ 

♦ PUB BYTE 5 ♦ 


♦. AVAILABLE •♦•••• 


♦• SWITCH .♦ 








♦ - •♦ 


*. .* 








♦ ♦ 


♦ . •♦ 


*. .* 








tt********** ****** 


♦ . .♦ X 


* ON 










♦ YES ♦♦♦♦♦ 


* 












♦RG ♦ 














♦ A5* 


• 












♦ ♦ 


' 












XIGNORE 


COMRJ X 




X 






X 


*****Q I ********* 




*****C2********** 






*****C ^********** 


* INSERT X«18« 




* INSERT X»34» ♦ 

♦ BATCH NO. SM * 






* INSERT X«28» ♦ 


* COMMAND 








♦ CHANNEL DATA ♦ 


♦ REJECT MSG 




* OFF MSG * 






I messagI^oe J 


* CODE 




* CODE • 






♦ 




♦ * 






♦ ♦ 


**************** 






ti******** 






***************** 


X 

.*• 






k 


X 


X 

• ♦. 


Dl ♦. 




*****Q2********** 


*****Q^*******t[^** 


D4 ♦. 


.* ♦. 




♦POST BITS AND* 


♦TRANSLATE THIS ♦ 


.♦ ♦. 


.♦ COMMAND *. 


NO 


♦ 1 DOC BUFFER ♦ 


♦ VALUE TO A ♦ 


.♦ CHANNEL ♦.YES 


*, REJECT 


♦ •... 


♦BYTE 0, INSERT ♦ 
♦ REJECT DOC ♦ 


♦ DISPLACEMENT ♦ 


♦. DATA ...... 


♦ . .* 




♦ WITHIN THE ♦ 


♦. CHECK .♦ 


*• .* 




♦X«CF«IN BYTE 5 ♦ 


♦ OTF TABLE ♦ 


♦ . .♦ 


♦ • .* 


X 


**^*«;|r««:*«##4>^^^^ 


^^^^•♦♦♦♦♦♦^ ♦♦♦♦♦♦ 


♦ . .♦ X 


• YES 


***** 






♦ NO ***** 




♦RF ♦ 










♦RF ♦ 


* 


♦ C3* 

* * 

* 










♦ 02^ 

: 


X 


UNDTR 










X PSTERR 


.*. 




X 


X 


.♦. 


El ♦. 




**£2******* 


*****iE3********** 


E4 ♦. 


.♦ *. 




♦ TURN OFF ♦ 


* ADD THIS ♦ 


.♦SHOULD ♦. 


.♦ STACKER *. 


YES 


♦ ALLOW RETRY ♦ 


♦ DISPLACEMENT ♦ 


•♦ NOT OCCUR ♦. YES 


♦SELECT COMMAND. 


♦ . ••• 


♦BIT 5, TURN ON ♦ 


♦ TO THE START ♦ 


♦.SENSE BYTE ...... 


*. CODE .* 




♦ALLOW IGN BIT^ 


: nTeS^IbP^ I 


♦.BIT 3 ON .♦ 


*. .* 




♦3 IN ERBLOC^ 


♦ . .♦ 


*, ,* 


X 


*********** 


***************** 


♦ . .♦ X 


♦ NO 


♦♦*** 






♦ NO ♦♦♦♦♦ 




♦RG * 










♦RF ♦ 




♦ J3* 










♦ C3^ 


X 


* * 










X ♦ ♦ 


**m** 


♦ 










***** * 


»RF ♦ 


PSTBUF 










♦RF ♦ UNDTR 


* 02* 


MSGMTR 




X 


♦ A4^ 


♦ * 




X 


*****fs********** 


♦ ♦ 


* 




**4!*F2 ********* 


♦ GET ADDRESS ♦ 


♦ 


PSTERR 




♦ SVC 5 ♦ 
♦FETCH ffABERRK ♦ 

♦ CHART MA ♦ 
*:l^**^f*iii^:Hii^im**** 


♦ OF DTF CCB; ♦ 

♦ FROM THIS ♦ 

♦ LOCAT ON ♦ 

♦ *m ♦ 


INTREO 










**^i*****i 


^*****if*iti 





****Q-i********* 

♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER ♦ 
*************** 



♦H3 
FIRST 16 BYTES 
OF DTF CONTAIN 
THE CCB. 
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Chart RJ. $$ABERRV - 2671 Paper Tape ERP (Part 1 cf 2) 
Refer tc Chart 02. 



* $$ABERRV ♦ 

* * 



* ESTABLISH * 
♦ADDRESSABILITY * 



4t4< ** ** 4i 4t * * * 4i4c* « * * 



♦♦*♦ 
♦ B2 ♦ 



CHANNEL 
DATA 
CHECK 



♦A3 
CONTROL UNIT 
END, DEVICE 
END* AND CHAN 
END 



♦ INSERT X19» ♦ 

♦ UNDETERMINED ♦ 
X* ERROR ♦ 

♦ MESSAGE CODE ♦ 



*4t#4c4i«*4i*4E* ***♦♦« 



.♦ INITIAL ♦. YES 
♦. SELECTION •♦.... 

♦• *A3 ** 



.♦ BUSOUT ♦. NO 
*• CHECK .♦.,. 



X 

***** 
♦RK * 
♦ D4* 

♦ ♦ 

RETRY 



*****Q1********** 


**02 ******* 


♦ LOAD ADDRESS * 


♦ TURN OFF * 


♦ OF PUB AND ♦ 


♦ ALLOW RETRY * 


♦ GET ADDRESS * 


♦AND IGNORE BITS^ 


♦ OF CCB ♦ 


♦ 3 AND 5 IN * 


* * 


♦ ERR FLAG ♦ 


***************** 


*********** 




♦♦♦♦ I 




* *^ «• REFERENCES 




♦ ♦ ♦.X. TO RJE?: 




:♦*** : «<^^» ''XJ^ 


X 


SVC 5 


*****gl******«*«* 


X 


* INSERT X»2B« ♦ 


****g 2 ♦♦♦♦♦♦♦♦'♦ 


* CHAN DATA * 


♦ SVC 5 ♦ 


* CHECK MSG ♦ 


♦FETCH $$ABERRK ♦ 


♦ CODE * 


♦ CHART MA ♦ 



***************** 



* CHANNEL 


♦ 


• NO X 


.♦ 


INVALID 


♦ . NO 


♦ EQUIPMENT ♦ 


OR DEVICE 
♦ . END 


.♦ 


•♦••••••• 


.X^. BITS 


• ♦•• • 


•••••X^ CHK MSR CODE ♦ 




* 


♦ ♦ 


♦ • ■♦ 








♦ • •♦ 




* * 


♦ « ** 








♦ • •♦ 




***************** 


♦ YES 








♦ YES 






X 








X 






♦♦*♦ 








♦*** 






* ♦ 








* * 




X 


♦ 02 * 








* 02 * 




.*» 


* » 








♦ * 




E5 ♦. 


♦*** 








♦♦♦♦ 




.♦ ♦. 
YES .♦ ♦. 
• ..♦. EQUIPMENT .* 
♦.^ CHECK ,* 


*e** 














* * 












X **♦. ,*'" 


* 8=3 * 












***** * NO 


* « 












♦RK * 


«**♦ 












* F3^ 


, 












* * 


X 
.♦. 












♦ . 












NOOUIP X 


F3 ♦• 












*****l=5 ********** 


.♦ ♦ 












♦ INSERT X'08» ♦ 


* T»m 


*♦ 


:*\'.l. 








♦ INTERVENTION ♦ 

♦ REQ MSG CODE ♦ 



X 

♦ ***♦ 

♦ RK ♦ 

♦ C^ 
♦ ♦ 



.* DATA ♦. YES 

*. CHECK •♦•••• 
*. .♦ 

♦• .♦ 



DAT 

*****G4********** 

♦ INSERT X«ll« ♦ 

♦ DATA CHK ♦ 
...X* MESSAGE * 

♦ CODE ♦ 



***************** 



***************** 



..♦.INTERVENTION .♦ 
♦.REOUTREO .♦ 
♦ • .♦ 



* F3 ♦ 

♦ ♦ 
**** 



YES .♦ COMMAND ♦. 
...... REJECT .♦ 

♦ . .♦ 



.♦. 

H4 ♦. 

,* *, 

CCB ♦ 

AVAILABLE 

• .♦ 

♦ . .♦ 



X 
**♦♦>* 
♦RK ♦ 
♦ J3+ 



*****j2 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ INSERT xna* ♦ 

♦ CMNO REJECT ♦ 

♦ MESSAGE CODE ♦ 

♦ * 
***************** 



♦*♦* 

♦ * 

♦ 02 * 

♦ * 
♦♦*♦ 



*****J3********** 

♦ INSERT X*I9' ♦ 

♦ UNDETERMINED * 

♦ ERROR ♦ 

♦ MESSAGE CODE ♦ 

♦ ♦ 
***************** 



♦ USER 


♦ . 


NO 


HANTS 




»♦•• .. 


♦. RETURN , 


* 




♦. .♦ 






♦ . .♦ 




X 


♦ YES 




**♦♦* 
♦RK ♦ 


« 




♦ El* 


X 




* * 


***** 




* 


♦RK ♦ 




MQDCCW 


♦ B1 + 







♦**** 
♦RK ♦ 

♦ H2^ 



2h0 uOS/VS Error Kecovery and Keccraing Transients 



Chart RK. $$AEERRV - 2671 Paper Tape ERP (Part 2 of 2) 
Refer to Chart C2. 



♦ J4* 



♦♦Bl******* 

TURN ON DATA* 

♦CHECK BIT IN ♦ 

* CCB, BYTE 3, 

* BIT 3 * 

♦ ♦ 



* TURN ON ♦ 
♦ALLOW IGNORE * 

* BIT 3 IN ♦ 
♦ ERBLOC ERROR ♦ 

* FLAG * 



*♦♦♦* 

♦ PJ * 

♦ F3* 



♦ INSERT K»0«>« ♦ 

♦ BUSOUT CHECK * 

♦ MESSAGE ♦ 

♦ CODE ♦ 

♦ * 



♦ *♦* 
*RJ ♦ 

♦ C2 *.X 



HAD 

ONE 

RETRY 



*♦♦* 

♦RJ * 

♦ J4 ♦.X 



♦♦♦» 
MODCCW X 

♦ UPDATE CCW ♦ 

♦ I/O AREA ♦ 

♦ ADDRESS AND ♦ 

♦ COUNT ♦ 



***** 
*RJ * 
♦ E2* 



***** 

♦ RJ * 

♦ E5* 



,* 
.♦ 
YES 



USER 
HANTS 
RETURN 



*♦** 

*RJ * 

♦ G5 *.X 



**** 
ATYPE X 

**H2******* 

* TURN ON ♦ 
* INT. RFO 

♦ BIT 1 IN 
♦ERBLOC ERROR 

♦ FLAG ♦ 
*********** 



**H3**^**** 

♦ TURN ON * 
♦INT. REQ BIT * 

♦IN CCB, BYTE 3. 
♦ BIT 1 ♦ 

♦ * 
*********** 



* H4 ♦.X 



**** 
NOCCB X 

**J3******* 

* TURN ON * 
♦ALLOW IGNORE 

♦ BIT 3 IN 
♦ ERQFLG 

* * 

**********«; 



*****^44c*****4c**4: 

♦ * 

♦ SET RETRY ♦ 

♦ COUNT ♦ 

♦ TO ONE * 

♦ * 

***************** 



***4t*|:44c******4i** 

* LOAD REG 15 ♦ 

* WITH * 

* RETRY EXIT * 

* ADDRESS * 

* * 
***************** 



*****H4********** 

* * 

* LOAD PEG 15 * 

* WITH IGNORE * 

* EXIT ADDRESS * 

* * 
***************** 



***** 

♦ RJ ♦ 

♦ E2* 



*****j4********** 

*RESTORE CSW AND* 

♦ I/O ADDPESS IN * 
♦LOW REAL STOP. * 

♦ RESET SVC5NM * 

♦ AND PUBFLAGS ♦ 
***************** 



****K4^******** 

♦ BRANCH TO ♦ 

♦ EPOEXIT ♦ 

♦ IN SUPERVISOR * 
*************** 
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Chart TA. $$ABERRT - 1287, 1288 CCR ERP (Fart 1 cf 2) 
Refer to Chart 02, 



♦ $$A8ERRT ♦ 

* * 



♦ LOAD ADDRESS ♦ 
♦OF COMM REGIQNf* 
♦ERROR BLOCK, PUB* 
♦ENTRY, CCB, AND » 

♦ LAST USED CCW ♦ 
«>«««. ^■♦♦♦♦♦♦♦♦♦♦♦^ 



CCW *• 
ADDRESS 
VALID .♦ 



4>«4<^^0 !♦♦♦♦♦♦♦♦♦ 

♦ 

♦ INSERT X»FF» 

♦ INTO CCW 

♦ ADDRESS 

♦ 
^^^(♦♦♦♦♦♦♦♦♦♦♦♦♦: 



♦*♦♦ 

♦ ♦ 

♦ B4 ♦ 

♦ ♦ 

♦♦♦♦ 



.♦ ♦. NO 

♦.NON-RECOVERY .♦... 



♦ TURN ON ♦ 
♦ NONRECOVERY * 

* BIT IN CCB, ♦ 

♦BYTE 3, BIT 4* 

♦ * 



El *. 

.♦ ♦. 

.♦ INVALID *. YES 
♦SENSE BITS FOR.^,..a 
♦ . U85 OR .♦ 
♦.1287 .♦ 

♦ . .♦ X 

« NO ♦♦«♦♦ 

♦TB * 
♦ G5* 



SENSTSTS •♦. 






CDATACK 


BUSOUT X 


Fl ♦. 






4>4c« «4>P3 4c*4e>K *#*«[ «:«> 


4c*4i«4ip44.**«*^^*^* 


.♦ ♦. 






♦ INSERT X»28» ♦ 


♦ ♦ 


•♦ CHANNEL ♦. YES 






♦ CHANNEL ♦ 


♦ INSERT X«09» ♦ 


♦. DATA CHECK •♦••••., 






...X* DATA CHECK ♦ 


♦ BUSOUT * 


♦ . .♦ 






♦ MESSAGE CODE ♦ 


♦ MESSAGE CODE * 


♦ . .♦ 






♦ * 


♦ ♦ 


♦ . .♦ 






^mif***:*********** 


^^^^(♦♦♦♦♦♦♦♦♦♦♦♦« 


♦ NO 








,,,,,, X 










C 




INTERV .♦. 




NONREC 


.* . 


Gl ♦, 


62 ♦. 




4t4iG3*4>4»|c4c)|t* 


G4 *. 


.♦ *. 


.* ♦. 




♦ TURN ON ♦ 


.♦ ♦. 


NO .♦ *. 


,♦ ♦ 


. YES 


♦NON-RECOVERY ♦ 


.♦ ONE ♦. 


.,..*. EQUIPMENT .♦ 


..X^. NONRECOVERY 
♦ . .♦ 


.♦.«.. 


,..X^ BIT IN CCB, ♦ 


..X+. RETRY .♦ 


♦. CHECK .♦ 




♦BYTE 3; BIt\^ 


. ♦. .♦ 


♦ . .♦ 


♦ . .♦ 




♦ ♦ 


♦ . .♦ 


♦ . .♦ 


♦. .♦ 




««:♦♦♦♦♦♦♦♦♦ 


♦ . .* 


* YES 


♦ NO 






♦♦♦♦ ♦ YES 


a • 


• 






* G4 ♦ 




, , 


; 






♦ ♦ 
♦ ♦♦♦ 




I X 


X 






EQUIPXIT X 


4>*H1**^*«^^ 


4>*4t#*H2 ♦♦♦♦♦♦♦♦♦♦ 


4t«K3 ♦♦♦♦♦♦♦ 


4i*H4*^^*^^^ 


♦ TURN ON ♦ 


♦ INSERT X»08» 


♦ 


♦ TURN ON ♦ 


♦ TURN ON * 


♦ EQUIPMENT ♦ 


♦ INTERVENTION 


♦ 


♦passback bit ♦ 


♦INTERVENTION ♦ 


♦ CHECK BIT IN ♦ 


♦ message'^Iooe 


♦ 


♦ IN ENQUE ♦ 


♦ REQUIRED ♦ 


♦CCB, BYTE 3, ♦ 


♦ 


♦ FLAG BYTE ♦ 


♦BIT IN ENOUE ♦ 


♦ BIT 3 ♦ 


♦ 


♦ 


♦ ♦ 


♦ FLAG BIT ♦ 


, 4<«t**4>^^^^^^«««^^^ 


4c*4t*«*4t*«t#* 


♦ ♦♦♦♦J 


|c4e«4>*4< 




', X 










X 


♦ ♦ 










*♦. 


♦ G4 ♦ 




X 






Jl *. 


♦ ♦ 




*****J34c4c^^^4<^4t4t* 






.♦ ♦. 


♦♦♦♦ 




♦ ♦ 






.♦ ♦. YES 






♦ INSERT X»35« ♦ 

♦ NONRECOVERY ♦ 






♦ .INTERVENTION .♦ 










♦.REQUIRED •* 






♦ MESSAGE CODE ♦ 






♦. .♦ 






♦ ♦ 






♦ . .♦ 






*#*«4>4t4c4c**«4i«4c««* 






♦ NO 






I 







4t*:f •^^(♦♦♦♦♦4c 

* TURN ON ♦ 
* DATA CHECK ♦ 

* BIT IN CCB * 
♦BYTE 3, BIT 0^ 

* ♦ 



***** 

*TB ♦ 
♦ A7* 



4c*«4(4>^5 4c*** ****** 

* * 

* INSERT I ♦ 

* IN RETRY * 

* COUNT ♦ 

* * 
4c 4c* ************** 



***** 

♦ TB * 

* A5* 



♦♦♦♦ 

♦ ♦ 

♦ B4 * 

♦ * 
♦ ♦♦♦ 



,X,_ 
X 

*♦♦♦♦ 

♦TB ♦ 
♦ J5* 

* * 



2*12 DOS/VS Error Recovery and Recording Transients 



Chart TB. $$ABERRT - 1287, 1288 CCR ERP (Fart 2 of 2) 
Refer to Chart 02. 



♦♦♦*♦ 

♦TA ♦ 
♦ E5* 

♦ * 



•TA ♦ 

♦ H5* 



CMNOPEJ 

* INSEPT X«18' ♦ 

* COMMAND ♦ 

* REJECT ♦X. 

* MESSAGE ♦ 

* CODE * 
4t***^f%t ********** 



4<4tCl*«4'4<4>*4' 

* TURN OFF ♦ 
* ALLOW RETRY ♦ 

* AND IGNORE ♦ 
♦BITS IN ENQUE* 

* FLAG BYTE * 



♦ *** 

* * 

* J5 ♦ 

* ♦ 

♦ ♦♦* 



.♦. 
B2 ♦. 
.* ♦. 
YES .♦ COMMAND *. 
-...♦. REJECT 

*. .♦ 

*. .♦ 
*. .* 
♦ NO 



.* CHAINING ♦. YES 
*. CHECK ,♦.... 



♦ A5 ♦ 

♦•*« 



RETRY X 

*SET ALLOW RETRY* 

♦ IN ER0FL6- ♦ 
..X* LOAD REG 15 ♦ 

♦ WITH RETRY ♦ 

♦ EXIT ADDRESS ♦ 



. YES 



RETRIED 
9 TIMES 



IS ♦. 

DEVICE .♦ 

. 1287 .♦ 



.* *. 

.* IS * 

.1287 IN TAPE 
*. MODE .♦ 



****^f02********** 

♦ * 

♦ ADD I TO * 

♦ PUB RETRY ♦ 

♦ COUNT * 

♦ ♦ 

****ti^'it1^'itC******** 



**** 

* * 

♦ A5 * 

**** 



ANNUL 

* INSERT X«14« ♦ 

* OVERRUN * 
...X* MESSAGE ♦ 

* CODE ♦ 



4i4<4i4t ♦♦4<*)|t 4i4t*4(«: 4e« * 



ti*Qit******* 

* TURN ON * 
♦INTERVENTION 

* REQUIRED BIT 
♦ IN ENQUE 

♦ FLAG BYTE * 

1t******ilt**tL 



*♦♦♦ 

* * « 

* C5 *. X. 

* * . 
♦♦♦♦ 

XIGNORE X 

*«#*4eC5 ********** 

* LOAD REG 15 ♦ 

* WITH IGNORE ♦ 

* EXIT ADDRESS * 

* ♦ 

:tt***^*****ti****** 



**** 

* * 

* F4 * 

* * 
♦*♦♦ 



* RESTORE CSW ♦ 

* AND I/O ADDR ♦ 

* RESET SVC5NM ♦ 

* AND PUBFLAGS ♦ 

* ♦ 
*m**^tHfittiti**^it*****if 



* BRANCH TO ♦ 

* ERPEXIT IN * 

* SUPERVISOR * 



♦ TURN ON * 
* KEYBOARD * 

♦CORRECTION BIT ♦ 
IN CCBt BYTE 3, 

* BIT 1 * 



♦ G4 * 

♦ * 
♦ *** 



.* INVALID * 


. NO 


.♦ LATE ♦.NO 


.INVALID SENSE 


. YES 




*. FORMAT 


.♦«. . . 


....X*. STACKER .♦... 


*. BIT 7 FOR 
♦. 1287 .♦ 


♦•«••. 




*. .* 




♦. SELECT .♦ 




*. .♦ 




♦ . •♦ 


i ♦. .♦ 




***** 


♦ . .* 




♦ . .* 


. ♦. .♦ 




♦TA ♦ 


* YES 




♦ YES 


♦ NO 
♦♦♦♦ 

♦ ♦ . 

♦ 64 ♦.X. 

♦ ♦ . 
♦♦♦♦ X 




♦ El^ 

* ♦ 
. ♦ 


FONTERR X 




X 


ANYERRS .♦, 




"UNSUPTD X 


«4t#*#G2 ♦♦♦♦♦♦♦♦*♦ 


**G3 ♦♦♦♦♦♦♦ 


G4 ♦. 




4c*4i**(;54<4t^4c <<♦♦*♦♦ 


* 


♦ 


♦ SET COB ♦ 


.♦ ANY ♦. 




♦ INSERT Xn9« ♦ 


* INSEPT X»38» 


♦ 


♦ BYTE 3, BIT 6+ 


.♦ ERRORS ♦ 


NO 


K ♦ UNKNOWN ♦ 


♦ INVALID FONT 


* 
* 


♦ FOR LATE ♦ 
* STACKER ♦ 


♦. POSTED IN 
♦. CCB .♦ 


.♦.. ..• 


,,%* SENSE BIT ♦ 


* MESSAGE CODE 




♦ MESSAGE CODE ♦ 


♦ 


* 


♦ SELECT ♦ 


*. .* 




♦ * 


*ill****:^***^tlHf^:*^i4i 


**.******.*^<ti 


. ♦. .♦ 




***4>***#**#i|>«*4t*« 






IXm 


♦ YES 




I 


X 




X 
NOLSS .♦. 


CONTINUE X 




X 


4c4cH 2 *♦*♦♦♦♦ 




H3 ♦. 


**i^^******:^ 




*ims******* 


* TURN OFF * 




.♦ ♦. 


♦ ALLOW ♦ 




♦ TURN OFF ♦ 


* ALLOW RETRY * 


.♦ IS ♦. NO 


♦ IGNORE BIT ♦ 


♦ ALLOW RETRY ♦ 


* AND IGNORE 


* 


♦. HOPPER .♦... 


♦ IN ENQUE 


♦ 


♦AND IGNORE BITS^ 


♦BITS IN ENQUE^ 


♦. EMPTY .♦ 


♦ FLAG BYTE ♦ 


♦ IN ENOUE ♦ 


♦ FLAG BYTE ♦ 




♦ . .♦ 


♦ ♦ 




♦ FLAG BYTE ♦ 


4c ^(♦♦♦♦♦♦♦♦^ 




♦ . .♦ 
♦ YES 


4>**4i4c4c,^4t^^^ 




♦*♦* 
* ♦ . 


X 






X 




♦ J5 ♦.X. 


♦♦♦♦ 






♦ *♦* 


♦♦♦♦* 


♦ ♦ . 


♦ ♦ 






♦ ♦ 


♦ TA ♦ 


♦♦♦* , 


* J5 ♦ 




X 


♦ C5 ♦ 


♦ J3^ 


FETMSGW X 


* ♦ 




♦♦J3^*+^^^+ 


* ♦ 


♦ « 


*«*** J5 «4c*4t*4<4t*^* 


♦♦♦♦ 




♦ SET CC8 ♦ 

♦ BYTE 3, BIT Z* 
* FOR EMPTY ♦ 

♦ HOPPER ♦ 


♦♦♦♦ 


* 


* ♦ 

♦ SET PHASE ♦ 
..X^ NAME ♦ 






♦ TO SSABERRL ♦ 



^^i^^E ♦♦♦♦*♦* 



4c*4c)|:4e*«4>*:^4i4c4c^^^4c 



*4i4<*K5 ********* 

♦ SVC 5 ♦ 

♦ SSABERRL ♦ 

♦ ♦ 
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Chart TC. $$ABERRI - 2495 Tape Cartridge Reader ERP (Part 1 of 4) 
Refer to Chart 02. 



* * 

* $*ABERRI * 

* ♦ 



*t***Bl********** 



*#^H:1ft^**** ****** 



* * 

♦ B4 ♦ 



**^**Q2********** 

* INSERT X«25« * 

* HSG CODE FOR * 

* PPOTECTION * 

* CHECK ♦ 

* * 
*****t *********** 



YES .*PROTECTION ♦. NO 
X....*. CHECK .*,.. 



.♦ IHPOSS *. Y 
.X*. SENSE BITS .*. 
». ON .* 



***** 
*TD * 
* G4* 



* INSERT X«19« 

* MSG CODE FOR 

* UNDETR ERR 

♦ 

t:*************t** 



*****C3 ********** 

* * 

* INSERT X'lO' ♦ 

* MSG CODE FOR ♦ 

* EQUIP CHECK ♦ 

* * 
***************** 



***** 

♦TO *RETOFF 

* G4* 



*****g3 ********** 

* INSERT X«28« ♦ 

* MSG CODE FOR ♦ 

* CHAN DATA * 

* CHECK * 

* * 
***************** 



**** 

* * 

* B5 * 

* * 
**♦* 



NO .* CCW 
..*• ADDRESS 

*. STORED 



.YES.* LIMIT 
*. OF RETRIES 
♦.EXCEEDED . 

♦ . .* 



***** 
*TD * 
♦ G4* 



***** 
♦TO ♦ 
* 05* 



**** 

* * 

* B4 ♦ 

* * 

**** 



*****P1*** ******* 

* * 

* INSERT X«3I« ♦ 

* MSG CODE FOR ♦. 

* DEV NOT OP * 

* ♦ 
***************** 



*****G1 ********** 

* LOAD ADDRESS ♦ 

* OF FAILING 

* CCW. 

* SAVE UNIT 

* ADDRESS * 
***************** 



♦ X. 



♦ DEV 

OPERATIONAL 

♦s . ♦ 



♦ . NO 



***** 
♦TO ♦ 
♦ H4* 



MSGWTR 



.♦. 



CC9 ♦. NO 

AVAILABLE .♦..., 
. .♦ . 



♦**** 
♦TD ♦ 
* F5* 



*****G3 ********** 

♦ INSERT X«09« ♦ 

♦ MSG CODE FOR ♦ 

♦ BUSOUT ♦ 

♦ CHECK ♦ 

♦ * 
***************** 



*****H 2 ♦♦♦*♦♦♦♦♦♦ 

* GET TEBS PNTR ♦ 

* mMPHTP TCg * 
X* ADOR - GET ♦ 

♦RETRY CTR AODR ♦ 

* * 
***************** 



*****P5 ********** 

* * 
♦GET ADDRESS OF ♦ 
♦USER'S STARTING* 

* CCW ♦ 

* ♦ 
***************** 



***** 
♦TO ♦ 
* AI + 



***** 

♦ TO ♦ 

* G4^ 



**♦♦ 

♦ * 

♦ 85 ♦ 

♦ * 
*♦♦* 



X 
***** 
♦TE ♦ 
* Fl* 



* INCREMENT ♦ 

* RETRY ♦ 

* COUNTER ♦ 

* * 
***************** 



*****K I********** 

* * 

* INSERT X'24' ♦ 

* MSG CODE FOR ♦ 

* PROGRAM CHECK * 

* * 
***************** 



**** 

* * 

* 82 * 

* * 
**** 
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Chart TD. $$ABERRI - 2495 Tape Cartridge Reader ERP (Part 2 of ^) 
Refer to Chart 02. 



*TC * 
♦ F5* 



* * 

* Bl *.X 

Z EROCT X 

* * 

* ZERO OUT ♦ 

* REPOSITION * 

* COUNT * 

* * 



*♦♦♦ X 
AODTOCT •*• 

CI *. 
.♦ ♦ 
.* NEXT 
♦. COMMAND 
*. A TIC 



4t*«4i4cC24'4'****4'4<*4t 

* m 

♦ GET ADOR ♦ 
.X* OF NEXT CCH ♦ 

* FROM TIC * 

♦ * 



* ♦ 

* STORE REPO * 

* CNT IN » 

* BKSP CCW ♦ 

* ♦ 



♦OOSVC TF* 

* PERFORM I/O ♦ 



PEFFf^FNCES ♦♦*♦* 
Tn TDD5: * * 

Tcn5, Tpr? * ♦* 



* ADD CCW ♦ 

* COUNT TO ♦ 

* REPO CNT ♦ 

* * 



El *. 

♦ CCW ♦• 

ADOR ♦. YES 

FAILED •*.... 

ADOR .* 
*. .♦ 

*. .* 



* « 

* SAVE CCW * 

* FLAG = ADD * 

* 8 TO CCW ADOR * 

* * 



UNIT 

CHECK 

.OCCURRED 



* LOAD REG 15 * 
X* WITH RETRY ♦ 

* EXIT ADDRESS * 

* ♦ 



.* 


DATA ♦. YES 




CHAIN .*.-.. 


» 


.* 




*. .* 




*. .* X 




* NO ♦**♦ 




• « « 




♦ CI * 




♦ ♦ 




• «*V4: 




X 




.*. 




HI *. 




♦ ♦, 


.* 


CMD ♦.NO 




CHAIN .* 


'♦ 


.* 




*. .* 




♦ , ,» 




♦ YES 



REFER 
TO 

TCG2 
TFr4 



REFE'^ENCFS 

TO Tr)G4: 
TCC5, TCD1 



«4'*4c4tF4*******<*'*'*' 

♦ INSERT X«20« ♦ 

♦ ERROR ON ♦ 

♦ RECOVERY * 

♦ MESSAGE * 

♦ * 



ENCES **** 
TDF*!: ♦ * 

TFP2 * * *.X. 



*♦♦♦ 
XIGNORE X 

* * 

* LOAD REG 15 ♦ 

* WITH IGNORE ♦ 

* EXIT ADDRESS * 

* * 



TCEl, 

TeF4, 
TFG? 



TC';^ ♦ * ♦.x 



♦ ♦*♦ 
RETOFF X 

* TURN OFF * 

♦ RETRY * 

♦ IGNORE BIT 

* IN ERR BLK 

* FLAG BYTE * 



REFEPFNCES ♦*♦* 
TD TDH4: * * 
TCF?, TEF2 * * 



* SVC 5 * 
♦FETCH $$ABEPRK * 

♦ CHART MA * 



♦***#G5 ********** 
*RESTOPE CSW AND* 
*I/0 ADDRESS IN * 
♦LOW REAL STOR. * 
♦RESET PUBFLA6S * 
* AND SVC5NM * 



4i!te*4:H^ **4c4c**«** 

* BRANCH TO * 

* ERPEXIT ♦ 

* TN SUPERVISOR ♦ 



♦ SAVE CCW ♦ 

♦ ADOR FOR * 

♦ USER CCB ♦ 

♦ RESTART * 

♦ * 
*D>4>************** 



INUP 

*♦**♦ J2 ♦*♦♦*****♦ 

♦STORE STARTING ♦ 

* RETRY CCW * 

* ADDRESS * 

* IN CCB ♦ 

* ♦ 



4i4i***K2 **♦*****♦* 

♦ * 

♦ SUBT RESIDUAL * 

♦ CNT FROM * 

♦ REPO COUNT ♦ 
« * 
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chart TJt;. $$AEERRI - 2495 Tape Cartridge Reader ERP (Part 3 of 4) 
Refer to Chart 02. 



* ♦ 

* CNTRTN ♦ 



.* 
NO 



♦CNTRTN TE* 

♦_»_♦_»_♦_«_<(«♦_* 

X* INCREMENT * 

* RO ERROR * 

* ENTRY CNT * 



.♦ WERE ♦. 

TEBS 

*. SPECIFIED.* 



RETRY 
CNT LIMIT 
.EXCEEDED . 



X 

*♦♦♦♦ 

♦ TF ♦ 

♦ Fl* 



PEFEPENCES 
TO TEFl: 
TCH3, TFF3 



NTERVENTION 

, REQ«0 .* 



TEST 

POSITION 

CHK 



♦CNTRTN TE+ 

♦ -♦_♦_♦-.♦_♦_♦_#_♦ 

♦ INCREMENT ♦ 

♦ PERMNT RD ♦ 

♦ ERR CNT ♦ 



♦ ♦ 

♦ INSERT X»ll» ♦ 

♦ DATA CHK ♦ 

♦ MSG CODE ♦ 

♦ ♦ 



♦ ♦ 

♦ INSERT X»I8« ♦ 

♦ CMOREJ ♦ 

♦ MSG CODE ♦ 

♦ ♦ 



*«**4(p 2 ♦♦♦♦♦♦♦♦♦♦ 
♦TURN ON INTERV.^ 

♦ REO'D BIT IN * 
.X+ ERQFLG ♦. 

♦ SET X'08» MSG ♦ 
♦CODE IN ERQMSG ♦ 



SETPSN 

♦ INSERT X'39» ♦ 
. YES ♦ MSG CODE ♦ 
.* X* FOR POSITION ♦ 

♦ CHK ♦ 

♦ ♦ 



.♦ CMD ♦ 




♦ . REJECT 


.♦ 


♦ . .♦ 




♦ , ,♦ 




♦ . .♦ 




♦ NO 




*♦♦♦ 




♦ ♦ , 




♦ F4 ♦.X. 




* * . 




♦♦♦♦ 




UNDETR X 




# 4t4> « « f: 44i« **4c4> «4t#]4c 


♦ INSERT X»19' 


* 


♦ MSG CODE FOR 


♦ 


♦ UNDETERMINED 


4c 


♦ ERROR 


4c 



*4(^ «>♦♦♦♦♦♦♦♦♦♦♦♦* 



4E***4tC5 ♦♦♦♦♦♦♦♦♦♦ 

♦ GET CORRECT * 

♦ TEB POINTER ♦ 

♦ TO PROPER » 

♦ BYTE ♦ 

♦ ♦ 
**4i*4t*4i4t4>4<#*4'*4c^4> 



.♦. 
D5 ♦ 
.* 

.YES .♦ CNTR 
.X..^. FULL 



4t***«E5 ♦♦♦♦♦♦♦♦♦♦ 

♦ * 

♦ INCREMENT ♦ 

♦ = STORE ♦ 

♦ TFB CNTR ♦ 

♦ ♦ 

*«:;»4i4< ****♦♦♦*♦♦♦♦ 



«4t4i«F 5 ♦♦♦♦♦♦♦♦♦ 
» PETURN TO ♦ 

♦ ADDR IN ♦ 

♦ LNKREG ♦ 

4<i4i«4<4t4t4<*^4>4i4<^^^ 



♦ 4t^^4c 
♦TD ♦ 

♦ G4^ 



.♦ USER ♦. NO 
♦. ACCEPT DATA .♦... 
♦. CHK .♦ 





.♦. 








.♦. 




X 


EXITA X 




Ml *c 








H2 ■!'. 


**JJ:*:J:M3***«*«**** 


««^i^4>.H44'^>i^^^4'«¥*«l 




* *, 








♦ ♦. 




♦ TURN OFF ♦ 


.* 


DATA 


♦ 


. NO 


.♦ 


TEST FOR ♦. NO . 


♦ POST DATA CHECKS 


♦ RETRY BIT ♦ 


♦ . 


CHK 




♦ . ... 


♦. 


RO .♦..X, 




♦ IN CCB ♦ 


♦ IN ERROR ♦ 


* 


.* 




4i 


. ♦ 






♦ FLAG ♦ 




♦ . .♦ 








♦ . .♦ 






* ♦ 




♦ . .♦ 




X 




♦. .♦ 




^'^♦♦♦♦♦♦♦♦It****^^ 


♦ **4c*4>**^^4i4>^^^^4t 




* YES 




♦♦♦♦ 

♦ * 

♦ D4 ♦ 




♦ YES 






i 




















DTCRTN 


Jl" '♦. 








J2" *♦. 




X 
«*4<^4<J3^^^^^^^^^t 


X 
4E4i4c«^J4.4c**4i4c4>4'4t4>4< 




.♦ ♦ 








♦ ♦. 




♦ * 


♦ TURN ON ♦ 


.* 




'♦ 


YES 


.* 


RETRY ♦. YES 




♦ TURN ON ♦ 


♦ IGNORE BIT ♦ 


♦o 


RO CMD 




.♦. ... 


*. CNTR LIMIT .♦..X 




♦ PASS8ACK IN * 


♦ IN ERROR * 


♦ 


'♦. .♦ 


.♦ 




* 


.EXCEEDED .♦ 
♦ . .♦ 




♦ ERROR FLAG ♦ 

* * 


♦ FLAG ♦ 

4c 4c 




♦ . .* 








♦. .♦ X 


«4i4'*4'#4< 4<4<** 4'4c4c4> 4c4' 






♦ NO 








♦ NO ♦*♦♦♦ 
♦TO ♦ 


I 


I 




X 




♦ 83 ♦ 

* * 




♦ G4 + 
X ♦ ♦ 




,, .x! 






X 




**** 




**♦* 




tint:** 4c 




*4c4c*4c 




* * 








♦TF ♦ RETOFF 




♦TD ♦ 




♦ F4 ♦ 








♦ Fl^ 




♦ H^* 




* * 








# * 




* 4c 




*♦** 








* 




4c 












ACTION? 






MSGWTR 
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Chart TF. $$ABERRI - 2495 Tape Cartridge Reader ERP (Part 4 of 4) 
Refer to Chart 02. 



* * 

* B3 ♦ 

* * 
♦**♦ 





.*. 






B2 *. 






.♦ *. 




NO .♦ 


ANY 


♦. 


.••*. 


CHAINING 


.* 


♦ 




* 




♦ • .*' 




X 
***** 


♦. .♦ 
♦ YES 




»TD * 






♦ F5* 






* * 






* 






XIGNORE 







•♦ UNIT ♦. NO 

*. CHECK .*... 



* UPDATE STATUS * 

* = RESIDUAL ♦ 
.X* CT IN * 

* CRQUE * 

* ♦ 

^t***tl************: 



*****C2********** 

* FIND NEXT * 

* CCW AND PLACE * 

* IT«S ADDRESS * 

* IN USER'S CCB * 

* * 

i^********7lf******* 



***** 

♦TD ♦ 
♦ 05* 



REFAIL X 

:ti,H:ti*1ltQ'i********** 

* TURN OFF ♦ 

* DEVICE END ♦ 

* IN LATEST * 

* STATUS ♦ 

* * 



D3 ♦. 
.♦ SENSE * 
.* EQUAL 
. ORIGINAL 
*. CCW 



***** 
*TD * 
* F5* 



♦**♦ 

* ♦ 

* B2 * 

* * 
**** 



REFERENCFS 

TD TFFl: 

TEC3, TEJ2 

*♦♦♦* 

♦ * 

* ** 



ACTION? X 

*!t:***fl********** 

*SAVE ERRQUE CSW* 
♦FOR 0RI6. ERROR* 

* INITIALIZE CCB * 

* AND CCW FOR * 

* BACKSPACE * 
***************** 



*****Q I**** ****** 

♦DOSVC TF* 



:^**ilc********:f**** 



*, 



*. 



E3 *. 
.*RESIO. 
.* COUNT 
*. EQUAL TO 
*. ORIG. 
*. .* 

*. .♦ 
* YES 



*****fi*m******** 

* * 

* INCREMENT ♦ 

* ERROR RETRY * 

* COUNTER ♦ 

* * 
^************^*** 



**** 

♦ * 

♦ G2 * 

♦ * 

**** 



SETEBL 

*4(4i4t*E4********** 

* SET UP ERR * 

* BLK AS IF * 
...X* AN Il^ITTAL * 

* ERP HAS * 

* OCCURRED * 

4c»4c#4<«**4e*****4<** 



HI ♦. 

,* *, 

UNIT CHECK 



RECVERR X 

«#«3|c*G2 ********** 

* INSERT X'20' * 

* RECOVERY * 

* ATTEMPT ERR * 

* MSG CODE * 

* * 

:^f********itL****ill^*:^ 



***** 

♦TO * 

♦ G4* 



***** 
*TE * 
* Fl* 



*****j i*******m** 

* COMPUTE * 

* START PT = * 

* LGTH TO * 

* FINISH USER'S * 

* READ * 

****«***********4c 



*****K].*4c****4r*** 

*DOSVC TF* 

*-*-*-*-*-*-*-*-* 

* *, 

* PERFORM READ * 

* * 
***************** 



.* CHAN *. YES 


*. FAILURE .*. 




*. .* 




*, ,* 




*« .* 


X 


* NO 


**** 




* 1 




* G2 ^ 




* n 


. 


***» 


X 




***:4i*K2 ********** 




* SAVE * 




* STATUS * 




* SAVE CNT * 




* FROM LATEST * 




* READ * 









****C5********* 

* * 

* nosvc * 

* * 

■ttm************* 



**n5 ******* 

* TURN OFF * 

* FRP = * 
OFV BUSY INn«^ 

* IN PUB * 

* FL&n * 

4:«4t*******4: 



*i|i«4'*ES ********** 



**************** 



«*F5******* 

* ENABLE 

* FOP i/n 

* INTEPOUPTS 

* * 

*********** 



***(-,5 ♦♦♦♦***♦♦#»♦ 



***************** 



***«*H5 ********** 

* *IF I/n NOT * * 

* * COMPLFTE * ♦ 
» * TSSUE * * 

* * SVC 7 * * 

* * WAIT * * 
***************** 



**JS******* 

* * 

* DISABLE 
» FOR I/O 

* INTERRUPTS 

♦ * 
*********** 



****K5 ********* 

* * 

* RETURN * 

* * 
*************** 
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Chart TG. $$AEERRU - 1017/iOlS Paper lape ERP (Fart 1 of 3) 
Refer to Chart 02. 



****A1* ♦*****♦♦ 

* ♦ 

* $«A8ERRU ♦ 

* ♦ 



* LOAD SYSCOM * 

* ERROR BLOCK * 
*AND PUB ADDRS, * 

* GET FAILING * 

* CCW ADDR ♦ 



BUSOUT 
CHECK 



• * 
YES 



VALID 
CCW 

A OOP . 



EQPCHK 

♦♦♦**B2 ****♦**♦♦♦ 

♦ INSERT X«10« ♦ 

♦ EQUIPMENT ♦ 

♦ CHECK * 

♦ MESSAGE CODE * 

♦ ♦ 



♦ ♦** 

*♦♦* 



INTREQD 

* SET ON ♦ 
♦INTERVENTION 

* REQUIRED BIT 
* IN ERR FLG 

* » 



DATA 


♦ . YES 


CHECK 


.♦ 




.* 


• * 


, 


♦. .* 


X 


* NO 


*♦♦*♦ 




♦TH ♦ 




♦ D2* 




♦ ♦ 




* 




CHNOCHK 



« * 

* STORE CCW ♦ 

* ADDRESS * 

♦ IN CCB * 

♦ ♦ 
^:,tt*if****'¥'¥* ****** 



t****fl********** 

* * 

* UPDATE * 

* RETRY * 

* COUNTER ♦ 

* * 

:^ * 4( % :(c iti ;(( ^(c* 4c 4c *«* 4c « 4< 



♦ NO 
Ix, .... 




***** * NO 
*TJ * 

♦ 05* 
♦ * • 
•• * RTYEXIT . 


UPDATCCW X 

4c4c4c 4c4cD3 4c4<!|c4c ♦♦*4c 4i4i 

* ♦ 

* UPDATE * 

* INTERRUPTED * 

* CCW * 


X 

D4 ♦. 

', YES .** WRITE 
». COMMAND 



4c4c4c4!4!4c4c4c4c4c«4c4c4c4c4c4c 



*♦*♦* 
*TJ * 
* 05* 



* INSERT X«09« ♦ 

* BUSOUT CHECK * 

* MESSAGE CODE * 

* * 

4c*4c* 4c**4c4i *)|c*4c4t* 4c* 



*4iC5 *♦**♦** 

* TURN ON ♦ 
ALLOW RETRY 
AND IGNORE 

BITS IN 

* ER» FLAG * 

4c4c4c4c4c4'*4c4c4c4c 



**Qt)m****** 

* SET ON * 
BROKEN TAPE 
BIT IN BYTE 

3 OF CCB 

* ♦ 

4>4c4c4c«t4!4c4c4c4c4c 



4c4c4c4c4cE54c*4<**4'*«*4< 

* 4c 

* INSERT X«40 • ♦ 

* BROKEN TAPE ♦ 

* MESSAGE CODE ♦ 
4c ♦ 
4i 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



CHANNEL 


* 


YES 


DATA 


CHECK 


* 


.*. .•• 


*. 


.* 






4: 


. .* 




X 




♦ NO 




♦ 4c 4c 4=* 

♦ TH ♦ 

♦ 02* 

4c ♦ 
* 








CHNDCHK 



.♦IMPOSSIBLE *. YES 
« QR CANCEL .*..X 
*. CONDITION. ♦ 



4c4c4c*4cG3***^4'*4'*4c* 

* INSERT X'08« ♦ 

* INTERVENTION ♦ 

* REQUIRED * 

* MESSAGE CODE * 

* ♦ 

♦♦♦4c4c#«4c4[ 4:41 4c ♦♦4c * ♦ 



REFERENCES 
TO TGJ4: 
THG3, THJ5 
TJE3 

♦♦♦♦♦ 

♦ ♦ 

♦ ♦♦ 



* INSERT X»19' ♦ 

* UNDETERMINED ♦ 

♦ MESSAGE CODE * 

♦ ♦ 
^c^l^f*:ltiti*:^l:i^1|i******* 



* J4 *.X 



4c^^^ 

CALLMW X 

**j/^******* 

♦ TURN OFF ♦ 

♦ ALLOW RETRY 
. ..X^ AND IGNORE 

♦ BITS IN 

♦ ERR. FLG ♦ 

♦ ♦4c*^**4c**^ 



♦♦•♦ 

♦ * 

♦ K4 *.X 

♦ ♦ 
♦♦♦* 



****^(^e^********* 

♦ SVC 5 ♦ 
♦FETCH $$ABERRK ♦ 

♦ CHART MA ♦ 

♦ ♦4c^^^^4c****^«^ 



4«***4tH5 ♦♦♦*♦♦♦♦*♦ 

♦ ♦ 

♦ INSERT X»18« ♦ 
♦COMMAND REJECT ♦ 

♦ MESSAGE CODE * 

♦ ♦ 

4c***4c^^«*^**^^**^ 



♦ J4 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart TH. $$AEERRU - 1017/1C18 Paper Tape ERP (Part 2 cf 3) 
Refer to Chart 02. 



REFERENCES 
TO THO?: 
TGA5, TGGl 



CHANNEL 
DATA 
CHECK 





DATACHK .». 






.*. 




E2 ♦. 






E3 ♦, 




. ♦ *. 






.♦ ♦. 




YES .* RETRIES ♦. 






YES .♦ RETRIES ♦. 




...♦.GREATER THAN .♦ 






......GREATER THAN .* 




♦. THREE .♦ 






♦. TWO .♦ 




*. .♦ 






♦ . .♦ 




X ♦. .♦ 






♦ . .♦ 




*♦♦♦ ♦ NO 






* NO 




♦ ♦ . 






* 




♦ E5 ♦ 










♦ ♦ . 










*♦♦♦ 










X 






X 




.♦. 






. .♦. 


**4^4.«p !*««:««««««# 


F2 ♦. 






F3 *. 


» ♦ 


.♦ ♦. 






.* ♦. 


♦ STORE UNIT * 


NO .* DEVICE ♦. 






.♦ INITIAL ♦. YES 


* ADDRESS *X.. 


........ 1018 ,♦ 






*. SELECTION .♦..-. 


♦ IN CCB * 


♦. PUNCH .♦ 






♦ . .* . 


* * 


♦ . .♦ 






♦ . .♦ 


«:ti4>««**4<**4e«**««* 


♦ . .♦ 
♦ YES 

* 






♦ . .♦ X 
♦ NO ♦♦♦♦* 
♦ TJ ♦ 
.X. ♦ 05^ 




, ♦ 










RTYEXIT 


X 


0V1018 X 






CHNDTEX X 


^^Gl^'tc***** 


4c 4cG2 ♦♦♦♦♦♦♦ 






4c ^'^♦♦GS ♦♦♦♦♦♦♦♦♦♦ 


* * 


♦ ♦ 






♦ INSERT X«28« ♦ 


* ENABLE * 


♦ SET ON ♦ 






♦ CHANNEL ♦ 


* FOR I/O ♦ 


♦ DATA CHECK ♦ 






♦ DATA CHECK ♦ 


* INTERRUPTS * 


♦ BIT IN CCB ♦ 






♦ MESSAGE ♦ 


* * 


♦ 4c 






♦ CODE ♦ 


4^)MMc4l*****4: 


^^(♦♦♦♦♦♦♦♦« 

X 






X 
♦ *♦♦♦ 

♦TG * 


X 


.♦. 






♦ J4* 


«4<«*«H1***«4=4''I'1'** 


H2 *. 






♦ ♦ 


* PUT BKSP CCW * 


. * ♦. 






♦ 


♦ADDRESS IN CCB * 


.* DOES ♦. NO 




CALLMW 


* LOAD REG. 1 ♦ 


♦. USER WANT .♦ 








♦ AND 15 WITH ♦ 


♦. RETURN .* 








♦ CCB ADDRESS ♦ 


♦ . .♦ 








«««4c:(c4:«4c4c4:*««4c4:** 


♦. . ♦ 
♦ YES 

* 


■¥ 


X 
*<♦♦ 


•c 






* 


E5 


4: 




X 


♦ 




* 




♦ ♦♦♦♦ 




*m* 


1: 




♦TJ * 








X 


♦ F5^ 








4c4c4cj ][4c#4c4c**4t4'«**4c 


♦ ♦ 

♦ 

XIGNORE 








* SVC 15 * 








sysio 











4c Ic^^^^*^^^^^^^^^^ 



♦♦♦♦♦ 

♦TJ ♦ 

♦ B4^ 

♦ ♦ 



DTFXIT X 

4c4c4c^#FS ♦♦♦♦♦♦♦♦♦♦ 

* INSERT x'll • * 

* DATA C'ECK * 

* MESSAGE * 

* CODE * 

* * 

4c4c4c4c4:#4c4:*4c4(4c4c#«^«^ 



FS *. 

.* ALLOW *. 
.*IGNnPE BIT 
. IN BYTE 2 
♦, OF CCB . 



4c 4iG5 ♦♦♦♦♦♦♦ 

♦ SET ON ♦ 
DATA CHECK 
BIT IN BYTE 

3 OF CCB 

* ♦ 
4t4c4c4c4c4c^^^*4t 



4c4cH5+**+^^* 
* TURN OFF * 

* ALLOW RETRY 
* BIT IN 

* ECJOFLG 

4c * 

4c4c4c4c:^4c4:4c^4c4c 



*4cJS+***++* 

* TURN ON ♦ 
♦ALLOW TGNORE 

* EROFLG 

* * 
4!4:*«4c*4c4c*4c4c 



4c**** 

♦ rr, * 

* Jif* 



Detail Charts 249 



Chart TJ. $$AEERRU - 1017/1018 Paper Tape ERP (Fart 3 of 3) 
Refer to Chart 02. 



♦♦♦♦♦ 

*TH ♦ 
* Jl* 



.* *. 
* I/O 
COMPLETE 

*. .♦ 
♦ . .* 
* YES 



■¥ ♦ 

DISABLE 

FOR I/O 

INTERRUPTS 

♦ * 



««*4i4>B5 ♦♦♦*♦♦♦♦♦* 



«*«4t4E***4t4>**«:4>4<4(* 



PEFEf^ENCES 
TO TJOS: 
TGC4, TGD^ 
THF3 

***** 

* * 

* ** 







.*. 


RTYEXTT X 




04 *. 


«4i«:4c«[)5 **7tt******* 




.* *. 


* * 




YES .* UNIT *. 


* LOAD RETRY ♦ 






......*. CHECK ,* 


* EXIT ADDR ♦ 






♦ . .* 


♦ IN REG 15 ♦ 






*• .* 


♦ ♦ 






♦ . .♦ 


****************,^ 






♦ NO 


X 




X 


.♦. 


4[***«|E3*****'t'4'*4'* 


*****^i^***^[4i:tc**** 


E5 *. 


♦ INSERT X'20« * 


* * 


. .* ♦. 


* ERROR ON * 


♦ UPDATE THE ♦ 


.* RETRY ♦. ^ 


* RECOVERY * 


* INTERRUPTED * 


*. ALLOWED .* 


* MESSAGE CODE ♦ 


* CCW * 


*. .♦ 


* ♦ 


* * 


*. .♦ 


^^lt****^Hit:*****ift** 


t**************** 


*. .* 


I 




* NO 
♦ ♦♦* , 

♦TH * 


X 




♦ H2 *.X. 


♦♦♦*♦ 




♦ * . 


♦TO * 




**** . 


* J4* 




XIGNODE X 


* 


* 




#4c*4i*F5***4<4<#***4= 



* LOAD IGNORE * 

* EXIT ADDR ♦ 

* IN REG 15 * 

* * 
***itm********:ti*ili^ 



*****^^ iH* ****** ^^i 
♦RESTORE CSW AND* 
♦I/O ADDRESS IN ♦ 
♦LOW REAL STOR. ♦ 
♦RESET PUBFLAGS ♦ 
♦ AND SVC5NUM ♦ 
i^i**************** 



4i**4rH5 ♦♦♦♦♦♦♦♦♦ 

* BRANCH TO * 

* ERPEXIT IN ♦ 

* SUPERVISOR ♦ 

4c4c 4i4t*# 4i* 4># ♦♦ «♦* 
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Chart TK. $$ABERRF - 3211 Printer ERP (Part 1 cf 4) 
Refer to Chart 02. 



* * 

* «$ABERRF ♦ 

* * 



♦ A2 * 



CHKERR .♦. 

A2 ♦. 

.♦ *. 

.♦ CHANNEL *. ^ 

♦. DATA CHECK .♦, 

♦ . •♦ 

♦ . .* 

*« .* 

♦ NO 



BEGIN 

**«4t*C l**#******* 

* GET ADDRESS * 
» OF SYSCOM * 

* AND ERROR ♦ 

* RECOVERY ♦ 

* BLOCK ♦ 



* ♦ 
*GET USERS PUB, * 

* CCB CCW * 

* ADDRESS * 

* * 



***** 

*TL ♦ 

♦ A5* 

♦ ♦ 



*. .♦ X 

* NO ***** 

♦TN ♦ 
* Bl* 

. * * 

X EOPCHK 

.♦. INTREQ 

C2 *, ♦♦C3******» 

.* *. ♦ SET * 

.* ». YES * MESSAGE 

♦ .INTERVENTION •♦... X* CODE TO 

♦.REQUIRED .* * INTERV 

*. .* ♦ REO *H4 ♦ 

♦ . .* 4i4e4c# ♦♦♦*♦♦♦ 

♦ NO 



ACTI0N2 X 

* SET ♦ 
♦INTERVENTION 
* REQUIRED IN 
* EROFLG 



BUS *. YES 

OUT ...... 

CHECK .♦ 



]|c#Gl ♦♦♦♦♦♦♦ 

♦ POST ♦ 
CHANNEL 

9 OVERFLOW 
IN CCB 

♦ ♦ 
^(^^'♦♦♦♦♦♦♦^ 



.X.. 
X 
♦»♦* 



F2 ♦, 
♦ ♦. 
BUFFER ♦. 
PARITY •♦ 
CHECK .♦ 



♦ ♦♦♦♦ 
♦TM ♦ 

♦ Al* 



X 

***** 
♦TM ♦ 
♦ A4* 



*♦*♦♦ 
♦TL ♦ 
♦ Bl^ 



4i*4t##4c4<4EtE«# 



**** 

* * 

• B4 * 
« • 

♦♦♦* 



^*Q4i^m****** 

* SET * 

* MESSAGE 
CODE TO COMM 

♦ REJCT 

♦ *H4 ♦ 



C4 ♦. 
.♦ ♦. 

COMMAND ♦. YES 
REJECT ...... 

.♦ 
♦ . .♦ 

♦ . .♦ X 

4c NO ***** 

♦TL ♦ 
♦ HI* 

♦ ♦ 



**D4******^ 

♦ SET ♦ 

♦ MESSAGE 
CODE TO LOAD 

* CHECK 

♦ *m ♦ 
^^(♦♦♦♦♦♦♦♦^ 



.♦ LOAD ♦. 
♦ . CHECK 

♦ . .♦ 



♦♦♦♦♦ 
♦TL ♦ 
♦ HI^ 



ttltfii^lrmm**** 

* SET ♦ 
MESSAGE 
CODE TO 

UNDETR ERR 

♦ ♦HA ♦ 



i^'HciittGit********* 

♦ SVC 5 ♦ 

♦ $$ABERA4 ♦ 

♦ CHART MC ♦ 
****♦♦♦♦♦♦♦♦♦♦♦ 



♦ H4 
0P08 INTERV REQ 
OP 18 COMM REJCT 
OP 19 UNDETR ERR 
0P41 LOAD CHECK 
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Chart TL. $$AEERRF - 3211 Printer ERP (Part 2 of a> 
Refer to Chart 02. 



♦♦*♦♦ 

♦ TK * 

♦ F2* 



8UFPAR X 

♦♦8l******* 
♦ SET * 

* MESSAGE ♦ 
♦ CODE TO 

* BUFFER * 
♦PARITY *B2 * 



***** 

*TK * 
* A2* 



CHNDAT X 

**ft5******* 

* SET * 

♦ MESSAGE 

♦ CODE TO CHAN 

* OTCHK 

♦ *82 * 

«**«*«** «!«:« 



CI ♦. 

.♦ *o 

LINE ♦. NO 
POSITION .♦. •. 



♦82 
0P28 CHAN DTCHK 
0P33 BUF PARITY 



C2 ♦. 
• • ♦• 
.* COMMAND *. YES 
.X*. RETRY .*,,,. 



**** 

* * 

* B4 *... 



.* USER *. NO 

CCB .*... 
♦.AVAILABLE.* 



**C4^^***** 

♦ POST LINF * 

* COMPLETE 
PARITY CHECK 

* CCB + 2 

♦ X'^0' BIT ♦ 
4c*4c««4i4i*«*4c 



***** 
*TM » 
* G4* 



INITIAL 
SELECTION 



***** 
*TM * 
* CI* 



,* 
»♦ 
YES 



**El*4c***** 

* * 
POST LINE 
POSITION 

IN CCB 

* * 
**4i******** 



ACTIONS .*. 

Fl ♦. 
.* DOES *. 
.♦ USER * 

♦. WANT 

♦.PASSBACK .♦ 



***** 

♦TM ♦ 
* H4* 



E2 *. 

,* *, 

.* BUFFER ♦. 
♦. READ 

* . .* 

*. .* 

♦. .* 
* YES 
**** 
*TN ♦ 

* El ♦.X. 

* ♦ 
*♦** 

ACTIONS 

*«P2******* 

* SET ♦ 

* RFFLAG^ TO 

* REQUEST 

* IGNORE EXIT 

* X»08«BIT ♦ 
*********** 



♦*** 

* * 

* B4 ♦ 

* * 

*«** 



.* *. 

USER ♦ 

CCB 
.AVAILABLE.* 



**E3******* 

* POST CMNO * 
*RETRY PARITY * 

♦ CHECK IN * 

♦CCB DISPLAY 3^ 

* X«08'6IT * 
*********** 



.* USER 
*. WANTS 

♦.PASSBACK 



***** 
*TN ♦ 

♦ 02+ 



REFERENCES 
Tn TL05: 
TMC4, TMG4 
TNFl 

* ♦*♦ 

* * 

* * *.X 



**** 
ACTI0N7B 

**05 ******* 

♦ DISALLOW ♦ 

♦ RETRY 
* ALLOW 

* IGNORE 

* * 
*********** 



****P5 ********* 

* SVC 5 * 

* $SABERA4 * 

* CHART MC * 

*************** 



REFERENCES 
TO TLHli 
TKC4, TKE4 
TMCl. TNDl 
TNE2 
**** 

* * 

* * ♦.X 



**** 
ACTIONl X 

**Hi******* 

* DISALLOW * 

* IGNORE 
♦ AND 

* RETRY 

* * 
*********** 



****J 1********* 

* SVC 5 * 

* $$ABERA4 * 

* CHART MC * 
*************** 



****62 ********* 

* SVC 5 * 

* $$ABERA4 * 

* CHART MC ♦ 
*************** 



♦ . .♦ 


X 


* NO 


***** 




*TM * 




* H4^ 


X 


* * 


***** 


* 


♦ IN * 


ACTI0N7A 


* 02* 




♦ * 




* 




ACTI0N4B 
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Chart TM. $$ABERRF - 3211 Printer ERP (Part 3 cf 4) 
Refer to Chart 02. 



♦*♦♦♦ 

♦TK * 
♦ D2« 



***** 

♦ TK * 

* E2* 



BUSOUT X 

**A1******« 
♦SET MESSAGE^ 

♦ CODE TO ♦ 
* BUSOUT CHK 

* ♦J 2 ♦ 
* * 

*********** 



DATCHK X 

i|c4eA4******* 

♦ SET ♦ 

* MESSAGE 

♦ CODE TO DATA 

♦ CHECK 

* *J2 * 
4(««4[4c****** 



.♦ *. 




****B2 ♦♦♦♦♦♦♦♦♦ 


.♦ FCB ♦ 


YES 


* SVC 5 > 


♦ . PARITY .♦. 


X* SSABERA'^ 


*, ,* 




♦ CHART MC > 


*, ,♦ 




«**««*«:*******« 


*. .♦ 






♦ NO 






**** . 






♦TL ♦ 






♦ B5 *.X. 






* * 






**** X 






ACTI0N3 .♦. 






CI ♦. 






• ♦ *• 






.♦ WAS ♦. 


YES 




*. ERROR ON ,♦. ... 




*. RETRY .♦ 






*, ,* 






*, .* 


X 




♦ NO 


***** 




***♦ 


♦TL ♦ 




♦TN ♦ 


♦ HI* 




♦ C3 *.X, 


* * 




♦ ♦ . 


* 




**** , 


ACTrONl 




ACTI0N4A X 






4=«0]i4;4c*«:i»3ic* 






* * 






♦ ALLOW ♦ 




* RETRY 


* 





.♦ ANY ♦. 






.♦ERROR BITS ♦ 


NO 




. SET TN SNS 


*..x 




*. BYTE 1 .* 






*, .♦ 






♦ . .♦ 


X 


♦ YES 


***** 




♦ TL ♦ 




♦ 05* 




♦ * 




* 


X 

.♦. 
04 ♦. 


ACTI0N7B 


*#D5******« 


.♦ ♦. 


* 


•* PRINT *. 


YES ♦ POST PRINT 


CHECK 


*,,,, t* r.MPrK TN 


*, ,* 




* CCB 



*********** 



**E 1******4; 



4[**4c:|c«***** 



***** 

♦ TN ♦ 

♦ A5^ 



«4c*4!******« 



*♦*♦ 

♦ TN ♦ 

♦ HI *.X. 



.♦ IS IT 
LINE 
♦.POSITION 



*4Ef:4t***^** 

» * 

' POST LINE 
POSITION IN 
CCB 



4c*****#4c** 

X 



♦♦** 

♦ TL ♦ 

♦ C4 ♦.X 

♦ * 

**** 
ACTION? 



.♦ DOES 
. USER WANT 
♦.PASSBACK . 



REFERFNCES **** 

jp TMH4: ♦ ♦ 
TLFl, TLF3 ♦ ♦ 



YES 



♦ **♦ 
ACTI0N7A 

**H4******* 
* * 

♦ TURN ON 

♦ PASSBACK 



***** 

♦ TL ♦ 

♦ r>5 + 



ACTI0N7B 



♦J2 

0P09 BUSOUT CHK 
OPll DATA CHECK 



«4i«#:**i|[**:** 



****J4********* 

* SVC 5 ♦ 

* $$ABEPA4 * 

* CHART MC ♦ 
**4[*4t4:4c4c******* 
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Chart TN. $$AEERRF - 3211 Printer ERP (Part 4 of 4) 
Refer to Chart 02. 



*♦♦♦* 

*TM * 
* El* 



♦♦*** 
*TK * 
♦ B2* 



OPCHK X 

* SET ♦ 

* MESSAGE * 
* CODE TO EQUIP * 

♦ CHECK ♦ 

* X'lO' * 



**«*A4*4i4i#4t4i4i4<* 



**4t4t4i4>***4c4t*4<*4c 



lORTN 

♦CALC PUB ENTRY ♦ 
*NUMB SAVE SYS- ♦ 
♦USE PUB PTR AND* 

* REPLACE WITH * 

* pue NO * 

*4<«4c4c****4'*****«4< 



«*)«[«4eA5 ********** 
>K * 

* LOAD RETRY * 

* EXIT ADDRESS * 

* IN REG 15 * 

* * 



CTI0N4 .*. 

C2 *, 

.* *. 

.* USER CCB *. 

.X*. AVAILABLE . 

*. . * 

♦ . .* 



^PFF''ENCE«^ ♦*** 
TO TN02: * ♦ 

Tins, TLP3 * * 



* NO 



**♦♦♦ 

*TL ♦ 

* HI* 

* * 



***** 

*TL * 

* F2* 

* « 



***** 

♦ TL * 

* D5* 



El *. 
.* ANY *, 

* OTHER 

ERROR BITS 
*. SET 

*, ,* 



**** 
ACTI0N4B 

**[)2******* 

♦ ♦ 

* SET UP 

* SSANERSB 

* PHASE NAME 

* * 

4c***i(i4t4i*«4i])c 



*4c4:4<*E 2 ********** 

*IORTN TN* 

♦_*_*_*_♦_*_*_*_* 

* SKIP TO * 

* CHANNEL ♦ 

* ♦ 
***************** 



**G2******* 

* POST * 
EQUIPMENT 

PRINT CHECK 
IN CCB 

* * 



HI *. **H2******* 

.* *. * POST * 

.* IS IT ♦. YES * EQUIPMENT * 

PRINT .* X* PRINT QUALITY * 

*. QUALITY .* * IN CCB * 

*, .♦ * ♦ 

*, ,♦ ♦**♦♦♦♦*♦*♦ 



***** 

*TM * 

* E4* 

* * 



.* WAS 


♦ 


. NO 


X*. ERROR ON 




.*.... 


*. RETRY 


.♦ 




*. .* 






♦ . ,* 




X 


* YES 




***** 
*TM * 

♦ 01* 


• 




* ♦ 

* 




ACTI0N4A 



**** 

* * 

* E3 * 

* * 

**** 



♦ RESTORE CHANQUE* 

* AND SYSUSE * 

♦ PUB POINTER * 

* * 

4t***************4t 



X 




***** 




♦TL * 


X 


♦ HI* 


• * • 


* * 


F3 * 


* 


.* 


ACTIONl 


YES .* ERROR 




...,*. ON I/O 



****G3********* 

* RETURN TO ♦ 

* CALLER ♦ 

* * 

4e************** 



XIOERR X 

**j3***«*## 

* SET MSG ♦ 
♦CODE TO ERRORS 

* ON REC * 

* X«20» ♦ 

* * 

*««4c******* 



4e***K3********* 

♦ RETURN TO * 

♦ CALLER * 

♦ * 

****4e#****«4(*** 



* LOAD IGNORE * 

* EXIT ADDRESS ♦ 

* IN PEG. 15 * 

* * 

**********4i*4c4r*** 



*****f4*«*4t****** 

* LOAD REG I * 

* WITH * 

* CCB ADDRESS * 

* FOR SPECIAL * 

* I/O REQUEST * 

**«4i4i4c4c********** 



***4t*f:4*********](c 

* * 

* ENABLE * 

* FOP I/O * 

* INTERRUPTS * 

* * 
******* ********** 



***G4************ 

* SVC 15 * 

SKIP TO 
* CHANNEL * 

«:*4[*)(c*4!***:******* 



*:****n5 *!**♦**>**** 

*PESTORF CSW AND* 
*I/0 ADDRESS IN * 
*LOW REAL STOR. * 
*RESET PUBFLAGS * 
* AND SVC5NM ♦ 
*i******4c********* 



««**P5***4i***** 

* BRANCH TO ♦ 

* ERPEXIT IN * 

* SUPERVISOR * 

*************** 



*****H5 ********** 



********«:******** 



*****J4********** 



*4(4:iK#*****«***4i** 



**** 

* * 

* E3 * 

* * 
**** 
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Chart TP. $$ABERRP - 3211 NDR Reccrd Builder (Phase 1) (Part 1 cf 3) 
Refer to Chart 07. 



m****fk2********** 



* GET FAILING 

* CCH ADDRESS 



**«**4i#«4i*4i4<**«** 



«*«4<gl4i|c4t ****** 

* flABERRP * 

♦ ♦ 



* SET SVC5NM * 

* FOR EXIT TO * 

* $$ABERA1 * 

* ♦ 



*#*4c*D I*****'***** 

♦ SET RFEXIT IN ♦ 

♦ RFTABLE WITH ♦ 

♦ SUPERVISOR * 

♦ IGNORE EXIT ♦ 

♦ lEXIGN; * 



* STORE AODR OF ♦ 

* RECORD BUILD * 

* AREA IN * 

* RFTABLE * 

* ♦ 



*****F l**##**#*** 
♦IDENTIFY RECORD* 

* AS 3211 MOR ♦ 

* MOVE CUU TO * 

* RECORD AREA * 

* « 



4t***4iG im********* 

* ♦ 

♦ RESET UNUSED * 

* SWITCHES AND ♦ 
♦RELOCATE CCW'S * 

♦ ♦ 



.* LOAD 

*. Fca 

♦. COMMAND 



**C 2 ♦♦♦♦♦♦♦ 



*♦♦♦ 
♦ C3 ♦ 

.xl 



*4! 4c ♦♦♦♦♦♦*« 


**** 






* tlf 






* D2 ♦-X 






♦ * 






♦♦♦♦ X 




ERRIO .♦. 




D2 *. 




.* 


*, 


.* DATA 




♦ . CHf 


:CK 





CHKERR15 X 

4I4CC3******* 

♦ SET » 

♦ RFFLAGS4 * 
♦FOR FCB RECORD ♦ 

♦ REQUIRED ♦ 

♦ ♦ 

♦♦♦♦ I 

♦ ♦ . 

♦ D3 ♦.X. 



.♦MECHANICAL ♦. NO 
.X*. MOTION .♦•.. 
♦ . .♦ 



#4it44t4c4!^4'^« 
♦ SET ♦ 

♦ RFFLAGS4 ♦ 
♦FOR PLB RECORD 

♦ REQUIRED ♦ 
» * 

4(«^4c«4e*^4t4<* 



.♦ LINE 
♦ . POSITION 

♦ . 



♦. 

• ♦ 

• ♦ 



4t*4t4= 

♦ ♦ 

♦ E3 ♦ 

♦ ♦ 
♦♦♦♦ 



♦♦♦♦ 

♦ ♦ . 

♦ E3 ♦.X. 

♦ * , 
♦♦♦♦ 

CHKERR25 X 

i^if^'i ******* 

* SET * 

* RFFLAGS4 

♦ FOR PLB/UCB 

♦ RECORDS 

♦ REQUIRED ♦ 
4t4<^**^^*^^« 



4r4'E4*^***^* 

♦ SET ♦ 

♦ PFFLAGS4 * 

♦FOR UBC RECORD 

♦ REQUIRED ♦ 

♦ * 

4<4r#4c4>4e*^^^4c 



4i4<F 2 ♦♦♦♦♦♦♦ 

♦ SET ♦ 

♦ RFFLAGS4 ♦ 
♦FOR FCB RECORD 

♦ REQUIRED ♦ 

♦ ♦ 
3^4i4> ♦♦♦♦♦♦♦♦ 



REFERENCES ♦♦ 
TO TPF4: * 
TPAI, TRH5 ♦ 



PLB 
RECORD 
•REQUIRED 



♦♦♦♦♦ 
♦TQ ♦ 
♦ A1+ 



.♦ 
,♦ 
NO 



♦ 03 ♦ 

* ♦ 
♦♦♦♦ 



*♦♦♦ 

♦ * 

♦ E3 ♦ 

♦ ♦ 
♦♦♦♦ 



4t4iG3 ♦♦♦♦♦♦♦ 



4i4i4c^^^^^^^* 



G4 ♦. 
.♦ ♦ 

NO .♦ FCB 

...♦. RECORD 
♦.REQUIRED 
*. ,♦ 

♦ . .♦ 



♦♦4t** 
♦TQ ♦ 
* E4* 



.♦ 


MULTIPLE 


♦ , 


YES 


♦ . 


RECORDS 




♦ . ... 


♦ 


.REQUIRED 
♦ . .♦ 


.♦ 


• 




♦ . .♦ 




X 




♦ NO 




♦♦♦♦♦ 








♦ TR ♦ 




, 




♦ Al* 








♦ ♦ 








♦ 




X 




PR P MULT 




.♦. 








Jl ♦. 








.♦ ♦ 






.♦ 


FCB 


'4" 


YES 


♦ . 


PARITY 




.*. ... 


* 




,♦ 






*♦. .♦ 








♦ . .♦ 




X 




♦ HOt 




♦♦♦♦ 








« ♦ 








♦ C3 ♦ 








♦ ♦ 








♦♦♦♦ 




X 








.♦. 








1^1 ♦. 








.* ♦ 






.♦ 


LOAD 


'♦ 


. NO 


*, 


CHECK 




•♦• ... 


* 


'♦. .♦ 


.♦ 


• 




♦ • .♦ 




X 




♦ YES 




♦♦♦♦ 








* ♦ 








♦ D2 ♦ 




X 




♦ ♦ 




♦♦♦♦ 




♦♦♦♦ 




♦ ♦ 








* A2 ♦ 








♦ ♦ 








♦♦*♦ 







4c4cH3*^*^^^^ 



4c:^:^4c^^*4i4(^^ 



H4 ♦. 

.♦ ♦. 

NO .♦ UCB ♦. 

...♦. RECORD 

♦.REQUIRED ,♦ 
♦ . .♦ 

♦ . .♦ 



♦ X. 



ACTIGN 

4c*^4<^ J3 ♦♦♦* 4i^^+ ♦♦ 

♦ RESET RFFLAGS4 ♦ 

♦ AND SET FOR ♦ 

♦ SUPVR IGNORE 

♦ EXIT ♦ 

♦ ♦ 
4c4c^^^^*^^^4i4<*^^^^ 



***** 
♦TR ♦ 
♦ Hl^ 



.♦IGNORE ♦. 
YES .♦ EXIT ♦ 
......REQUESTED IN 

♦.RFFLAGS4 .♦ 



♦ RESET BITS ♦ 
X^ AND 7 IN * 

♦ RFFLAr,34 ♦ 

♦ * 
4i4c4t4c4'4<4c4'*4(*4t^«*4<4: 



4c4e4c4cJ5 ♦♦♦♦♦♦♦♦♦ 

♦ EXIT TQ MDR ♦ 

♦ BUILD PHASE 2 ♦ 

♦ ««ABFRRn * 
4c<c4c4<«4c4'#*4t4c*^4c« 



♦ RESET ALL ♦ 

♦ FLAGS IN ♦. 

♦ RFFLAGS4 ♦ 
4t ♦ 
4i**4c*4t^^^«^^^*^4:4' 



CHAPT TS 



4t4c*4[K5 ********* 

♦ EXIT TO ♦ 

♦ MSG WPITFR ♦ 

♦ SS&BERRL ♦ 
4t4c 4c4c4t4c*4c4c4c4'*^4t« 

CHART QA 
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Chart TQ. $$AEERRP - 3211 MLR Record Euilder (Phase 1) (Part 2 of 3) 
Refer to Chart C7. 



♦♦*** 

♦ TP * 



* PLACE RECORD * 

♦ NO (1 OF I) * 

♦ IN RFTABLE ♦ 

* RELOCATE CCW * 

♦ADDRESS IN CCB * 



♦ IDENTIFY !?ECnRD* 
» AS PI 8, PLACE ♦ 

♦ REC3R0 LENGTH * 

♦ IN RFTABLE * 



♦ ** 



^^'♦♦^'♦♦♦♦♦♦♦♦^ 



*****C I********** 

*IOPTN TR* 

♦ ISSUE FIRST * 

♦ CHECK READ, ♦ 

♦ THEN READ PLB * 



PRPPLR25 .*. 




EXTFCB X 




82 ♦. 




«4tB3««^«^^^ 


.* *. 




« SET ♦ 


.* FCB *. 


YES 


* MULTIPLE ♦ 


*. RECORD 

♦.REQUIRED .* 


*••..• 


...X* RECORDS * 




♦ REQUIRED IN * 


♦ . .* 




♦ RFFLAGS4 * 


♦. . * 




4E4i«#«4ii|t«#«4t 


♦ NO 






♦♦♦* , 






♦ TR ♦ 






♦ Fl ♦sX. 






« * ,x 




...•.•••••.••..•«•••••... 




♦ ♦♦♦ X 








TSTEXT .*. 




EXTUCB 




C2 ♦. 




4t4:(;3)«t«4::^^«4! 




.♦ ♦. 




* RESET ♦ 




.♦ UCB *. 


YES 


* RFFLAGS'* * 




♦. RECORD 


♦....• 


...X* SWITCHES ♦ . 




♦.REQUIRED ,♦ 




* ♦CS ♦ . 





♦♦♦♦♦0 !♦♦♦♦♦*♦♦♦♦ 


D2 ♦. 


* POINT TO PLB/ ♦ 


.♦IGNORE ♦. 


* CHECK PLANE. * 


.♦ EXIT ♦. 


♦SET LENGTH REG ♦ 


♦.REQUESTED IN .♦ 


♦ AND POINT TO ♦ 


♦.RFFLAGS4 .♦ 


♦ PLB POSITIONS ♦ 


♦ , ,♦ 


4;*i(c4c«4:^«4c^^ ♦♦♦♦♦♦ 


♦. .♦ 




♦ NO 


♦ ♦*♦ * 




♦ ♦ 




♦ El *.X. 


, 


♦ ♦ 




♦ ♦♦♦ X 


, 


PRPLBIO .♦. 


EXTMSG X 


El ♦. 


^^'♦♦♦E2*4"*' =*>♦*♦♦*♦ 


.♦ *. 


♦ SET RFEXIT ♦ 


.♦ PRINT ♦. YES 


♦ FOR MESSAGE ♦ 


♦, ERROR ...... 


* WRITER, ♦ 


♦. CHECK .♦ 


♦ $*ABERRL ♦ 



PRINT 
LINE 
.COMPLETE 



PRPPLB15 

♦SAVE CHARACTER ♦ 

♦ FROM PLB AT ♦ 

♦ DECHAR, POINT ♦ 

* TO NEXT PLB ♦ 

* POSITION ♦ 
i^^t^^c^^ ♦♦♦♦♦♦♦♦♦♦♦ 



4c 4»(r4:4c^ ♦♦♦♦♦♦♦♦♦♦♦ 



4c3tcF 2 <<♦♦♦♦'*'♦ 

♦ ♦ 
RESET ALL 
FLAGS IN 
RFFLAGS4 

* ♦ 

41 ^'♦♦♦♦♦♦♦♦^ 



*:t:^i:t:Q 2 ********* 

* SVC 5 ♦ 
♦FETCH SSABERAl ♦ 

♦ CHART MH ♦ 

^^(^^^^^♦♦♦^(♦♦♦♦♦^ 



««♦♦♦♦♦♦♦♦♦ 



^^(♦♦♦D3*^ ♦♦♦♦♦♦♦♦ 

♦ SET RFEXIT ♦ 

♦ FOR MDR ♦ 
♦BUILDER PHASE2 ♦ 

♦ $$A8ERR0 ♦ 

♦ ♦ 

^^^(♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ SVC 5 ♦ 
♦FETCH $$ABERA1 ♦ 

♦ CHART MH ♦ 

*#««<( 4c ♦♦♦♦♦♦♦♦♦ 



RESET ALL 
FLAGS IN 
RFFLAGS4 

♦ ♦OS ♦ 

4>4'^^ ♦♦♦♦♦♦♦ 



4t**^G3 *♦♦♦♦♦♦♦♦ 

♦ SVC 5 ♦ 
♦FETCH $$ABERA1 ♦ 

♦ CHART MH ♦ 

#«<#«♦♦♦♦♦♦♦♦♦♦♦ 



ERROR 
POSITIONS 
. SAVED . 



. YES 
.♦. .. 



♦ POINT TO ♦ 

♦ NEXT ♦ 

♦ CHARACTER ♦ 

♦ ♦ 

4c4c4:#4c4:4c4c4c4<:#4i^^^^^ 



.♦ ALL ♦ 






.♦ PLB 


♦ . YES 




. POSITIONS 


.♦. ,X 




*. CHECKED 


♦ 




♦ . .♦ 






♦ . .♦ 


X 


♦ NO 


♦♦♦♦ 




* ♦ 




♦ 82 ♦ 


X 


♦ ♦ 


♦♦♦♦ 


♦♦♦♦ 


♦ ♦ 




♦ El ♦ 







4t*^^^B4^*^^***^*^ 

♦ SET RFEXIT * 

♦ FOR MDR * 
X^BUILOEP PHASEl ♦ 

♦ $$A8ERRP * 

♦ * 



*:4t^^C4^^**^***^ 

♦ SVC 5 * 
♦FETCH $«ABERA1 ♦ 

♦ CHART MH ♦ 

*4i^^^^^^^^^#^^^ 



♦C5 
TURN OFF 

MULTIPLE RECORDS, 
AND RECORD NOT 
WRITTEN SWITCHES. 



♦05 
TURN OFF 

MULTIPLE RFCORDS, 
TAKE IGNORE EXIT, 
AND RECORD NOT 
WRITTEN SWITCHES. 



RFPERENCES *♦♦*♦ 

TO TQE'*: * ♦ 
TPG4, TPBl * ♦* 



^^^^♦♦♦♦♦♦^ 

♦ RESET FCB ♦ 

RECORD 

REQUIRED IN 

RFFLAGS4 

♦ ♦ 



4i4t4c4>^F4^^^*^^*^^^ 

♦ ♦ 

♦ PELOCATE FCAR ♦ 

♦ CCW ADDRESS ♦ 

♦ IN CCB ♦ 

♦ ♦ 



tif***G't********** 

♦ lORTN TP^ 
4, _*-«■-»-♦-♦-♦-♦- ♦ 

♦ ISSUE READ ♦ 

♦ FCAR ♦ 

♦ ♦ 



HA ♦. 




«4<^*^HS ♦♦*♦♦♦♦**♦ 


.♦ * 




♦ PUT RCO NO ♦ 


♦ FCAR 


♦ . YES 


♦ (1 OF 2; IN ♦ 


AT 


........ 


..X^ RFTABLE, SET ♦ 


♦POSITION 1 


♦ 


♦FCB REC LENGTH ♦ 


♦ . .♦ 




♦ IN RFTABLE ♦ 


♦ . .♦ 




,l,il,t***lt********** 



PRPFCAR 

♦ IDENTIFY RCD ♦ 

♦ AS FCAR AND ♦ 

♦ PUT RECORD * 

♦ NO U OF I) ♦ 

♦ IN RFTABLE ♦ 
4[4c«^^^^^*^^^^^^^^ 



^^♦♦♦K4«*^^*««^*^ 

♦ PUT LENGTH ♦ 

♦ OF FCAR ♦ 

♦ RECORD IN * 

♦ RFTABLE ♦ 

♦ ♦ 



4c ^^♦♦JS ♦♦♦♦♦*♦♦♦♦ 

♦ RELOCATE ♦ 

♦ FCB CCW ♦ 

♦ ADDRESS IN ♦ 

♦ CCB ♦ 

♦ ♦ 
4> #♦♦♦♦♦*♦*♦♦♦♦♦♦♦ 



4i4c^*^K5 ♦♦♦♦♦♦♦♦♦♦ 
♦lOPTN TR* 

4c_4c- ♦-*-♦-*-♦-♦-♦ 

♦ ISSUE READ ♦ 

♦ FCB ♦ 

♦ ♦ 



♦♦♦♦ 

* * 

* B3 ♦ 

* * 

♦♦♦4c 
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Chart TR. $$ABERRP - 3211 NDR Record Euilder 
Refer to Chart 07. 



(Phase 1) (Part 3 cf 3) 



♦ TP * 

♦ HI* 



PRPHULT .*. 




Al ♦. 




.* *. 




.* ERROR *. YES 


♦. ON LAST .♦ 




*. RECORD .♦ 




*. .♦ 




♦ . .* 


X 


♦ NO 


♦**♦♦ 




♦TP ♦ 




♦ F4* 




♦ * 


, 


* 


X 


CHKERR40 


»*• 




Bl ♦. 




.♦ WAS *, 




.♦ LAST ♦. YES 


♦. RECORD ...... 


♦. PLB .♦ 




♦ . .♦ 




*. .* 


X 


* NO 


♦***♦ 




♦TQ ♦ 




♦ E4* 




♦ * 


* 


♦ 




PRPFCB 


X 




lf****Cl********** 




* * 




* RELOCATE FCB ♦ 




* CCW ADDRESS * 




* IN CCB * 





♦♦♦♦ A3 4>*** *♦*** 

♦ lORTN ♦ 

♦ * 



4(*4i**B3 ***♦«*«*** 



«*4c4i4:*4c ♦*«*****«* 



#««««: 4i#««4e«#*4i*** 



* * 

* PUT LENGTH OF * 

* FCB RECORD 2 * 

* IN RFTABLE * 

* ♦ 



♦ SET CCW TO * 
♦SKIP FCB PARTI ♦ 

♦ MOVE RECQRDNO * 

♦ (2 OF 2; TO ♦ 

♦ RFTABLE ♦ 
4e«: *« «# # 3|>* « 4i##4i« «4i 



♦lORTN TR* 



^^^(♦♦♦♦♦♦♦♦♦♦♦♦♦* 



♦♦♦♦♦ 

♦ TQ ♦ 

♦ C2* 



*♦**♦ 

♦ TP ♦ 

♦ J3^ 



♦ LOAD IGNORE ♦ 

♦ EXIT ADDR ♦ 

♦ IN REG, 15 ♦ 

♦ ♦ 



*4[##^J ^^^^[♦♦♦♦♦♦^ 
♦RESTORE CSW AND^ 
♦I/O ADDR IN LOW* 

♦ REAL STORAGE. ♦ 
♦RESET PUBFLAGS ♦ 

♦ AND SVC5NM ♦ 



♦ BRANCH TO ♦ 

♦ ERPEXIT IN * 

♦ SUPERVISOR ♦ 



♦ C3 ♦.X 



♦♦*♦ 
lORTY X 

*«4c*^C3^^*^ ♦♦♦♦♦♦ 

* SAVE RETRY ♦ 

* COUNT CLEAR ♦ 

* SENCE BYTES * 

* CALC PUB ♦ 

* ENTRY NUMBER ♦ 



«*4e4(^D3 *♦♦♦♦♦♦♦*♦ 
♦SAVE SYSUSE PUB^ 

* POINTER AND ♦ 

♦ REPLACE WITH ♦ 

* PUB ENTRY ♦ 

♦ NUMBER ♦ 



^■t::t'*^*E:3i******'¥*** 



#****4t)tc««i#4c««4>*** 



ENABLE 
FOR I/O 

INTERRUPTS 
♦ ♦ 



♦♦*G3^*^****+^^+* 

* SVC 15 * 

ISSUE I/O 
♦ REQUEST * 

#4<**************^ 



♦ ♦ 

♦ C4 ♦ 

♦ ♦ 
♦*** 



*♦♦* 

♦ 4c 

♦ C4 ♦ 

♦ * 

*♦** 



YES 



DISABLE 

FOR I/O 

INTERRUPTS 

♦ ♦ 



4c*4c4<*CS ♦♦♦♦♦♦♦♦♦♦ 



«4<4<*****««***4t*#* 



♦ RETURN TO * 

♦ CALLER ♦ 

♦ * 



.* IS IT 

YES .* BUFFER 

,.,.*. PARITY 

». ERROR 



♦ ♦♦**G5 **«*4c4c*^«4i 



^:^ 4c ]|c4c«#*«#««4i«# :*::«; 



^{^^♦♦♦♦♦♦♦♦* 






* 


♦ . 


RETUPN TO * 


NO . 


* 




RETRY 


CALLER * 


.. «♦. 






COUNT 


* 




A 


EXHAUSTFD. 


«;4c#4c4c**4c4c4c4c4c 


X 

* * 

* C3 * 

* * 




* 


*. .* 

♦ YES 

X 
***** 
*TD ♦ 
* FA-* 

* * 

CHKER«'40 
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Chart TS. $$AEERRQ • 3211 MER Record Builder (Phase 2) (Part 1 of 2) 
Refer to Chart 07. 



♦♦*♦ 

* A2 ♦ 

* ♦ 
*♦*♦ 



*TT ♦ 
* 04* 



* $$ABERRO * 



BEGIN 

«****C I********** 

* SET FTCHNM ♦ 

* FQR RECORD ♦ 

* WRITER PHASE ♦ 

* SSABERAl * 
4t « 



* SET PFEXIT * 

* WITH AODR OF ♦ 

* SUPVR IGNORE * 

* EXIT (EXIGN; ♦ 

* ♦ 



4c 4( 41 4c 4:E 1 ********** 

♦PUT RECORD ADOR* 
♦IN RFTABLE AND ♦ 

♦ IDENTIFY AS * 

♦ MDR, RESET ♦ 

♦ RFRDSWl ♦ 
4c*i(c4i)tc#**4t*4:4c4t*f4<4c 



4c3*:4c4')«cF !♦*♦>»:**»♦♦* 

♦IDENTIFY AS3211* 
♦IN RFRDSW2 AND ♦ 

♦ GET CHAN-UNIT ♦ 

♦ ADDRESS ♦ 

♦ ♦ 
4t4c«4c**«4»«c4c4c#«#«4i4i 



4!4c#4c*C !♦♦♦♦♦♦♦♦♦♦ 

♦ RELOCATE CCW ♦ 

♦ ADOR IN CCB ♦ 

♦ PUT RECORD ♦ 

♦ LENGTH IN ♦ 

♦ RFTABLE * 

4:4c*««*4E4i4c«4>4c^4:#«* 



♦ ♦ 

♦ RELOCATE DATA ♦ 

♦ ADDRESSES IN » 

♦ CCWS ♦ 

♦ * 
4c4c«#4c4[*4c4c*4<4'***«^ 



.♦ MULTIPLE 
♦. RECORDS 
♦.REQUIRED 
♦.SW ON.^ 



««#4r«B2 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ PUT RECORD ♦ 

♦ NOe CI OF 3 J ♦ 

♦ IN RFTABLE ♦ 

♦ ♦ 

«#4t*4>«4i«*4t*4i4>«***: 



#4'«««C2 ♦♦♦♦♦♦♦♦♦♦ 
♦lORTN TT+ 

♦-*-.♦-.♦-*-♦-♦-♦_♦ 

♦ ISSUE READ ♦ 

♦ UCB ♦ 

♦ ♦ 

4i4[4(4>«^*«*^^**«4t««: 



♦ SET ♦ 
MULTIPLE 

RECORDS 
REQUIRED IN 

♦ RFFLAGS4 ♦ 
^^♦♦^'♦♦♦♦♦^ 



4c««*4cE2 ♦♦♦♦♦♦*♦♦♦ 

♦ SET RFEXIT ♦ 

♦ FOR MDR ♦ 
♦BUILDER PHASE2 ♦ 

♦ $$ABERRO ♦ 

♦ * 

^^^♦♦♦♦♦^'♦♦♦♦♦♦♦ic 



«*4>4tF 2 ♦♦♦♦♦♦♦♦♦ 

♦ SVC 5 ♦ 

♦FETCH SSABERAl ♦ 

♦ CHART MH ♦ 



ERROR 
ON LAST 
. RECORD 
♦. •♦ 



B3 ♦. 
.♦ WAS ♦. 

♦ LAST ROD ♦. NO 
UCB RECORD •♦•.. 

♦ « I .♦ 



«4c««4>C3 **♦♦♦♦♦♦♦♦ 

♦ PUT RECORD ♦ 

♦ NO. (2 OF 31 ♦ 

♦ IN RFTABLEt ♦ 

♦ SET CCW TO ♦ 

♦ SKIP PART 1 ♦ 
4t*4i««#4(**4t^**4<««* 



4c**«4i03 ««♦♦♦*♦♦♦♦ 
♦lORTN TT+ 

*-♦-*-♦-*-*-*-.*-« 
.♦ ISSUE READ ♦ 

♦ UCB ♦ 

* ♦ 

4i4i*4i4t4[4i**4ci|t««4>^«^ 



.TSTEXT «♦. 

A4 ♦. 

.♦IGNORE ♦. 

.♦ EXIT ♦ 

♦ .REQUESTED IN 

♦.PFFLAGS4 .♦ 



^^^^♦♦♦♦♦♦* 



RESET ALL 

FLAGS IN 

RFFLAGS4 

♦ ♦ 

**4i**4>*«4t4c« 



4c* * «(; 44t 4i4c* ♦♦ **♦ 

♦ SVC 5 ♦ 
♦FETCH $«ABERAl ♦ 

♦ CHART MH * 

4c*«4i«*^*^*«*4i4i^ 



* RESET ALL ♦ 

* FLAGS IN * 

* RFFLAGS4 * 
4c 4c 

4i:M>^^^^^^^4<^^«^*^ 



♦ ♦♦♦4c 

♦TT ♦ 

* F4^ 



PRPUCB X 

**:i^4c4cF3*^^^***^^^ 

♦ PUT RCD NO. (3 ♦ 

♦ OF 3 1 AND LENGTHS 
♦IN RFTABLE, SET^ 

♦ CCW TO SKIP ♦ 

♦ PARTS I AND 2 ♦ 
4e«4c4c4<^^«*4i^^^^^^4c 



4c 4i4c4>*63***^ ♦♦♦♦♦♦ 
♦lORTN TT^ 

4c-.4t_4._4!-4t -4. -4.-^ -4: 

♦ ISSUE READ ♦ 

♦ UCB ♦ 

♦ 4c 
4i4i4c4c4c*4c«c*4i4i4c4c4'^^4c 



.♦. 

H3 ♦. 

.♦IGNORE ♦. 

.♦ EXIT ♦. N 

♦.REQUESTED IN .♦. 

♦.RFFLAGS4 .♦ 



♦ A2 ♦ 

♦ 4c 
4c 4c** 



*«J3******* 

♦ ♦ 
RESET ALL 
FLAGS IN 
RFFLAGS4 

♦ * 
*********** 



* * 
RESET ALL 
FLAGS IN 
RFFLAGS4 

* * 

*******4c*** 



»****J4*********« 



*«******«*#♦***** 



****K4^^^^^^*^^ 

♦ SVC 5 ♦ 
♦FETCH $$ABERA1 ♦ 

♦ CHART MH ♦ 

***********4(*** 
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Chart TT, $$ABEBRQ - 3211 KBR Record Builder (Phase 2) (Part 2 cf 
Refer to Chart 07. 



2) 



♦*♦♦ 

* * 

* A3 * 



.X. 



*iti**f^2 ********* 

* * 

* lORTN * 

* * 



«***«)|i*4t««**4(*4t*4t 



**** 
lORTY X 

*^fm**C 2 ********** 

* * 

* CLEAR SENSE ♦ 

* BYTES, CALC * 

* PUB ENTRY NO ♦ 

* ♦ 



***4>*02 ********** 
*SAVE SYSUSE PUB* 

♦ POINTER AND * 

♦ REPLACE WITH * 

♦ PUB ENTRY ♦ 

♦ NUMBER * 



}^nf***EZ********** 



* LOAD CCB AODR * 



m**************** 



4c4iF 2 ******* 

* * 
ENABLE 
FOR I/O 

INTERRUPTS 

♦ ♦ 



«i4c*G2 ************ 



* * ♦ * 

* * SVC 7 ♦ * 
.X* * MATT * * 

* ♦ ♦ * 

* * ♦ * 



4c*B3******* 



^ttLti^flt'****** 



««4i4>«:C3********** 

* ♦ 

* RESTORE * 

* SYSUSE * 

* PUB POINTER * 

* * 



.* ERROR 
*. ON I/O 



^r^il'^ES********* 

* RETURN TO * 

* CALLER * 

* * 
t************** 



.* WAS *. 
.* THEPE A ♦. 
.BUFFER PARITY. 
*. EftPOP .♦ 



♦ , 






♦♦♦♦05 ♦*******♦ 


r/0 


*, 


NO 


* RETURN TO 


RETRIED 




♦ «. .. 


* CALLER 


TWICE . 


* 




* 


.* 






*#4:«iti*4t*****««« 


♦ . ,* 




X 




* YES 




**** 

* * 

* C2 * 




X 




« * 




***** 




**** 




*TS * 








* A4* 









SVC 15 

SYSIO 



H^Hiif ************** 



***** 
*TS * 
* B5* 



* LOAD IGNORE * 

* EXIT ADDRESS * 

* IN REG. 15 * 

* * 



#4E4t*4tG4********** 
♦RESTORE CSW AND* 
♦I/O ADDR.IN LOW* 

* REAL STORAGE * 
♦RESET PUBFLAGS * 

* AND SVC5NH * 



itim**\iit-********* 

* BRANCH TO * 

* ERPEXIT IN ♦ 

* SUPERVISOR ♦ 
^^^'♦♦♦♦♦^♦♦♦♦♦^ 
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chart TU, $$AEERRG - 3505 Card Reader and 3525 Card Punch ERP (Part 1 cf 2) 
Refer to Chart 02. **** 



* A3 ♦ 

♦ * 
*♦♦♦ 



* ♦ 

* $$ABERRG ♦ 



,* CHANNEL ♦. ¥ES 
*.0R INTERFACE .♦..., 

*. CONTROL .♦ 
♦ .CHECK.* 



BUS 

OUT 

CHECK 



DATA 
CHECK 



* SET HSG CODE ♦ 

* X»09» * 
.X* AND SET ♦• 

* OBR FLAG * 
« * 



«t4'4e4>«B4*****'i'**** 



CHANNEL 
DATA 
CHECK 



♦ SET MSG CODE * 
X*X»28«. POST OBR*. 

♦ FLAG * 

♦ * 

4c**4:«4t«*:«4'******* 



***4i*4(4t4c*«4ii(t4i*««i4< 



^if***tC*t********** 



4c4e***********«*** 



* H3 * 

♦ ♦ 
♦♦*♦ 



*TV * 
* B3* 



UNUSED * 


. YES 








STATUS BITS 


,*f .... 








ON .* 










*. .* 










*. .* 










* NO 






**** 

♦ ♦ 

* E2 *.X 










* * 




X 






**** 




.* . 




OBR UNO X 


El *. 






4t*4>**E2********** 


.* ♦. 






* * 


UNIT * 


. NO 




* SET ON ♦ 


CHECK 


.*. .. • 




* OBR FLAG ♦ 


ON .♦ 






* * 


*, ,* 






* * 


*. .* 


X 




»##*4<************ 


* YES 


4>*4E* 






41 


* 


*♦♦♦ 






* F2 


♦ 


» ♦ 






* 


* 


* F2 *,X 






*«K|c)(r 


* 4> 




X 






4c*** 





Fl *, 

.♦ *. 

UNUSED 

SENSE BIT 

ON 
*. .* 

*. .* 
* NO 



Gl *. 

.* ♦. 

* PERMANENT 

ERROR KEY 



UNOETR 

##*:4:4<p 2 ********** 

* SET MS6 CODE * 
*X»29» UNOETERM.* 

* ERROR SET * 

* OFF RETRY AND * 

* IGNORE FLAG * 

*«4E****4>«]|i*j(t**4:* 

* . 

* , *4i4i« 

* , ♦ ♦ 

* ..X* J3 * 

♦ ♦ ♦ 

**♦* 

4c 4r***G2 ********** 



EQUIPMENT 
. CHECK . 



I ***♦ 

* * 

..X* F3 * 

* * 

**4r«4cH2 ********** 

* ♦ 

* SET MSG CODE * 
X* X«10' * 

* SET GBR FLAG * 

* * 

. BYTEONE 

*♦** 
. *TV * 
.,X* B3 * 

* * 
**** 

4t4E*4;*j2 ********** 



* 




* 




YES 


* SET MSG * 




ABNORMAL 

. FORMAT 


>* 


* 




...X* CODE X*48' * 


* 






* * 




♦.RESET.* 








* « 




*♦ .* 








t^^^^^^^^^^^t^^iO^^c 




* NO 








. BYTEONE 
. ♦♦** 
. *TV * 
..X* B3 * 
* * 




X 








***♦ 




.*. 












Kl *, 








4c****K2********** 




.* * 








♦ * 


* 




*■ 




YES 


* SET HSG CODE * 


! 


nERVEf^TIOf 




* 




..A* X508« * 


* 


.REQUIRED 


t* 






» «< 



***♦ 

* * 

* A3 * 

* * 

»*♦* 



*** * * * « ** * «** ** 4c4t 



**** 

* * 

* H5 * 

* ♦ 



**** 

* * 

* F2 * 

* * 
**** 



***** 

♦ TV * 

* E3* 



*4>«i4>«E4**4<4c***4i** 

* SET RETRY TO * 

* ONE LOAD * 
RETRY EXIT * 

* ADDRESS * 

* * 

***«;**4(*4>*******>K 



.X* 



**♦* 

*TV * 

♦ C3 *.X. 



♦♦** 

* * 

* F3 * 

* * 

**** 



F3 *. 
.*RETURN *. 
REQUESTED *. NO 
AND CCB .*... 
.AVAILABLE.* 
*. .* 
*• .♦ 
* YES 



««:*4t«(;34t4e*4t*«>****: 

* SET ON PASS * 

* BACK FLAG. * 

* SET ON * 

* PERMANENT * 

* ERROR BIT * 



* F3 *.X 



.*. 

F4 *. 

.* UNIT *. 

.CHECK RECORD*. 

*. REQUESTED . 

*. .♦ 



X 
***** 
♦TV * 
* Al* 



* SET OFF RETRY * 

* AND IGNORE * 

* FLAG (CANCEL) ♦ 

* * 
*4<*^4c4i*******4t*** 



* ♦♦♦ 
♦TV * 

* D4 *.X 

* * 
**** X 

FETCH .*. 
J3 



4c*4e**F5********** 


♦ STORE RETRY 




♦AODR IN RFEXIT 




X* POST RECOERR 




♦ IN RFLAGS3. 




* RESET OBRFLAG 




• ♦♦♦4c4>«4(^4:**4.4i4t*« 


♦♦♦♦ 






♦ ' ♦ 






♦ G5 ♦.X, 






♦ ♦ 






♦♦♦* 






X 




♦^^♦G5 ♦*♦****** 


♦ SVC 5 


* 


• SSABERA4 


* 


* CHART MC 


* 


♦4c4[4t4>«4c**^^*^^* 


♦♦♦♦ 




♦ ♦ 




♦ H5 ♦... 




♦ ♦ • 




♦*♦♦ X 




.♦. 




H5 ♦. 




.♦ ♦. 




.♦ MOTTON ♦, 


NO 


*. MALFUNCTION .♦.. 


*. •* 




♦. .* 




*. .* 




* YES 





♦«*^J4^*^*^**4i* 

♦ SVC 5 * 

.X* $$ABERRL * 

* CHART QA * 
** # * 4> 4c 4t * * * 4t* 4> 4i * 



♦♦♦♦* J5 ^i*******)!!* 



*«:* *4i *4t 4t)|t4i4t**4i**j(t 



itt4c***K3 ********** 
*POST RECDERR IN* 
*RFLAGS3; RESET * 

* OBR FLAG; SET *. 
♦RFEXIT TO EXIT * 

* TO $$ABERRL * 
*4c«**4c^^^******** 



• X.. 

X 

**♦♦* 

*TV ♦ 

* 83* 

♦ * 



**** 

* * 

* G5 * 

* * 
**** 
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Chart TV. $$ABERRG - 3505 Card Reader and 3525 Card Punch ERP (Part 2 cf 2) 
Refer to Chart 02. 



♦♦»♦♦ 

♦ TU ♦ 

♦ F4* 



» LOAD RETRY * 

* EXIT ADDR * 

* IN REG. 15 * 

* * 



REFEftENCES ♦*♦♦* 
TO TVB3: * * 
TUC4» TUH2 » ♦* 
TUJ2» TUJ5 ♦ ♦ 



X IGNORE X 

* LOAD IGNORE ♦ 

* EXIT ADDRESS * 

* IN REG, 15 * 

* * 



♦RESTORE CSH AND* 
*I/0 ADDR IN LOW* 

* REAL STORAGE * 
♦RESET PUBFLAGS ♦ 

♦ AND SVC5NM ♦ 



♦ BRANCH TO ♦ 

♦ ERPEXIT ♦ 

♦ IN SUPERVISOR * 



BVTEONE -*. 


B3 ♦. 


.* ANY ». 


YES .* OF BITS ♦ 


.«.*. 4,5,6 OR 7, 
♦.OF BYTE l.^ 


♦. ON .* 


♦ . .♦ 



X 












.♦. 












C3 ♦. 












♦ ♦ 












BIT 


*♦ 


. YES 








EERO 




.♦..•• 








ON 


.♦ 










♦ • .♦ 












♦ . .♦ 




X 








♦ NO 




♦ ♦♦♦♦ 












♦ TU ♦ 








• 

* 




♦ F3^ 

♦ ♦ 












♦ 








X 




PERMER 








.♦. 




RETINT 






D3 ♦. 






*4i*«4>04*4c«4i:»4<^^^* 


♦ ♦ 






♦ 






BIT 


'♦ 


. YES 


♦ 


SET 




THREE 




.♦.•..... 


.X^ 


•A* TYPE 




ON 


,♦ 




♦ 


FLAG ON 




♦ . .♦ 






♦ 






♦ . .♦ 






**4i*«*4c*******^4<^ 



♦♦♦♦« 
♦TU ♦ 
♦ J3^ 



BIT ♦ 


. YES 


ONE 


.♦ 




ON .♦ 






♦ . .♦ 






♦ • .♦ 




X 


♦ NO 




♦♦♦♦♦ 
♦ TU ♦ 


....xl 




♦ E3^ 

♦ ♦ 

♦ 


X 


♦♦ 




SET 






UNIT RECORD 






FLAG 







<(*«♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



X 
♦♦♦♦♦ 
♦TU ♦ 

♦ H3^ 



Detail Charts 261 



Chart TW. $$AEERAN ~ 3886 CCR Reader ERP (Part 1 of 4) 
Refer to Chart 02. 



* B4 * 



* SfABERAN * 



♦ LOAD ADDRESS * 

♦ OF SYSTEM * 

♦ COMMUNICATION ♦ 

♦ REGION * 

♦ # 



* LOAD ADDRESS * 

* OF ERBLOK ♦ 

* AND PUB ENTRY * 

* FOR DEVICE ♦ 

* ♦ 



♦ * 

♦ LOAD ADDRESS * 

♦ OF RFTABLE ♦ 

♦ TABLE ♦ 

♦ * 



* ♦ 

* CALCULATE * 

* ADDRESS OF * 

* LAST CCW USED * 

* * 



.♦CHANNEL OR 
*. INTERFACE 
*. CONTROL . 
♦.CHECK,* 



YES 


« 


CHANNEL 


♦, 




...* 




DATA 




♦ 




*. 


CHECK 


** 








♦ . .* 






X 




♦. .♦ 






♦♦♦** 




* NO 






♦TX * 










* E3* 










♦ * 










♦ 










RETRY 




X 
• ♦• 

D2 ♦, 










♦ ♦. 




.♦ 


UNUSED 


♦ • 


YES 


>♦ 




STATUS 


• 


*..X 



IS 


♦ . YES 


HIS A 


.*. •« 


CCW 


.♦ 



* ♦ 
. ♦**♦ 
X 

.♦. 

F2 *. 

♦ *. 
UNUSED ♦. YES 

SENSE .*.... 

BYTE .* 
*. .* 

*, .♦ X 

* NO ***** 

♦TX ♦ 

♦ B3* 
, ♦ ♦ 

♦ 
X NOTUSEDA 

.♦. 
G2 ♦. 

♦ ♦. 

RCP ♦. YES 



♦ SET MESSAGE ♦ 

♦ FLAG TO *X 

♦ NON-RECOVERY ♦ 

♦ ♦ 
*********** **** * * 



*****C^********** 

* * 

* SET ♦ 

* NON-RECOVERY ♦ 

* BIT IN CCB ♦ 

* ♦ 
***************** 



***m*n^********** 

♦ * 

♦ SET * 

♦ INTERVENTION ♦ 

♦ AND PASS BACK ♦ 

♦ FLAGS ON * 
***************** 



*****i^-i********** 

* * 

* SET UP ♦ 
♦PARAMETERS FOR ♦ 

♦ UPDATSOR ♦ 

♦ ♦ 
***********il^**** 



*****f^********** 

♦UPDATSOR TZ+ 

♦-♦-*-♦-.*-*-♦-♦-* 

♦ UPDATE SDR ♦ 

♦ COUNTER ♦ 

♦ ♦ 
***************** 



B4 *. 
.♦ ♦. 

♦ *. 
NONR ECO VERY 

♦ . •♦ 

♦ . .♦ 



.♦ ♦. 

♦ 

INCOMPLETE 
♦. SCAN 
♦ . .* 

♦ . .♦ 
♦ MO 



♦♦♦♦♦ 
*TX ♦ 
♦ C4^ 



YES .♦ 

...♦. MARK 

♦. CHECK . 

♦ • .* 

X ♦- .♦ 

***** * Dio 

♦TX ♦ 
♦ B5+ 



.INTERVENTION 
♦.REQUIRED .♦ 



♦♦♦♦♦ 

♦ TX ♦ 

♦ Fl^ 



COMMAND X 

*****£<5****i***** 

♦ SET MS6 

♦ FLAG TO 

♦ COMMAND 

♦ REJECT 

♦ 

****************: 

♦♦♦♦ 

♦ ♦ 

♦ 05 ♦•X 

♦ ♦ 
♦♦♦♦ 

PERMERR X 

*****Q^********** 

♦ INDICATE ♦ 

♦ PERMANENT ♦ 

♦ ERROR IN ♦ 

♦ CCB ♦ 

♦ ♦ 
***************** 



*****£^********** 

♦ * 

♦ SET ALLOM ♦ 

♦ IGNORE FLAG ♦ 

♦ ON ♦ 

♦ ♦ 
*********** ****** 

**** I REFERENCES 

♦ * .TO TMF5: 

♦ * ♦.X. TXKl, TXK3 

♦ * I TYKl 
♦♦♦♦ . 

NOOBR X FETCH 

*****f:^^,*iti******* 



BUSOUT 
. CHECK 

♦ « • 



SET 
PHASENAME 
^RBLOC 



#4(4c«4iH !♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ INSERT X«FF' ♦ 

♦ IN CCW ♦ 

♦ ADDRESS ♦ 

♦ * 
*****,ti******1r***1f 



***** 
♦TX ♦ 
♦ A2^ 

♦ ♦ 



♦♦♦♦♦ 
♦TX ♦ 
♦ Bl^ 



YES •♦ 
• •.♦. 



♦♦♦♦ 

♦ ♦ 

♦ C5 ♦ 

♦ ♦ 
♦♦♦♦ 



• ♦ 

• ♦ 
***************** 



COMMAND 
REJECT . 

♦ « .♦ 
♦ . .♦ 
♦ NO 



♦^♦♦G 5 ♦♦♦♦♦♦♦♦♦ 

♦ SVC5 ♦ 

♦ $$ABERRL ♦ 

♦ ♦ 
**************'^f 



*1f***J l**^i**f!**iti4i 

♦ ♦ 

♦ LOAD ♦ 

♦ ADDRESS ♦ 

♦ OF CCB ♦ 

♦ ♦ 

^***Hc**********-^c* 



UNUSED 

SENSE 

BYTE 1 



♦ SET MESSAGE ♦ 

X^ FLAG TO ♦ 

♦NONINITIALIZEO ♦ 

***************** 



**** 

♦ * 

♦ 05 ♦ 

♦ ♦ 
♦♦♦♦ 



♦ NO ♦♦♦♦♦ 




♦TX ♦ 




♦ B3^ 




♦ ♦ 




♦ 




X NOTUSEDA 




.♦. 




K2 ♦. 




* *, 




♦. YES 




EQUIPMENT ...... 




CHECK .♦ 




♦ . .♦ 




*. .♦ X 




* NO ♦♦♦♦♦ 




♦TY ♦ 




♦ Bl^ 


EQUIPMENT 



• ♦• 


INVAL 


ID 




H4 ♦. 


*** **» 5 **** ****** 


.♦ ♦. 


* 




SET MSG ♦ 


.♦ ♦. YES 


* 




FLAG TO ♦ 


♦. INVALID .♦ 


,.%* 




INVALID ♦ 


♦. FORMAT .♦ 


* 




FORMAT ♦ 


«. .* 


* 




♦ 


♦ . .♦ 


***************** 


♦ NO 








♦♦♦♦ 








♦ ♦ . 








♦ J^ ♦.X. 






X 


♦ ♦ . 






♦♦♦♦ 


♦♦♦» 






♦ ♦ 


UNDETR X 






♦ D5 ♦ 


*****J4t*********:tf 






♦ * 


* * 






♦♦♦♦ 


♦SEE MSGFLAG TO ♦ 








♦ UNDETERMINED ♦ 








♦ ERROR ♦ 








♦ ♦ 








****************iii 








**** I 








♦ TX ♦ 








♦ E2 ♦•X, 








♦ ♦ 








♦♦♦♦ 








CANCEL IB X 








*****K,^********** 








* * 








* SET ERROR ♦ 








♦ FLAG TO ♦ 








♦ CANCEL JOB ♦ 









*************^:ttnf,ti 



♦ F5 ♦ 

* * 
**** 
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Chart TX, $$ABERAN - 3886 CCR Reader ERP 
Refer to Chart 02. 



(Part 2 cf 4) 



***** 

♦TW ♦ 
♦ G2* 

♦ ♦ 



*♦*♦» 

♦ TW ♦ 

♦ F4* 



BUSOUT .*• 

Bl ♦. 

.* ♦. 

.* COMMAND 
*. RETRIED 
♦ . . 

♦ , .* 

♦ . .* 
* NO 



*«*#*c l**-******** 



RECOERR X 

*****/^2********** 

* SET MESSAGE * 

* FLAG TO ♦ 

* RCP ERROR ». 

* INON-INITI ♦ 

* t 
***m************* 



BUSOUTER 

i^****S2 ********** 

* SET MSG ♦ 

* FLAG TO ♦ 
...X* BUS OUT * 

* CHECK ♦ 



tt**************** 



REFERENCES 

TO TXB3: 

TWF2, TWJ? 

***** 



NOTUSEOA X 

♦ SET MESSAGE * 

♦ FLAG TO ♦ 

♦ UNDETERMINED ♦ 

♦ ERROR * 

♦ ♦ 
iif^m******** ****** 



***** 
*TW * 
♦ C4* 



SET RETRY 
COUNT TO 1 



4c4i***4r4t**4i**4t4i«** 



*****Ql**i^iti*****n[ 

* * 

* SET ALLOM * 

* RETRY FLAG * 

* ON ♦ 

* ♦ 



*1f***£^l*^ttil,iHlti^m** 

* SET UP TO * 

* RETURN TO ♦ 

* RETRY RTN *. 

* IN SUPVR * 

* * 
*i^*m************* 

***♦ 
*TH * 

* E4 *... 

* ♦ , 
**♦♦ • 

INTERVEN X 

^tt***fl********** 

* SET MESSAGE * 

* FLAG TO * 

* INTERVENTION * 

* REQUIRED * 

* ♦ 

it:4lHi.itf ************* 



TNDPERM 

*****C2********** 

* * 

* INDICATE * 

* PERMANENT * 

* ERROR IN CCB ♦ 

* * 
i^jf*************** 



**«4i4i02 ********** 



SET ALLOW 
IGNORE 
FLAG ON 




***** 


I **** 


** 


*TW * 


. *TY 

..X* G4 


* OBREC 


* 



♦***♦ 

♦TY * 

♦ H4* 



**♦* X 

RETRY .*. 

iH:t,^**^2********** E3 ♦. 

* SET MESSAGE ♦ .♦ *. 

* FLAG TO ♦ YES .♦ HAS ♦ 

* CHANNEL DATA *X, ...... .♦.COMMAND BEEN 

* CHECK ♦ *. RETRIED .♦ 

* * *. .* 

7lf.:lfHt*:tt*t!i^**iltif***** ♦. .♦ 

* NO 



**:^f******m******* 



* SET SDR * 

* COUNTER * 

* LIMITS * 

* ♦ 



.* HAS *. 

* COMMAND *. NO 

BEEN .*... 

♦ . RETRIED .* 



***** 

♦TW ♦ 

♦ 04^ 

♦ ♦ 



MAPKCHEC X 

^^'♦♦♦B*; ♦♦♦♦♦♦♦♦♦♦ 

♦ SET MESSAGE ♦ 

♦ FLAG TO ♦ 

♦ MARKCHECK ♦ 



4t4t4>«4E«4c4i*4t*4i «!*«*« 



**iH**C5********** 

♦ * 

♦ INDICATE ♦ 

♦ MARKCHECK ♦ 

♦ IN CCB ♦ 

♦ ♦ 
^^^^♦♦^♦♦♦♦*«*4t«* 



*****fyi5,*m** ****** 

♦ SET ♦ 

♦ INTERVENTION ♦ 

♦ AND PASSBACK ♦ 

♦ FLAGS ♦ 

♦ ♦ 

I ♦♦♦♦ 
. ♦ ♦ 

♦ ♦♦♦ 

♦ ♦ 

♦ SET RETRY * 
X^ COUNT =1 ♦ 

♦ * 

♦ * 

^^^'♦♦♦♦♦♦♦♦♦♦♦♦♦^c 



♦♦♦♦♦ 

♦TW ♦ 
♦ K4+ 



^^[♦♦♦F3^^^^^^^^^^ 



♦ INDICATE 

♦ RETRY CNT = 1 



:titl*^l^*i^*lti******** 



INCOMPSC 

♦ INDICATE ♦ 

♦ INCOMPLETE * 

♦ SCAN IN * 

♦ CCB * 

♦ * 

t**************** 



#4c:4(*>|cF5 ♦♦♦♦♦♦♦♦♦♦ 

* * 

* SET FRROR * 

* FLAG TO ♦ 

* RETDY * 
« ♦ 



^■t:***Gl********** 

* * 

* SET ERROR * 
♦FLAG TO ACTION ♦ 

* AMD RETRY ♦ 

* * 

ii^-4'***** ********* 



ENDING ♦. YES 
STATUS ...... 

.♦ 





♦♦♦♦ 




♦ ♦ . 




♦ G3 ♦-X. 


♦♦♦♦♦ 


♦ ♦ . 


♦TY ♦ 


♦♦♦♦ , 


♦ E3* 


RETRY2 X 


♦ ♦ 


4t«*4<^G3^# ♦♦♦♦♦♦♦♦ 


♦ 


♦ ♦ 


, 


♦ SET RETRY ♦ 




...X^ ALLOW FLAG ♦ 




♦ ON ♦ 



4c#4c4t#H2 ♦♦♦♦♦♦♦♦♦♦ 

♦ SET ACTION ♦ 

♦ AND PASSBACK ♦ 
.X^ FLAGS ♦ 

♦ ON ♦ 

♦ ♦ 

4c ^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



It^it'*************** 



***** 
*TY ♦ 
♦ D5^ 



JPSDRl 

♦ SET UP ♦ 

♦ PARAMETERS ♦ 

♦ FOR UPDATSDR ♦ 



*4c#^ ««:♦♦«♦♦♦♦♦♦♦« 



«4t*4=^K !♦♦♦♦♦♦♦♦♦♦ 
♦UPOATSDP TZ^ 

* UPDATE SDR ♦. . 

* COUNTER ♦ 

* ♦ 
^^^^^^^(♦♦♦♦♦♦♦♦♦* 



♦♦♦*♦ 

♦TW ♦ 

♦ F5+ 

♦ ♦ 



♦♦♦♦ 

♦ ♦ 

♦ J3 ♦ 

♦ ♦ 
♦♦♦♦ 



♦ SET UP ♦ 
♦PARAMETERS FOR ♦ 

♦ UPDATSDR ♦ 

♦ ♦ 



4c4c4c4c«:K3^^^^^^^^^^ 

♦UPDATSDR Tl* 

♦_*_♦-*-*-♦-♦-♦ -* 

♦ UPDATE SDR ♦ 

♦ COUNTER ♦ 

♦ * 
^^^^^(♦♦♦♦♦♦♦♦♦♦♦* 



♦ ♦*** 
♦TW ♦ 

♦ F5+ 



^[^^[^^(^^♦♦♦♦♦♦♦♦♦^ 

♦ ♦ 

♦ SET UP ♦ 
♦PARAMETERS FOP ♦ 

♦ UPDATSDR ♦ 

♦ * 

*Hc^il^************* 



♦UPDATSDR TZ^ 

♦_♦_♦_*_*_♦_*-♦-» 

♦ UPDATE SDR ♦ 

♦ COUNTER ♦ 

♦ * 



***** 

♦ TY ♦ 

♦ F5^ 



«4<^^4<H5 ♦♦♦♦♦♦♦♦«♦ 

* * 

* SPT UP ♦ 

* OARAMETEPS * 

* FOR UPDATSDR ♦ 

* * 
^Lif*************** 



4[4c:4c *« J5 **4:« ♦♦*♦♦* 

♦updat<;dr ''z* 

*-.*_*_*_*_*_♦_*_♦ 

* UPDATE SDR ♦ 

* COUNTER ♦ 

* * 
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Chart TY. $$AEERAN - 3886 CCR Reader ERP (Part 3 of a) 
Refer to Chart 02. 



♦*♦** 

♦ TW * 

* K2* 



EQUIPMENT X 

* SET SOR ♦ 

* CTR LIMIT * 

* FOR UPDATSOR * 

* « 



RETRY 
YES .♦ 



*»***D1 ♦**♦*♦♦*** 



*♦♦♦*♦*****♦♦* 



* TND PFPM * 

* ERR IN * 

* CCB * 

* * 



* ♦ 

* SET ALLOW * 

* IGNORE * 

* FLAG ON ♦ 

* * 



* * 

* SET MSG * 

* FLAG TV ♦ 

* EOlJIf' CHK * 

* * 



♦ C3 ♦ 



.* LF ♦. 
OR SCAN 

♦, COMMAND .* 
*. .* 



♦ SET ALLOW ♦ 

♦ RETRY FLAG ♦ 

* ON ♦ 

* * 



:t:^1f^L^i^2***'*'****** 



*9|c«4:4e4c4c4<#4i3|[4[4e4i3(i4c4< 



C3 ♦. 

«c ♦ 

NEED 
TO DO OBR 


'♦. YES 
...... 


OBR IT 

* * 

♦ SAVE RETRY * 
...•X* EXIT ADOR * 


*. .* 

* NO 


,♦ 


♦ * 



♦ * 

♦ SET UP ♦ 

♦ PARAMETERS * 

♦ FOR UPDATSOR * 

♦ *< 



♦ UPDATSOR TZ* 

♦ UPDATE SDR ♦ 

♦ COUNTER * 

♦ * 



X 

♦♦*** 
*TX ♦ 
* G3* 



***** 
♦TX ♦ 
♦ G3* 



**4<4i4tD5 ^mm******* 



««)|t*4[4i«4t*4c«4t4<4>*«* 



• * 


RETRY 


*« 


*. 


PLAG 


ON 


• ♦ 


*. 






,* 


* 




,♦ 






*. 


* 






4c 


NO 




**** 








♦ TX * 








* J4 


♦.X. 






♦ ♦ 








**** 








XIGNORE 


X 






^^^^'♦F? *4'4'4"*"*'4'*** 



******^iti*it:******* 



*. SENSE BIT .*, 




*. ON .* 


. 


~ . .* 






X 


***N0 


♦ **♦ 




* * 




* G4 * 




♦ * 




**** 






***** J 1 ♦**:**:***** 




* * 




* SFT UP ♦ 




*r>APAMETtf'<^ FOR * 




* UPOAT'^OP * 





♦**♦♦ 


, 


♦TX ♦ 




♦ 02^ 


OBREC X 


*: * 


^i:li:^ilcmG^********** 


* 


* * 




* SET UP RETURN ♦ 




...X^ TO MESSAGE * 


. • .. 


♦ WRITER ♦ 




♦ ♦ 




^ili^^**^********^** 




♦*♦♦ I 




♦ ♦ . 




♦ m ♦.x. 


♦ ♦♦♦♦ 


♦ ♦ , 


♦ TX ♦ 


***♦ 


♦ E1 + 


0BREC2 X 


♦ ♦ 


^fi|tm**yi^^********** 


* 


♦ * 


, 


♦ SET UP TO * 




. ..X+CALL OBR RECORD* 




♦ PHASE * 



***************** 



J^OATT"^? 

*****K I****** 
*UPnAT^DR 



******** 



i^^t** «♦ * ♦♦♦♦♦♦t4c4E4t ♦ 



♦ * 

♦ SVC 5 ♦ 

♦ * 



♦ RETURN TO ♦ 

♦ SUPERVISOR ♦ 

♦ * 
4i4c 4c 4c 4c « * * ## 4c* 4t ♦ * 



*4c4c4c4iG5 ♦♦♦**♦♦♦♦♦ 
4> ♦ 

* RESTORE ♦ 

* ORIGINAL ♦ 

* CSW ♦ 

4c ♦ 

4c«4c«* ♦♦♦♦♦♦«♦♦♦♦♦ 



4t4c4c 4c4<H5 ♦♦♦♦♦♦♦♦ ♦♦ 

♦ ♦ 

* RESTORE ♦ 

♦ $$A8ERPA ♦ 

* PHASE NAME ♦ 

4c ♦ 

4c4c4c4c4'4c4c4c*«4<**4c4c#* 



4c *4c4c4: J5 4c4i4c4c4c4c4c4c ♦♦ 



4c 4c4c 4c4c 4i ♦« * 4c4c * * 4c* 4i4c 



4c 4c 4c 4c*K5 ♦♦♦♦♦♦♦♦♦♦ 



4c*4c 4C4C 4i4c4c4c4c4c**«« 4c4c 



* F5* FETCH 
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Chart TZ. $$ABERAN - 3886 CCR Reader ERP (Part 4 cf 4) 
Refer to Chart 02. 



♦ * 

♦ UPOATSDR ♦ 

♦ » 



* RETURN • 

* GOTOADR ♦ 

* * 



* 

* CALCULATE 

* SDR CTR 

* NUMBER 

* 



* ♦ 

* GET SDR ♦ 

* CTR AREA ♦ 
» ADDRESS * 

* ♦ 



#»***f: I^*::4c4i4c****«* 



*:|c#*4t*4t***4c*4c3^#«* 



* *. 

SDR ♦. YES 
CTR 0/F .*..,. 



* RETURN * 

* AOBRSOR * 

* * 



♦***H1********* 

* * 

* RETURN * 
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Chart UH. $$AEERRH ~ 2245 Printer ERP (Part 1 of 2) 
Refer to Chart 02, 



* * 

* * 



* A2 ♦... 

* * • 

♦ ♦** 

X 

* SET mC, CODE * 

* 'LOAD CHECK* * 

* IN ERQUE ♦ 

* * 

* * 



LOAD 
CHECK 



♦ A3 ♦ 





.♦ DATA ♦ 


^ 


iES 


* 


CHECK 
♦ . •* 

*. •♦ 


•<*> 






*. .♦ 




X 




* NO 




♦ ♦*** 

♦ U8 ♦ 










* B4« 










♦ * 










* 










DATCHK 


UNDETR X 






«:«4t«4cB34'*4«*«*4t4c** 




« 


SET MSG CODE 


* 




» 


•UNDETR ERR* 


* 




* 


IN EROUE 


4> 





BEGIN 

* INTTTALIZE ♦ 
♦BASE PEGISTEPS * 

* (COMM REGt * 

* ERRLOCt PUB; * 

* * 



* * 

* GET CCB ♦ 

* AND FAILING * 

* CCW ♦ 

* ♦ 



* SET SVC5NH ♦ 

* TO UNIT CHECK * 

* "ECOPQ BUILDER ♦ 

* $«;ABERRK * 

* * 



***** 
♦UB ♦ 
* El* 



*****(;;^2********** 

* SET HSG CODE * 

* 'EQUIP CHK* ♦ 

* IN EROUE ♦ 



***********^***** 



X 

***** 
*UB * 
* F3* 



***** 
*U8 * 
♦ 81* 



«4i*4<4c« ««4(*4t4r«sMc4t* 



*if*MQ^***M***** 

* SVC 5 FETCH • 

* $$ABERRK ♦ 

* CHART MA * 

*************** 



**** 

* * 

* D3 *... 

* ♦ . 

**** . 
CHNDAT X 

* SET MSG CODE ♦ 

* 'CHAN OTCHK» * 

* IN EROUE ♦ 

* ♦ 

* ♦ 

***************** 



FCB 

PARITY 

CHECK 



.* 

YES 



#«HX******* 

♦ POST * 

* CHANNEL 9 
OVERFLOW BIT 

* IN CCB 

♦ * 



.♦ *. YES 

♦.INTERVENTION .♦.,,. 
*. REQUIRED .♦ 



X 

***** 
*U8 ♦ 
♦ H3^ 



***** 
*UB ♦ 
♦ B3^ 



♦ E4 *.X 



♦ ♦♦♦ 
ACTI0N7B 

**f^***ilt*** 

* TURN OFF ♦ 
*»ALLOW RETRY* 

♦ FLAG BIT IN 
♦ ERQUE 

* ♦ 
*********** 



***** 

*m ♦ 

* El* 



*lf***^^2********** 

♦ SET MSG CODE * 

♦ 'COMM REJCT* ♦ 

♦ IN ERQUE ♦ 



********^i*^i*^i1Hf** 



**G3**4t««4t« 

* TURN ON * 
•ALLOW IGNORE** 

FLAG BIT IN * 
* ERQUE ♦ 

♦ ♦ 
************ 



****y^-i***:****** 

* SVC 5 FETCH * 

* $$ABERRK * 

* CHART MA * 
*******^*ti***** 



*. YES 
...... 

.* 



♦ ♦** 

♦ ♦ 

♦ 03 ♦ 

♦ * 



♦ * 

♦ A2 ♦ 

♦ * 
♦♦♦* 



* * 

* A3 * 

* ♦ 
»♦♦* 



***** 
♦UB * 
* F3* 
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Chart UB, $$ABERRH - 22t^5 Printer ERP (Part 2 cf 2) 
Refer to Chart 02. 



***** 

*UA * 
♦ E2* 



*UA * 
* G2* 



***** 
♦UA * 
♦ A3* 



* SET MSG CODE ♦ 

* 'BUF PARITY' ♦ 

♦ TN ERQUE ♦ 

♦ ♦ 
********** *****i^* 



SPACE 
OR SKIP 
. COMMAND 
*. .* 



LOAD *. 
FC8 

COMMAND .* 



* SET MSG CODE * 

* •BUSQUT CHK« * 

♦ IN ERQUE ♦ 

♦ ♦ 
***************** 



C3 ♦. 
INIT .♦ ♦. 
SEL..* INITIAL *. 
...♦. SELECTION . 
*.0R WRITE .♦ 
♦COMMAND* 



* LOAD *. 

FC8 COMMAND .* 
*. .♦ 



REFERENCES ♦♦♦* 
TO UBEl: ♦ ♦ 
UAB2, UAF-I * * 



♦ ♦ 

♦ C4 * 

♦ ♦ 
**♦* 



REFERENCES *»** 
TO UBF3: * * 
UA02, UAJ2 ♦ * 



*.X 



*^fl***m*** 

* TURN ON * 
•ALLOW ENTRY* 

FLAG IN 
EROUE 

* ♦ 
*********** 



*4c*«:«G I********** 

* SET RETRY * 

* COUNTER IN * 

* PUB TO 1 * 



*******:*******if^1f 



SUPRET X 

*****f 2 ********** 

* * 

* LOAD RETRY * 

* EXIT ADDRESS * 

* INTO REG 15 * 

* * 
***************ittiti 



* 


SET MSG CODE 


* 


•DATA CHECK* 


* 


IN ERQUE 


* 

* 


ts****ilf^t*^[iti^i^i:fei 






**** 


* 


* , 


* 


C4 *.Xr 


* 


* . 


**** X 


BUFPAPl .*. 




C4 *. 




«♦ *. 




.* CCfi 


* 


. AVAILABLE 



**\)/^******* 

* * 

* POST LINE ♦ 
♦POSITION ERROR 

* BIT IN CCB ♦ 

* * 
lilt,********* 



.* USER *. NO 

♦•ERROR ROUTINE.*.. X 

♦ . .* 



*♦♦♦ 
ACTIONI X 

**fi******* 

* TURN OFF * 
* » ALLOW * 

♦ IGNORE/ RETRY » * 
♦FLAG IN EROUE* 

* (CANCEL! ♦ 
*********** 



***** 
♦UA * 

♦ F3* 



ACTI0N7A 

41*1:4*41**111** 
* TURN ON * 

* 'PASSBACK* 
* FLAG IN 

* ERQUE 

» * 

*********** 



* LOAD IGNORE ♦ 

* EXIT ADDRESS * 

* INTO REG 15 * 

* ♦ 
***************** 



*****j2********** 
♦RESTORE CSW ANO^ 
*l/0 ADDR TN LOW* 

* REAL STORAGE. * 
♦RESET PUBFLAGS * 

♦ AND SVC5NM ♦ 
***************** 



****K2 ********* 

* BRANCH TO * 

* ERPEXIT IN * 

* SUPERVISOR * 
*************** 



***** 
*UA * 

* F2* 



* SET MSG CODE * 

* •INTERV REQ« * 

* IN ERQUE * 

* * 
***************** 



ACTI0N2 

**J3******* 

* TURN ON * 
*• INTERV REQ» 

* FLAG IN 
* ERQUE 

* * 
*********** 



****K3********* 

* SVC 5 FETCH * 

* $$ABERRK * 

* CHART MA * 
*************** 
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Chart VA. $$Ri^STOO - Initial Machine Check/Channel Check Analysis (Part 1 of 5) 
Refer to Chart Q^. 



****g2 ********* 

* * 

* $«RASTOO * 

* * 

4>************** 



♦ SET UP * 

♦ REGISTERS * 

♦ FOR USAGE ♦ 

♦ * 
***************** 



«***4r 02 ********** 

♦IF PFTABLE DOES* 
*NOT EXIST NOOP ♦ 

* INSTRUCTION ♦ 

* (SEE VC03) ♦ 

* * 

***************** 



***««e2 ********** 



*************** 

**♦* 

* * 

* * *.x. 

* * 

* *** 
RTNTEST .*. 

IF F2 *. 

NEITHER.* ♦. 

ON .*SYSTEM AND 

...*. EMEXIT ON 

. *. 

*. -* 

X 

***** 

*VB * 

* Al* 



♦MOVE RECORDING * 

♦ SUCCESSFUL * 

♦ MESSAGE INTO * 

♦ WORK AREA * 
**************«(** 



.♦ WAS *. 

. RECORDING . 
♦SUCCESSFUL.* 



♦****D3 ********** 

* ♦ 
*MOVE RECORDING ♦ 

* INCOMPLETE * 

* MESSAGE INTO * 

* WORK AREA * 
**********#****** 



.♦ WAS *• 
. RECORDING . 
♦INCOMPLETE.* 



*****P3 ********** 

* ♦ 
♦MOVE RECORDING * 

* UNSUCCESSFUL * 

* MESSAGE INTO * 

* WORK AREA ♦ 
*********** 



LETTER'A' 



4t***Hl********* 

* FETCH * 

* $$RAST01 ♦ 

* CHART VF ♦ 

*******i«t ******* 



* ONLY 




**** , 


.EMEXIT 




* * . 


.ON 




* B3 * 






* * , 

**** , 


X 






.*. 






G2 *. 




4NY I 


.* IS *. 




OTHER 


.* THERE * 




LETTER 


♦A 'B' AT LOCA- 


,* 




♦. TION .* 






*. .* 






*. .* 




X I 


* YES 




***** 
*V0 * 
♦ 82* 

♦ * 

HANDLECC l 


X 






*iK***H2 ********** 




* 


* 




* MOVE 'RUN 


* 




* SEREP* INTO 


* 




* MESSAGE AREA 


* 




* 


* 




«**«*3(e*****4c«**«* 




Ix..... 







*****B4********** 

* * 

* PUT DEVICE ♦ 

* ADDRESS FOR * 

* SYSLOG IN * 

* PEG 2 * 
**#************** 



***C4************ 

* ISSUE HALT * 
I/O TO 
* CONSOLE ♦ 

*************)|c4<** 



* ISSUE TEST 

I/O TO 
* CONSOLE * 

***«**«:********** 



* F5 *.X 



** «*p 5 ]tc3«c** ;«:4c 4t:*t^ 

* WAIT STATE * 

* (DISABLED) ♦ 

* * 

**********4c**** 



RINGBELL 

****:4cJ2********** 

* PUT MESSAGE * 
*AODRESS IN CCW ♦ 

* IF DOC, BUILD * 

* DOC CCW * 

* * 
*********4t****4c*« 



*****K2 ********** 

♦ MOVE HARD * 

♦ WAIT CODE ♦ 

♦ FROM LOCATION ♦ 

♦ TO MESSAGE ♦ 

♦ * 
**:;£*** ******iiiiS<*** 



*4.***(;44t<t:**#*%^** 

* * 

* PUT CCW * 

* ADDRESS IN * 

* CAW * 

* * 
**4(****4i********* 



*****H4********** 

* * 
*POST EMERGENCY * 
♦I/O REQUEST IN * 

* LINKFLAG * 

* « 

«)|c****](c*4c******** 



*****J4*4e******** 

♦ ♦ 8ALR TO ♦ ♦ 

♦ * RASTSCAN ♦ ♦ 

♦ * FOR * * 

♦ * EMERGENCY * * 

♦ * T/0 * ♦ 

**4c*****3tC******«* 



***♦ 

* * 

* F5 ♦ 

* * 
**** 
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chart VB. $$RASTOO - Initial Machine Check/Channel Check Analysis (Fart 2 cf b} 
Refer to Chart 04. 



***** 

♦ VA « 

♦ F2* 



CHECKLST 
NO 



* HAS *. 

*$RASTOO 
*. IN RTA .♦ 



*****^l********** 
♦PUBSCAN VE* 
♦-♦-♦-♦-♦-♦-»-♦-♦ 

* BUILD LIST * 

* ACTIVE I/O * 

* UNITS * 
***************** 



*****C I********** 



* TURN OFF * 




* INVALID LIST * 




* BIT IN ♦ 




♦LDOOSLOT ♦CZ* 


♦C2 


***************** 


LOCATED IN 




RASTAB. 


%l 




X 




CHECKMC .♦. 




Dl *. 




.♦ *, 




,* MACHINE ♦. YES 


♦ . CHECK .*. 




*. .* 




♦ . .* 




*. .* 


X 


♦ NO 


**** 




* * 




♦ 83 * 




* * 


• 


**** 



* TURN OFF ♦ 

♦ MCACT BIT IN ♦ 

♦ LDOOSLOT * 

* *C2 * 

***************** 



C3 *. 

.** MCIC *♦. YES 
♦.FIELD EQUALS ...... 

*. ZERO .* 
♦ . •* 

♦ . .♦ 
* NO 



El 



E2 



.* CHANNEL *. NO .* CHANNEL *. NO 

CHECK .* X*. DAMAGE ...... 

♦. .* *. POSTED .* 

♦ , .♦ ♦, ,* , 

*. .♦ *. .* X 

* YES * YES ***** 

*VC * 

.......X. * Al* 

X » * 

***** * 

♦VD ♦ EXITRTN 
* B2* 
♦ * 
* 
HANOLECC 



***i**(j7^********** 



ACTIVATE 
*fRAST03 



***********i7****** 



X 
•*. 

E3 *. 

.* *« 

.*UNCORR STOR*. 

*. OR PROT 

*. ERROR •* 

*. .* 



«*• 

F3 *. 

.* *. 

.* MULTIPLE *. 

*. ECC 

*, ERROR .♦ 



* D4 
* 
***** 



*, 



G3 *. 

.♦ FSA *. 

.IN SUPERVISOR. 

OR ALT .* 

*. AREA .* 



***** 
* * 
H3 *.X 

* 
»*** 



****H-i********* 

* FETCH * 

* S$RAST01 »X. 

* CHART VF * 
*******tf****^aii* 



**** 
HAROWAIT X 

«*4t**D4********** 

♦ « 
♦MOVE HARD WAIT * 

* CODE 'A' TO ♦ 

♦ LOCATION ZERO * 

* * 
***************** 



#*:***E4********** 

* * 

* MOVE SEREP * 

* CODE 'S* TO * 

* LOCATION 1 * 

* * 

*4u|c************** 



*****f:i^********** 

* * 

* POST EMEXIT * 

* BIT IN * 

* LDOOSLOT IN * 

* RASTAB * 
***************** 



*m*** 
*VA * 
* F2* 
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Chart VC. $$RASTOO - Initial Machine Check/Channel Check Analysis (Part 3 of 5) 
Refer to Chart oa. 



***** 

*V8 » 
♦ E2* 



EXITRTN .* 








Al 


*. 






.* IS 


♦ . 




NO 


.♦ MESSAGE 


* 


«.•* 


. POSTED 


FOK 






*. SYSLOG 


* 




*, 


.* 






♦ , 


* 






* 


YES 





«***)(cB 1 ♦♦****♦♦** 

* * 

* ACTIVATE * 

* $$RAST11, * 

* MESSAGE * 

* WRITER * 

«*«]|C«4I*******»*** 



*4t«**B2********** 

♦ * 

♦ UPDATE TO ♦ 

♦ NEXT ENTRY * 

♦ LOAD LIST OF ♦ 

♦ RASTAB ♦ 

«»««*4c«4t*««****** 



**#*4iB34c*** ****** 
*CLEAR MCFLAGS, * 
*RASTFLAGS,MCPIK* 

* AND MCTIK IN * 

* THE RASTAB * 

* * 
***«#«*****4[*4t4!*« 



♦ INITIALIZE * 

♦ COUNT TO 16 * 

♦ AND TO ♦ 
♦FETCH SSRASTOO * 

4t**************** 



LOADTEST .*. 








Dl *. 








.♦ ♦. 








.* IS 


* 


. NO 


*. THIS PHASE 




.*. 




*. ACTIVATED. 


* 






♦ » .♦ 








*• .* 






X 


* YES 






**** 

* 

♦ 82 
* 

***♦ 


LOADMOD X 








«4c***E I********** 




* 




* 




♦ DEACT VATE 




* 




* TH S 




* 




♦ PHASE 




* 





»«:*«*******«***** 



* :(c « « 4( p 1 « « 4t « :«c4t4c 4c « « 



#4c4c************** 



* BRANCH TO * 

* RASTSCAN IN ♦ 

* SUPERVISOR * 
4c*4t****** ****** 



»*#**02 ********** 

* * 

* GET ADDRESS * 

* OF RESTART * 

* PUB * 

* ♦ 
4i4c4(4e« « 4c*4i4i«4i4c4e« *« 



E2 *. 

.* DOES *. 
* RESTART *. 

PUB ADDRESS . 
*. EXIST .♦ 



ESTART 

4c4'««*f:2********** 

* CLEAR PUB * 

* ADDRESS AND * 

* PUT CHANNEL * 

* AOOR IN * 

* I/O OLD PSW * 
4t*4t*4;4t:»«**4t**«4t** 



X 








♦ D4 






• *• 








FOR 


MODEL 


125 


D3 ». 








RMS 


=N0 THIS INSTR 


.* * 








IS 


i NOOP. 


FALL 


IPL IN 


* 


. NO 




THROUGH TO 


E3. 


PROGRESS 




.*.. 










*D4 


.* 












♦ . .* 














*. .* 






X 








* NO 






►*♦* 









E3 *• 


^t***E't¥********** 


* *. 


* STORE CTL * 


MODEL *. YES 


* REG 14 IN * 


135 OR .* 


..X* FULLWORD * 


LOWER .* 


* 'ALLMSK* * 


*. .♦ 


♦ * 


*. ,* 


4:](c4i4c:4r^4c*4t ******** 


* NO 






**** 




. * « 




.•X* G3 * 




* * 


X 


**** 



.*. 

F3 *. 

.* MODE *. 

.* EQUAL HIR *, 

*. RECORDING . 

*. .* 

*. 



**** 



* YES 



*««4c4(F4********** 

* SET MASK * 
*IN 'ALLMSK* FOR* 

.X*CONTROL REG 14 * 

* TO QUIET MODE * 

* * 
«4<4t:»i4c«4:«*4<4e]|t*4>*4c« 



* G3 *.X. 

* * .X 

**** X 
RMODE .*. 

G3 ♦. 
.* CPU *. 
.* SMALLER *. 
*. THAN 1 

*. GENERATED.* 



.* MDDEL=155 *. NO 
.X*. SUPERVISOR .*... 
*, ON 158 .* 



***♦ 

* * 

* 05 * 

* * 
**** 



* INDICATE * 

* fSRASTOO IS ♦ 

* IN REAL * 

* STORAGE * 
]t>**************#>|t 



*4c***E5 ********** 



*««*«>|c*«4<4>4c*#4>^«:4c 



***4eF5*******4«|( 

* BRANCH TO ♦ 

* RASTSCAN IN * 

* SUPERVISOR * 
*« 4c* 4t 4i 4t ^^i^c 4i« ## * 



4i>|cr,5 ******* 
* * 

* TURN OFF 
EXTENDED 

* LOG BIT 
*IN 'ALLMSK'* 

4i4:****4c**** 



*****J2********** 

* * 

* SET * 

* RESTART * 

* SWITCH * 

* * 

**:(c«4'************ 



RMODEl 

4e4tH3*****'*<* 
*POST X»80« * 

* IN EXCSW- 
* FCSW 

* STORED 

* * 

4c********** 



4c****J3*******4c** 

* LOAD CONTROL * 

* REG 14 WITH * 

* APPROPRIATE ♦ 

* MASK * 

* FROM 'ALLMSK* * 
4c4t«************** 



4c4c«*K2********* 

* BRANCH TO * 

* RASTSCAN IN * 

* SUPERVISOR * 
4c4c4c#4t*4c**4c***** 
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Chart VD. $$RASTOO - Initial Machine Check/Channel Check Analysis (Fart 4 of 5) 
Refer to Chart oa. 



REFEPENCF«; 
TO VDB?: 
VAG2, VRE2 

♦ * 

♦ ♦* 



* RESET CHANNEL * 

* CHECK ACTIVE * 
♦BIT IN LDOOSLOT* 

* IN RASTAB ♦ 



C3 *. 


C4 ♦. 


♦CHANNEL*. 


.♦ *. 


CHECK ON ♦. YES 


.♦ CPU 


PAGING .♦ 


♦.EQUALS MODEL 


I/O .* 


♦ . 145 



♦ * 

♦ G4 * 

♦ * 



4i«4e«4<D2 ♦♦♦♦♦♦♦♦*♦ 

* ♦ 

* GET ADDRESSES ♦ 

* OF FIRST LOG ♦ 
♦AREA AND FIRST ♦ 

* ERPI8 ♦ 

♦♦** * 

* ♦ , 

* E2 *.X. 



.♦ X«FE» *. 

.IN FIRST BYTE. 

♦.OF ERPIB .♦ 



* * 

* MOVE LOG ♦ 

* FROM BUFFER ♦ 

* TO LOG AREA * 

* * 



* * 
♦UPDATE TO NEXT ♦ 

* ERPIB AND ♦ 

* LOGOUT AREA ♦ 

* * 



YES ,♦ PHASE ♦ 
...♦.LOADED AFTER 
♦. ERROR .♦ 



*)|[#4t4:H 2 ♦♦♦♦♦♦'♦♦♦♦ 

♦ * 

♦ SAVE THE ♦ 

♦ CHANNEL ♦ 

♦ STATUS WORD ♦ 

♦ * 



♦ TURN ON ♦ 

♦ CHANNEL CHECK * 

♦ ACTIVE BIT * 

♦ LDOOSLOT * 

**** 



4:41 * «(;4*4e4c*«4c «♦* 

♦ FETCH * 

♦ $$RAST02 ♦ 

♦ CHART HA ♦ 



* SAVE THE ♦ 

♦ EXTENDED ♦ 

* CHANNEL ♦ 

♦ STATUS WORD ♦ 
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Chart VE. $$RASTOO - Subroutines (Part 5 of 5) 
Refer to Chart 04. 



♦ * 

♦ PUBSCAN ♦ 

♦ * 



* CLEAR * 

* SAVE * 

* AREA * 

* * 



Tttittt**C2 ********** 



* GET ADDRESS * 






* OF PURS AND * 




♦ DECLARE BASE * 




* ♦ 




^ilci^*^:*'*********** 




*♦♦* * 




* ♦ , 




* 02 *.X. 




* * , 




**♦« X 




BZYTEST ,*. 




D2 *. 




.* *, 




.* DEVICE *. NO 




*• BUSY .*•••• 






*. .* 






*• .♦ 






*. ,* 






* YES 


♦♦** 

* * 

* E3 *.X 

* ♦ 




SAVEin X 


UDOPUB X 


*****F ?♦*♦***♦*** 


■«i:t:^*^,^2********** 


* * 


* * 


* POINT TO END * 


* UPDATE * 


* OF SAVE AREA * 


* ADDRESS TO * 


* * 


* NEXT 


PUB * 



^it^t*********t**** 



i^^^:t:t************ 



IS *. YES 
SAVE AREA .*.... 
. FILLED .* 



fi:t^:tiif*(^2********** 



SAVE THE 
T/0 ADDRESS 



#4c4c#4t«t4<4c4i**#4c4t*4e 



* * 

* POINT TO NEXT * 

* ENTRY IN * 

* SAVE AREA ♦ 

* * 



♦ * 

♦ E3 * 

♦ * 



♦ **♦ 

* * 

* 02 * 

* * 



* BRANCH TO * 

* LINK * 

* REGISTER 7 * 
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Chart VF. $$RAST01 - f^achine Check/Channel Check Record Building Interface (Part 1 of 
2) 
Refer to Charts 04 and C5. 



* * 

* $fRAST01 ♦ 

* * 
ttintiif***** ****** 



^AINOO X 

***** B 1 ********** 
♦INITOO VF* 

♦_»_*_♦_♦_♦_♦_♦_♦ 

♦ TNITIALIZE * 

♦ PHASE * 

♦ * 
***************** 





CI *. 








.* RTA *. 






.* 


RECORDER 


*, 


1 


, 


OWNS FILE 




♦ 


♦ 


"*. .*' 

*. •* 
* YES 


♦ 





♦*♦* 

♦ * 

♦ B2 * 

♦ ♦ 
♦*♦♦ 

xl 

X 
ITIO ,*. 

B2 *. 
.* *. 
.* EMERGENCY *. NO 
*. EXIT BIT .*.., 
*. ON ,* 
*. .* 
*. .* 
♦ YES 



****^Q2********** 

* * 

* POST SYSTEM ♦ 

* TERM BIT. SET * 

* C»A» IN LOC 2 * 

* * 

■ti*:tt************** 



*****f)l********** 

♦BLDHDROO VF* 

»_♦_»_*_*_♦_♦_♦_♦ 

* BUILD HEADER * 

* * 

* * 
***************** 


*****02 ********** 

* * 

* ZERO REG 3 TO * 
♦FETCH $$RASTOO * 

* ♦ 

* * 

***************** 




**** 
. * * 


El* **. 

.♦CHANNEL*. 
,* CHECK ♦. NO 

*. RECORD ...... 


***♦ 

MAIN05 

*****^2 ********** 
♦INTFCEOO VG* 

#-.*-♦-♦-*-♦-♦-♦-♦ 
....X* SET UP * 


*. REQUEST .* 
*. .♦ 

*• .* 


♦ INTERFACE * 

♦ BYTES * 

***************** 



*****fl********** 
♦BCCRECOO VF* 

♦-♦-♦-♦-*-*-♦-*-♦ 

♦ BUILD CHANNEL * 

♦ CHECK RECORD ♦ 

♦ * 

***************** 



EXITOO 

***Hi*Ql********** 

* SET REG3 ♦ 

* FOR $$RAST08 ♦ 

* FETCH * 



jf**^.*^*********** 



**** 

EXIT05 X 

*****m********** 



*********in******* 



****ji ********* 

* BRANCH TO * 

* RASTSCAN IN * 

* SUPERVISOR * 
*************** 



♦ BUILD MACHINE * 

♦ CHECK RECORD ♦ 

♦ ♦ 

***************** 



****A3********* 

♦ ♦ 

♦ BLDHDROO * 

♦ ♦ 



* CLEAR HEADER * 
*SET BYTES I AND* 

* 2 TO X«2100' * 

* ♦ 
***************** 



*****Ql^****ti****ili 

* PUT DATE AND * 

* CPU ID INTO * 

* HEADER BYTES * 

* 8-11 AND * 

* 20-21 * 

*********7ti******* 



4i*4c#D3 ********* 

* RETURN TO ♦ 

* CALLER ♦ 

* ♦ 
*************** 



*E3 
ALSO MOVES INTERFACE 
SEGMENT AREA TO 
AVOID OVERLAY BY 
CHANNEL CHECK RECORD 
INFORMATION. 
CHANNEL CHECK RECORD 
BUILD INCLUDESO 
. ACTIVE I/O UNITS 
• JOB NAME 
. CHANNEL ID 
. BUSY LIST STATUS 
. POSTING OF INDEPENDENT 
AND DEPENDENT SWITCHES 
. DEVICE TYPE 
. CSH AND ECSM 
. CCM 



****Xit********* 

* * 

* BCCRECOO * 

* * 

♦*♦**♦♦**♦***** 



BCCRECOO X 

*****Q£^********** 

* BUILD FIELDS * 

* OF CHANNEL * 

* CHECK RECORD * 

* *E3 * 

* ♦ 

*******^c********* 



****A5********* 

* ♦ 

* TNITOO * 

* * 



♦*♦♦ 








* * 








* B5 ♦.X 








♦ * 








**** X 






INITOO .♦. 






B5 *. 






. * *. 






.* RMSR 


* 


NO 


*. SUPPORT 




.*. ... 


*• •♦ 




*. •* 






*. .* 




X 


* YES 




♦♦♦* 
♦ * 








♦ B2* 








♦ * 








*»♦♦ 



.* ERPIB 

*. TO BE 
*. FREED 



**Qi^******1li 
*CLEAR ERPIB* 
AND POST FIRST* 
♦ BYTE AS FREE * 
* CX»FEM * 
* * 

1c********** 



**«*«C5 ********** 

* GFT * 
*TIME-OF-OAY IF * 

* EMEXTT NOT ON * 



«*>tc4t«**«4i**««4t*«* 



«###£ '^********* 

♦ RETURN TO * 

♦ CALLER * 

♦ * 

**ilt***********m 



.* RECORDER 
*. FILE 
*. READY 



EPEP 

IN 

PROGRESS 



* 

X 


INIT05 X 


*4t3|c*«H4********** 


«*H5*«*4:*4c4c 


♦ * 


* PO^T * 


* SET WAIT FLAG * 


♦RECORDER FILE* 


* IN LINKFLAG * 


* OWNED BY 


* * 


* RTA * 


♦ * 


* * 


*************ili**iti 


**^***i^^i)i** 




**** \ 




* * .X. .... . 




* J5 *.X. 




* + . 




**** , 


X 


INITIO 


**]»;#« J4i|r4c««««4t«** 


X 


* * 8ALP TO * * 


4c«#* jc; 4c4:#*«««4e4: 


* * RASTSCAN * * 


♦ RETURN ■* 


* TO DEACTIVATE * 


* TO CALLER 


* * RASTASK * * 


* 



*******:^*****^c*** 



4c* ** ** * :«t *# *« 4c« 1^ 
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Chart VG. $$RAST01 - Machine Check/Channel Check Beccrd Building Interface (Part 2 cf 
2) 
Refer to Charts Q^ and C5. 



* ♦ 

* TNTFCEOO * 

* ♦ 



TNTFCEOO 

♦CLEAR INTERFACE* 
* AREA AND SET * 
♦UP 1ST SEGMENT * 



AA4AA3********* 

♦ BMCRECOO * 

* ♦ 
** *ii«4[4i« «« 4c4t «« « 



♦ POINT REG 3 

♦ TO PROPER PIB 



4t««4:4:**>4c:fi«#4t*4<«<4>* 



♦ GET LENGTH OF * 

* REMAINING * 

♦ LOGOUT AND * 
♦EXTENDED LOGOUT* 

* LENGTH * 
*4(4(*4t***** ******* 



**i(|e«4rnl********** 

* ♦ 

* CALC TOTAL * 

* NUMBER OF ♦ 
♦RECORDS NEEDED * 

* * 

4:4c4<**« **<(«* 111 4c**** 



♦****£ l**«**4c*4c** 

* SET UP REST * 

* OF RECORDS * 

* MINUS I OF * 

* INTERFACE « 

* ♦ 



INTFCE15 

*#4c4i«p l**#4i**4[#*4c 

* SET UP LAST * 

* RECORD OF ♦ 

* INTERFACE ♦ 

* AREA * 

* ♦ 
***************** 



*%**QX********^ 

♦ RfclURN TO ♦ 

♦ CALLER * 

♦ * 



4[*«4i4c***4>*****r*4t« 



C3 ♦. 

.♦RASTAB ♦. 

♦ SYSTEM ♦. NO 

TERMINATION .*... 

*. BIT ON .♦ 

♦ . .♦ 



♦ YES 



4r«n3******* 

* POST MACH ♦ 

♦ TERMINATED * 
* SYSTEM IN RCD * 

♦ DEPENDENT * 

♦ SWITCH I * 



* SET RECORD ♦ 
♦TYPE AS MACHINE* 

* CHECK {X« 10» } * 

* ♦ 

4c**«*4e**4>*«****4i* 



**4t4>*P3«* ******** 

♦ MOVE JOB NAME * 

♦ AND MACHINE ♦ 

♦ CHECK OLD PSW ♦ 

♦ INTO RECORD ♦ 

♦ ♦ 

*4c*4i***4c****«^«** 



PROBLEM 

PROGRAM 

PIB 



. NO 



.♦IS SAVEAREA*. NO 
IN REAL •*... 

*, storSge .* 

*. .* 



***4t*J3*4c** ****** 



I*'**'}!*** ******** ** 



****J4********* 

♦ RETLS^N TO * 
.X* CALLER ♦ 

♦ * 

************4i*4c 
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Chart WA. $$RAST02 - Nonresident Channel Check Handler (Part 1 of 4) 
Refer to Chart 05. 



*♦♦♦ 

* ♦ 

* A3 * 



* S$PAST02 * 

* ♦ 
tit************* 



*1f^ii*tQl********** 

* INITIALIZE * 

* REGISTERS AND ♦ 

* SET OWNER OF ♦ 

* LTA IN * 

* INSTRUCTION ♦ 

:tif**if*tll********** 



*****£ I********** 

* UNPACK CHAN * 

* ID CODES * 

* INTO WORK ♦ 

* AREA * 

* * 

**ti*****tc**^f***** 



.* ENERGENCY 
. SITUATION 
*. EXISTS . 



♦♦***F 1 ********** 



**t************** 



*****(-, l**tf******* 
♦MOVE CHANNEL ID* 

* TO INTERFACE ♦ 
.X*SE6MENT. POINT ♦ 

* TO HEAOOUEUE ♦ 

* PUBS. ♦ 
***************** 

**** 

* * 

* HI *.X 

* ♦ 
**** 

TESTDMC .*. 

HI *. 
.♦ ♦, 

YES .* PAST<THE *• 
..,♦. DAMAGfeB. .* 
*. CHANNEL .* 





*♦♦* 

♦ * 

♦ C2 ♦ 

♦ ♦ 
**♦* 


TSTBSY 

NO ,* 


X 

. ♦. 

02 *. 

♦ IS * 

A CCB 
QUEUED TO 

THE 
*. PUB .* 



ilLt:t:t:ttQ2********** 



Ttiif**** *********** 



E2 «. 

* IS 

THIS 
A DISK 
DEVICE 

♦ • 

*. .* 



*****f2********** 

* SAVE PUB * 

* ADDRESS FOR * 

* RESTARTING * 

* THE CHANNEL * 

* ♦ 
************ili**** 



* RESET THE * 

* BUSY BIT IN ♦ 

♦ THE PUB ♦ 

♦ * 
^■i^i ******** ******* 



FINDTASK X 

*FINDCCB WO* 

*_♦_*_♦_*-*-*_♦_* 

* FIND THE CCB * 

* » 

* * 



4c#*4c*B3********** 

* * 

* POST CCB ♦ 

* COMPLETE WITH » 

* ERROR * 

* ♦ 

*:t**************,ti 



^^ifif^C?********** 

* * 

* SET DEQUEUE * 

* SWITCH IN ♦ 

* LINKFLAG * 

* * 

Ht7ti^t***^c****ifiti*if*^i 



4i««4r4cD34(*4c*4c4'*»«* 
*CHKVTAM WB * 
*-♦_♦_♦_*_*_*_*_♦ 

* TEST ♦ 

* FOR VTAM * 

* * 
*if ********* ****** 



^f***ti^3********** 

* * if * 

* * BALR TO * * 

* *RASTSCAN TO* ♦ 

* *DEOUEUE CCB* * 

* * ♦ ♦ 

«4c4c««4<«4!********4' 



4(*«#4cF3 ********** 



****tii^*******t^i::ti* 



.*IS THIS AN *. 

• ERP REQUEST .* 

*. •* 

*. ♦* 



.*. 

H3 *. 

.* WILL *. 

.* USER * 

». ACCEPT I/O 

*. ERRORS .* 



***** 
*WD * 
* El* 



CNERPIB X 

4i#*4t*g44'********* 

* MOVE * 

* REQUESTOR ID * 

* TO SAVPEOIO. * 

* GET PUB ADDR * 

* ♦ 
***************** 



tt****cit********** 
*CLEAP WC* 

♦ _*_♦_*_♦_*_*_♦_« 

*CLEAP AND FPEE * 

♦ THE ERPIB * 

♦ * 
***4c**4i4c*4c******* 



04 *. 

.* IS *. 

.♦ A REQUEST *. 

*. QUEUED TO THE. 

*. PUB .* 



4cB5 ********** 



***************** 



***♦ 

* ♦ 

* &3 * 

* * 
**** 



X 

;^«4<**H4********** 

*GETCdM WO* 

«;_*_♦-♦_«_*_*-♦_* 

* GET THE *... 

* Pie ADOP * 

* * 
***************** 



CANCEL X 

4c4c4:**F4********** 

* SET CANCEL * 

* SWITCH IN * 

* LINKFLAr,. * 

* GET CANCEL * 

* CODE * 

«:^**4c#*:tc********* 



*****Q4********** 

* * * * 

* * BALP TO * * 

* *RASTSCAN TO* * 

* *CANCEL TASK* * 

* * * ♦ 
**********#****** 



*. CHANNEL 


.*. . .. 


*. DAMAGED 


.* 


*. .* 




*. .* 


X 


* YFS 


***** 


**♦* . 


*WB * 


* * 


* Al* 


♦ '^.S *.x. 


♦ * 


* * 


* 


**** 


BLORECOO 


UODt'UB X 




*****r;«s ^^^c^^^c^^^tt** 


* 


* 


* UPDATE 


* 


* POINTEt' TP 


* 


* NEXT PUB * 


Kl * 



X 

**** 

♦ * 

♦ HI * 

♦ * 
**** 



***** 
*W8 * 
* Al* 



**** 

* ♦ 

* C2 * 

* * 
**** 



*K3 
GO THROUGH HEADQUEU 
PUBS FIRST, THEN NORMAL 
PUBS. 



* J4 * 




* * 




*♦** 




X 




NOCANCEL .*. 




J4 *. 




.* ANY *. 




.* MORE *. 


NO 


*. REQUESTS FOR 


*.... 


*. PUBS .* 




*. .* 




*. .* 


X 


* YES 


**** 


' 


* 




* B5 


X 


* 


**** 


***♦ 


* * 




* A3 * 




* * 




*♦** 
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Chart WB. $$RAST02 -- Nonresident Channel Check Handler (Part 2 of 4) 
Refer to Chart 05. 

***** REFERENCES 

* * TO MBAl: 

* ** WAF5, WAHl 



♦ PESET * 

♦ DAMA5E0 * 

♦ CHANNEL BYTE ♦ 

♦ ♦ 



♦ERPIBSC WD* 

* LOOK FOR AN * 

* ACTIVE ERPIB * 

* ♦ 



*^ct**C I********** 

* SAVE ERPIB ♦ 

* ADOR. SET ♦ 

* INTERFACE SEG- ♦ 

* MFNT AREA FOR * 

* PROPER CPU * 



IS ♦. 

DEVICE 
. DISK .* 
♦ . .* 



* LOAD X'E8« IN • 

* REG 5 AS ♦ 
,X* START OF LOG- ♦ 

* OUT AREA * 

* * 



BLDREC05 

«« # 4c « f I 4< # )»: 4. «« 4c 4( itc « 

* STORE ADOR IN ♦ 

* REG 5 (START ♦ 

* OF LOGOUT * 

* AREA; * 

* * 
4; 4(4: 4c 4c««**** *#♦)•(*« 



BL OP EC 10 

* POST RECORD * 

* BUILT FLAG ♦ 

* IN ERPIB * 



:ic#:tit***********if* 



4c4:4:4c4c(: i^4'4'#<c4'4c***4' 

* CLEA!? CCR AODR ♦ 

* IN INTERFACE * 

* SEGMENT AREA ♦ 

* AND MOVE IN * 
♦DEFAULT JOBNAME* 
<c 4=41* «♦♦♦♦♦ ♦♦♦♦♦*♦ 



4c4r«4<«Hl««^«*««4<*« 



*jiim**ti(f#iti******** 



* *4t4!:*F 2 ********** 

* LOAD X«200» * 

* AS START * 

* OF LOGOUT ♦ 

* AREA * 

* * 
4t4i4c4c4<4t ♦*♦«♦♦*♦*♦« 



,* IS A *. NO 
. CCB QUEUED .*.., 
*. .* 



4c«*«*:03********** 

♦FINOCCB WO* 

4t_4>-4t-* -*-*-♦-»•»♦ 
* FIND THE CCB * 



if^}t:****1t********^ 



^•^♦♦ES********** 

* PUT CCB ADDR. * 

* IN INTERFACE * 

* SEG AREA * 

* FOR RECORD * 

* BUILD * 



#**4E*F3** ******** 

* ♦ 

* PUT * 

* REQUESTOR ID * 

* IN ERPIB * 

* ♦ 



.* COMMAND *. YES 
*. ADDRESS .*... 

*• VALID .* 



4c«4tt4tH3********** 
*SET FIRST BYTE * 

* OF DEVTABLE * 

* X'FF* <END * 



Him************'*** 



«:«:4>*«>C4********** 

* POST * 

* RECOVERABLE ♦ 

* ERROR IN ♦ 

* ERPIB * 

* * 
4c4c#4N**4<*****4t*4i** 



.*RETRY LIMIT*. NO 
►. EXCEEDED .*... 



.* 
YES 



«4[4c4c4tE 4**** ****** 

♦ * 

♦ POST HARD ♦ 

♦ ERROR IN * 

♦ ERPIB * 

♦ ♦ 
4i4c4c*4i4t4>4'********4' 



BLDREC35 

4c4c4<*4eF4********** 
*GETCOM WD* 

* ^4u.«._4t~*-*-.#-.4t-* 

* FIND JOB * 

* NAME * 

* * 

4E4c4i«*4c4»tt4t4i«<3|<*4i4<#4> 



*wc * 

* Bl* 



Kl *. 
,* IS *. 
* THIS A 

PUB ADDRESS 



4e*4t4c«J2 ********** 

* 

.X* 



POST ERPIB 
TO BE FREED 



4>««*#4(4***#*4!4t4c4i« 



BLDREC25 X 

4:4:*^*J3********** 

♦SCANTAB WC* 

4t_*_4t,*^4(-*-4!-4t^* 

♦ SCAN DEVTABLE * 

♦ FOR SUPPORT * 

♦ * 



*»**♦ 
*WC * 

* Bl* 
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Chart WC. $SRAST02 - Nonresident Channel Check Handler (Part 3 of 4) 
Refer to Chart 05, 



PEFEPENCES 

TO WCBl: 

H6F«, WBJl 

*♦♦♦* 



SCHREOO X 

* POST L002SLOT * 

* IN RASTAB ♦ 

* TO RECALL ♦ 

* THTS PHASE * 

* ♦ 



^1^^***01********** 

* POST CHANNEL * 

* CHECK RECORD ♦ 

* FLAG ♦ 

4t * 

* 1* 



* * 

* SET REG 3 ♦ 

* TO CALL * 

* SSRASTOl * 

* « 



*♦♦* 

♦ WD ♦ 

♦ 01 *.X 



EXIT X 

««4t**E I********** 

♦ * 

♦ SET FETCH * 

♦ SWITCH IN ♦ 

♦ LINKFLAG ♦ 

♦ ♦ 



* CLEAR ♦ 

* ♦ 



* CLEAR ERPIB * 

* AND POST AS ♦ 

* FREE « 

* ♦ 



4c4c4c*D3**0*«>«<**4' 

* RETURN TO * 

* CALLER * 

* * 



♦ * 

♦ SCANTAB * 

♦ * 



SCANTAB, X 

* GET ADDRESS * 

* OF DEVICE * 

* TABLE MINUS ♦ 

* LENGTH OF ♦ 

* 1 ENTRY * 



♦ UPDATE TO * 

♦ NEXT ENTRY * 

♦ IN TABLE * 

» * 



• *. 

F4 *. 
.* *. 

END *. YES 
OF .*.... 
. TABLE •* 
*. .* 
*. .* 
* NO 





Fl *. 




,* WRITE ♦. 


res .♦ 


A RECORD * 


. • .*• 


(CHAN CHK 


* 


•FLAG SETi.* 




♦ . .* 




♦ • .* 



4c***«Gl *♦*♦♦***** 

* SET REG 3 ♦ 

* TO CALL * 

* $«RASTOO ♦ 



H^^Hlft*'*:*********** 



.♦ ♦. YES 

*. EMERGENCY .*•... 
♦.SITUATION.* 
♦. .♦ 



.* DOES ♦, 
♦ DEVICE 
TYPE MATCH 



**4t**G4^****^**^* 



*«#«4i4i**««**«**** 



* DOST CANCEL * 

* cnnE IN * 

* ERPTB * 

* * 



4i4c***H ?♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ SET SYSTEM ♦ 
X* TERMINATION ♦ 

♦ FLAG ♦ 

♦ * 



♦ RETURN ♦ 

♦ TO CALLER * 

♦ * 



♦ BRANCH TO ♦ 

♦ RASTSCAN IN ♦ 

♦ SUPERVISOR ♦ 
^^(♦♦♦♦♦♦♦♦♦♦4t«* 
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chart WD. $$RAST02 - Subroutines (Part a of a) 
Refer to Chart 05. 



* * 

* ERPI8SC * 

* * 



* r-,ET THE ADDR ♦ 
*0F FIRST ERPIB * 

* AND LOGOUT * 

* AREA ♦ 



♦ ♦♦♦A 4**=^***** 

* FINOCCB ♦ 

♦ ♦ 



FINDCCB X 

* BALR TO ♦ 

* RASTSCAN ♦ 

* TO INITIALIZE * 

* I/O REGISTERS * 

* * 



* ♦ 

* GETCOM ♦ 

* * 

*«: «:4i * 4r « 4i#* 4c4t * * * 



GETCOM X 

* GET POINTERS ♦ 

* TO PI8 ♦ 

* AND PART. ♦ 

* COHM. REGION * 

* * 



**** 






* ♦ 






♦ CI *.x 






* * 






**** 


< 




TFSTFE 






CI 


♦ 




.♦ I< 




* 


.* THI< 


. A 




*. FREE E 


-RPIB 



YFS »* END OF 
. ..*. QUEUE 



♦ PUT TASK * 

♦ RFOUESTEP ID ♦. 

♦ AT SAVREQID ♦ 

♦ * 



t>RnBLEM 
PROGRAM 
RFOUFST 



.X. 



ERPTBU X 

♦ UPDATE TO * 

♦ NEXT ERPIB ♦ 

♦ AND LOGOUT ♦ 

♦ APE A * 

♦ * 



««* «*:t)5 *:4<«*:*4c««4i4< 



****«4t4c4>4i4<4'4c«*4>4t* 



.* HAS *. 
ITES .* THE ERPIB *. 
...*.BEEN CANCELED.* 



♦♦** 

♦ ♦ 

♦ CI * 

♦ * 
*♦♦♦ 



4i*4i4ce5 ♦*♦****♦* 

* RETURN VIA ♦ 

* LINK REG B * 

* ♦ 



.* *. 

* ACTIVE 
DASO ERPIR 



Hi***4if2***-*iftt:tH:t(* 



HAS *. 
A PECPon 
BEEN BUILT.* 



****Hl********* 

* * 

* RETURN VIA * 

* LINK REG * 



■^t*************** 



♦ *♦* 

♦ ♦ 

♦ 02 * 

♦ * 
♦*♦♦ 
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Chart WE. 



$$RAST03 - Machine Check Repair / EFL Functiciis (Part 1 cf 5) 
Refer to Chart 04. 






* B3 ♦ 



4c****4:«:^«««*«4i«#4k 



HANDLEMC X 

* TURN OFF * 

* MACHINE CHECK * 

* ACTIVE IN * 

* LDOOSLOT IN ♦ 

* RASTAB ♦ 



*♦♦♦ 

♦ ♦ 

♦ C2 ♦ 

♦ ♦ 
♦*♦♦ 



♦GET ADDRESS OF ♦ 

* HIR/EFL * 

* INFORMATION ♦ 

* * 



* GET MAIN * 

* STORAGE • 

* ECC/EFL INFO * 

* ADDRESS ♦ 



^int**C3 ********** 
♦EFLRTN WJ* 

* -*-.♦_*_♦_»_#-»_♦ 

* CHECK IF * 

* EFL REACHED * 

* * 
^irm************** 



**** 

* * 

* C4 * 

* * 
**** 






♦**♦ 

* * 

* C5 ♦ 

* 4t 
♦*** 


HIRRTN X 

4c4c4>:»4ir i^m********* 
♦EFLRTN MJ* 

♦ CHECK IF * 

* EFL REACHED * 


X 
it,m***C5 ********** 

* POST EFL * 

* OVERFLOW IN ♦ 

* RASMSGl IN * 

* RASTAB ♦ 



*4>**:**«**4<*«**4t4i* 



HARD 

MACHINE 

CHECK 



♦ ♦**♦ 

*WG * 

* B?* 



itc.*^**f-l:il(:ti*it'****** 

* INDICATE * 

* SOFT CHECK » 

* IN RASMSG2 * 

* IN PASTAB * 

* * 

it(^^Jl^^:^-^t********* 



4c4c^4<:«Gl *♦♦«♦*♦**♦ 

* INDICATE ♦ 

♦ TTMEP * 
» DAMAGE MSG ♦ 

♦ TO BE ♦ 

* WRITTEN ♦ 



* 


CORRECTED 


*• 


NO 


.♦ EFL ♦. NO 


NO 


♦ EFL ♦. 




STORAGE 




*...• 


♦. REACHED .♦ 


..4.X.. 


..♦ 


REACHED .♦ 


* 


ERROR . 


♦ ' 




*. .♦ 






♦ • .♦ 




*. .* 






*. «♦ 






♦ . .♦ 




♦ . .* 




X 


*. .♦ 


X 




♦ . .♦ 




♦ YES 




*♦♦* 


♦ YES 


♦♦♦♦♦ 

♦ WH ♦ 

♦ Bl^ 

* * 




♦ YES 










'. STGEXIT 














X 






X 




E2 *. 






^L*m**^-i********** 




m*if*mE'k********** 




* ♦. 






* * 








* 


ON MODEL 


*. 


NO 


* POST ECC * 






POST HIR ♦ 




155 OR 




*•. .. 


♦ MESSAGE IN » 






"ii'sgicr : 


4! 


HIGHER . 


♦ ' 




* RASMSG2 ♦ 








*• .* 






* * 










♦. .* 




X 


4i#«*«4c4>4t***4:4tii**4t 




■^f0Hi*m***m*****m** 




* YES 




***** 
♦WF * 
♦ 82* 








• 




X 




« * 








X 




**♦* 




* 








♦♦*** 




* ♦ 




TI45RTN 








♦wa ♦ 




* B3 * 






X 






♦ 03* 




♦ ♦ 






4(*4> «4tf:3 4t«)|(4E «*«[* «4i 






* * 




**** 






* * 

* INSTRUCTION * 
♦FOR QUIET MODE ♦ 






GOOUTET 



***************** 



* 05 ♦.X. 

* ♦ . 
**** . 

M0135 X 

*****Q5********** 

♦RELOAD CONTROL ♦ 

* REGISTER 14 ♦ 



***m*^^ ********** 

* POST STATUS * 
♦QUIFT AND TURN * 

* OFF RECORDING * 
*MOOE IN MC MODE* 

* IN RASTAB * 
***************** 



* Fl* 

* * 

* 

EXITRTN 



***************** 



*****Qii********** 



POST QUIET 

STATU. 

CMODE 



MODE STATUS 
IN MCMr — 



♦ **♦ 

♦ * 

♦ C2 * 

♦ * 
♦♦** 



***************** 



*****\i^********** 

* TURN OFF ♦ 

* RECORDING ♦ 

* MODE STATUS * 

* IN MCMODE * 

* ♦ 
*******if********* 



J2 ♦. 

♦ TIME 
OF DAY 

CLOCK 

DAMAGE 

♦ . » 

*. . ♦ 



***** 
♦WH ♦ 
♦ 8l^ 



***** 
♦WH ♦ 
* F1 + 



*#«*«K2 ♦♦♦♦♦♦♦♦♦♦ 

* INDICATE ♦ 

* CLOCK DAMAGE ♦ 

* MSG TO BE ♦ 

* WRITTEN ♦ 
» * 
if**if********iti**** 

I **** 

♦ ♦ 
..X+ 05 ♦ 

♦ * 
**** 
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chart WF. $$Ri^8l03 - Machine Check Repair / EFL Functions (Part 2 of 5) 
Refer to Chart 0^. 



♦**♦♦ 

♦WE ♦ 
* E2* 



T145RTN ,*. 








B2 ♦. 








* ARE *. 




NO .REGION CODES*. 


...♦ 




VALID 






*• 




«r 






*, ,♦' 




X 




*. .* 




»*««« 




* YES 




♦MH ♦ 








♦ Fl* 








* * 








* 








EXITRTN 




X 

«♦. 

C2 ♦. 

♦ ♦ 




.* 


ERROR IN 


*» 


*. 


CONTROL 






*. 


STORAGE . 


* 



CONTROL .*. 

02 *. 

.* *, 

.♦ THRESHOLD * 

♦. MODE SET IN 

*. REGION .* 

♦.CODE .♦ 

♦ . .♦ 

♦ YES 



♦ ♦ 

♦ POST ECC ♦ 

♦ MESSAGE FOR ♦ 
♦CONTROL STORAGE* 

♦ * 



♦ TURN OFF CS ♦ 

♦ RECORDING AND * 
♦THRESHOLD MODE ♦ 
♦BITS IN HCMODE ♦ 

♦ ♦DS ♦ 



*«4t4:)KG 2 ♦♦*♦♦♦♦♦♦♦ 

♦ * 

♦ POST CONTROL ♦ 

♦ STORAGE QUIET ♦ 

♦ MODE IN ♦ 

♦ MCMODE ♦ 



* TURN OFF MS ♦ 

* PECORDING AND ♦ 

* CS RECORDING * 

* AND THPESHOLO ♦ 

* IN MCMODE *D5 * 



)«i:4>**4tO4)|c4c««t:04t4<4c4t#: 

♦ * 

♦POST OUIET MODE* 

♦ FOR MS AND CS * 

♦ IN MCMODE * 

♦ ♦OS ♦ 

a)c4c4i4c4i*]|c)|c««4[:(c4t3|r4i]([4t 



UPDATE X 




X 


]|t«4<«:4i£3)|i*4<*4>*4t4'4t4t 




* * 




DIAGNOSE TO * 


♦GET ADDRESS OF ♦ 




PUT MS AND CS ♦ 


♦ ECC/EFL ♦ 




INTO QUIET * 


♦ INFORMATION ♦ 




MODE * 


* * 




*D5 * 


itc4>4t*4!*«4i4c4c4t*4c«*4<4t 


4i*4i4c«4t4i4c4'4E*4<*#*«4: 


* 




X 






♦ WH ♦ 


X 




* Fl^ 


:tit*^^it^f2**'^******* 




4c * 


♦EFLRTN WJ^ 




♦ 


«_♦_♦_♦-♦_♦-.♦_♦_♦ 




EXITRTN 


♦ CHECK IF ♦ 






♦ EFL * 






♦ EXCEEDED ♦ 






1f:li*iftt*'¥********** 







G3 ♦. 
,♦ ♦ 
♦ EFL 
EXCEEDED 



***** 

♦WH ♦ 

♦ Fl^ 

* * 



4c*4c**H3 *♦**♦*♦♦** 

♦ * 

♦ POST ECC ♦ 

♦ MESSAGE ♦ 

♦ IN RASMSG2 ♦ 

♦ * 

*******i,t:******** 



**** 

* * 

* C4 * 

* * 
**♦♦ 
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Chart WG. $$RAST03 - Machine Check Repair / EFL Functicr.s (Part 3 of 5) 
Refer to Chart 04. 



♦ * 

♦ * 



♦WE * 
♦ 01* 



STGERR 


.*. 




B2 *. 




* i 


.** 


ST RAGE 


♦ . 


PROTECT 


*, 


E ROR 




♦ . «' 




*. .♦ 




♦ NO 



.* *. 
NO .* MULTIPLE ♦. 
,..*. ECC .* 



MODEL 155 

OR 158 

CPU 



NO .♦ REGION 

X..*. COOES 

*• VALID 

♦ . 



YES .* ERROR 
X..*, IN CONTROL 
*. STORAGE , 



.♦. 

A^ ♦. 
.♦ PAGE * 
.♦ FRAME 

ALREADY 
♦. DELETED 
*. .* 
*. .♦ 



.*. 
B4 *. 
.* * 
* PAGE 

FRAME IN 
*. USE 



X 
*♦♦♦* 
*WH * 
* Bl* 



* * 

♦SAVE MACH CHECK* 

* NEW PSW INSTR * 

* ADDRESS * 

* ♦ 



* * 

* MODIFY MACH * 

* CHECK NEW PSW * 

* INSTR. ADDR * 

* ♦ 





.* 


4> 




NO .* 


MULTIPLE 


4t 


• ..*. 




ECC 




, * 






,* 




♦ . 


m* 




X 




*m m* 




*♦♦♦* 




* YES 




*WH * 








♦ B3* 








♦ ♦ 








* 








SPFKREP 











.FSAVALIO 


.*. 










G2 


*. 










• ♦ 






*, 








. NO .♦ 


FSA 




*. 




X...*. 


VALID 






* 


*. 








* 




* 






*' 






X 


'*» 


.♦' 








4c#*4t4i 


♦ YES 






♦ WH ♦ 












♦ 81* 












* * 












* 












T( 


;exit 













4:4:#4c4if:4*4>*****4c** 

♦ FORCE FSA ♦ 

♦ TO DOUBLE WORD * 

♦ ALIGNMENT AND * 
» TURN OFF OAT ♦ 

♦ IN PSW * 



4c«*:|i*G4********** 

* VALIDATE ♦ 

* STORAGE BY * 

* MOVING ONES * 
*AND THEN ZEROS * 

* INTO FSA ♦ 
4c4(**********4t**4c« 



REFERENCES **♦* 
TO WGH4: * 1 
WH04, WHG4 * * 



*.X, 



4t4t4t4:4cH 2 ♦♦*♦»»***♦ 

* GET FAILING » 
♦STORAGE ADDRESS* 
♦AND PAGE FRAME * 
♦TABLE ENTRY FOR* 

♦ FSA ♦ 



♦♦** 
RESTORE 

♦TURN ON OAT IN ♦ 

* PSW. RESTORE ♦ 

* ADDRESS IN ♦ 

* MACHINE CHECK * 

* NEW PSW ♦ 

4c*^************** 



***** 
♦WH ♦ 
♦ Bl^ 
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Chart WH. $$RAST03 - Machiine Check Repair / EFL Functions (Fart 4 of 5) 
Refer to Chart OU. 



REFERENCES 
TO WHBl: 
HE03, WEH3 
WGRA, WG';2 
WGH'^f WJFl 
WJH3 

♦*»*♦ 

* ♦ 



*A5 
IN A PARTITION 
EXECUTING IN 
REAL HOOE. 



***** 

♦ HG * 

* E4* 



4i4:4t4i*C I********** 

* POST C40 ♦ 
♦BUFFER DELETION* 

* MESSAGE IN * 

* RASMG2 * 

* * 

*^^f**3lf:*********** 



if4t***E l******:t:*** 

* ACCUMULATE ♦ 

* NUMBER OF ♦ 

* PAGES DELETED * 

* IN BUFDEL ♦ 

* * 



REFEPENCES ***♦ 
TO WHFl: i" * 
WEE5, WEJ2 I * 
WFB2, WFFA I '* 
WFG2 ;**♦* 
EXITRTN 
,♦ 



LOADTEST •♦. 

82 *. 
.♦ *. 
.♦IS PHASE ♦ 
♦. ACTIVATED 



#*«*4cC2 ♦♦♦♦♦♦♦♦♦♦ 



♦ POINT TO NEXT ♦ 
♦LOAD LIST ENTRY^ 



*******i^*******itHL 



it:****[)2********** 

♦ * 

♦ INCREMENT ♦ 

♦ INDEX REG. 3 ♦ 

♦ BY ONE ♦ 

♦ ♦ 

****^'^***^******t 



.♦ LOOP ♦. 

COUNT 

♦ . EXHAUSTED, ♦ 

*. .* 



♦ 82* 

♦ * 



Fl 



*. 



♦ . 



ANY 

MESSAGES 

.REQUIRED .♦ 

*. .♦ 

♦ . .♦ 

♦ YES 



♦ ACTIVATE ♦ 

♦ tSRASTIl FOR ♦ 

♦ MESSAGE ♦ 

♦ WRITING ♦ 

♦ * 

^:^itc7tcni:^4l********** 



SETUP X 

«*4c4:4cH I********** 

♦ GET RASTAB ♦ 

♦ ADDRESS AND ♦ 

♦ INITIALIZE ♦ 

♦ LOOP COUNT * 

♦ TO 16 ♦ 



♦♦♦♦J I********** 

* 
SET INDEX ♦ 

REG 3 TO ♦ 
ZERO ♦ 

* 

it:*************** 



*****f2********** 

* * 

* PREPARE ♦ 

* TO FETCH ♦ 

* $$RASTOO ♦ 

* * 
****iHiH**iti******** 



LOADMOD 

t****G2********** 
♦DEACTIVATE THIS^ 
♦CHOSEN PHASE'S ♦ 

♦ ENTRY IN ♦ 

♦ LOAD LIST * 

♦ ♦ 

itt4L****'tl***7f ****** 



* POST FETCH ♦ 

* REQUEST IN ♦ 

* LINKFLAG ♦ 

* * 



il,it:*^iJ2 ********* 

♦ BRANCH TO ♦ 

♦ RASTSCAN IN ♦ 

♦ SUPERVISOR ♦ 



SPFKREP .♦• 

83 ♦. 

.♦ ♦. 

.♦ HULTIPROG ♦ 

♦. SYSTEM 

*. .♦ 

♦ . .♦ 



*****C3********** 

♦ * 

♦ GET SYSTEM ♦ 

♦ KEY FOR ♦ 

♦ BACKGROUND ♦ 

♦ ♦ 

**if^:^t*itiilHli****^*** 



B^ ♦. 

.♦ DID ♦. 

.♦PROTECTION ♦. NO 

•X^. ERROR .♦... 

♦. OCCUR •♦ 

♦. ♦AS .♦ 

♦ . .♦ 

♦ YES 



*****Ctt********** 

♦ LOOK FOR REAL * 

♦ PARTITION ♦ 

♦ CONTAINING ♦ 

♦ FSA ♦ 

♦ ♦ 
*i^:tt*********m**** 



*****!iS ********** 

* GET VIRTUAL ♦ 

♦ ADDRESS ♦ 
.X^ CORRESPONDING ♦ 

♦ TO FSA ♦ 

* ♦ 
**ii,*********m**** 



*****CS ********** 

* LOOK FOR ♦ 

♦ VIRTUAL ♦ 

* PARTITION ♦ 
♦CONTAINING FSA ♦ 

♦ ♦ 
**m************** 



.♦ PARTITION ♦. NO 
♦, FOUND .♦... 



♦ • .♦ 
♦ . .♦ 
♦ YES 



*♦**♦ 

♦ WG ♦ 

♦ H4^ 



*****£S^it^*****^ili*ilt 

♦ * 

♦ RET KEY ♦ 

♦ OF THAT ♦ 

♦ PARTITION ♦ 

♦ * 

*ilt^Hi:*if *********** 



iti:*Q3*^*JttiH** 

* * 

SET DAT 

ON AGAIN 

IN PSW 

♦ ♦ 



4e4c***H3^^^^^^^^^^ 

♦ RESTORE ♦ 

♦ ADDRESS IN ♦ 

♦ MACHINE CHECK ♦ 

♦ NEW PSW ♦ 

♦ ♦ 
itt*itt*^t***^*****iii** 



**m**pti^i********it, 

♦ * 

♦ SET THE KEY ♦ 

♦ FOR THE ♦ 

♦ PARTITION ♦ 

♦ * 
*^i*^jii**:t[**m*ii,m*** 



.♦ ♦. 
YES .♦ MACHINE ♦. NO 
...... CHECK ' .♦... 

♦ . .♦ 



***** 

♦ MG ♦ 

♦ Ht^* 

* * 



J4 ♦. 
.♦ ♦. 
.♦ FSA 
.X^. IN PAGE 
♦. POOL 
♦ . .♦ 



**j^**iH***ilt 



^^'♦♦♦4e4c4'4'4t« 



♦♦♦♦K3^*^*^^^^^ 

* EXIT TO ♦ 

* RESIDENT HACH * 

* CHECK HANDLER ♦ 



**K4^^*^^^^ 



#**4t4t***4c«4c 



4i***KS ♦♦♦♦♦♦♦♦♦ 

♦ BRANCH TO ♦ 

♦ RASTSCAN IN ♦ 

♦ SUPERVISOR ♦ 
^^'♦♦♦♦♦♦il'****** 
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Chart WJ. $$RAST03 - Subroutines (Part 5 of 5) 
Refer to Chart 04. 



4c**4:A I********* 

♦ ♦ 

* FFLRTN * 



.♦. 

Bl ♦, 
.♦ FIRST ♦. 
SOFT ♦. 
CHECK FOR . 
, GROUP .* 



♦GETIME WJ* 

♦_♦_ ♦_ ♦_♦-.»_♦-*_# 

♦ GET CURRENT ♦ 

♦ TIME OF DAY * 

♦ * 



♦ ♦ 

♦ SAVE TIME OF ♦ 

♦ DAY FOR ♦ 

♦ THIS GROUP * 

♦ ♦ 



MOTFIRST 

* UPDATE SOFT ♦ 

* MACHINE CHECK ♦ 

* COUNT FOR ♦ 

* THIS GROUP * 

* ♦ 



* ♦ 

* GETIME * 

* * 



X 
GETIME .*. 
B3 



CLKOMG 

* POST CLOCK * 

* DAMAGED * 

* MESSAGE BIT ♦ 

* IN RASMSG2 * 

* ♦ 



♦WE * 
* E4 



♦*♦♦ 
GOOUIET X 

* CLEAR * 

* MCMODE ♦ 

* BYTE * 

* ♦ 



4t*:^«4cC4**4>4'***^4<* 

* STORE CLOCK ♦ 

* TO GET ♦ 

* CURRENT TIME * 

* OF DAY ♦ 

* ♦ 



ERROR 
ON STORE 
. CLOCK 



NO .* COUNT 


* 


...♦. THRESHOLD 




*. REACHED 


* 


*. «* 




X *, .♦ 




***«* 4> YES 




*HH * 




♦ 81* 




* * 




* 




STGEXIT 





♦ DIAGNOSE * 

♦ INSTRUCTION * 

♦ TO PUT MAIN * 

♦ STORAGE INTO ♦ 

♦ QUIET MODE ♦ 



CPU MODEL 

155 OR 

. HIGHER . 

♦ . .* 



QUIET145 

* PUT MAIN AND * 
♦CONTROL STORAGE* 

♦ INTO QUIET MODE* 

♦ AND POST THAT ♦ 

* IN MCMODE ♦ 

#*4e4i*«[*3K«4c4<****** 



* * 

* GET CURRENT * 
♦TIME OF DAY IN * 

* REGISTER 6 * 

* * 



* RETURN VIA * 

* LINK REG * 

* * 

«4t4c4E4t4e ********* 



♦GETIME WJ^ 

♦_♦_♦_♦_*-♦_♦_♦_♦ 

♦ GET CURRENT ♦ 

♦ TIME OF DAY ♦ 

♦ ♦ 



♦ CLEAR SOFT ♦ 

♦ MACHINE CHECK ♦ 

♦ COUNT FIELD ♦ 
♦FOR THIS GROUP ♦ 

♦ ♦ 



♦ CALCULATE ♦ 

♦ ELAPSED TIME ♦ 

♦ SINCE FIRST ♦ 

♦ CHECK * 

♦ * 
^^^'♦♦♦♦♦♦♦♦***4t** 



«4c*4cKl**^^***^^ 

♦ RETURN VIA * 

♦ LINK REG * 

♦ * 



MODEST AT 

4c*«4e*G3**^^^***^* 

♦ MASK ALL SOFT * 
♦MACHINE CHECKS * 

♦ VIA CONTROL ♦ 

♦ REG 14 * 

♦ * 
^nititim******* ****** 



4c 4t*4r*H3*^ ♦♦♦♦♦♦♦♦ 

♦ POST QUIET ♦ 

♦ STATUS FOR ♦ 

♦ MAIN AND ♦ 

♦ HIR IN ♦ 

♦ MCMODE ♦ 
^Ifil^^f^Hfti*********^ 



X 
***** 
♦HH ♦ 
♦ Bl^ 
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Chart XA. $$RASTOU - 1403, lUOSU, 1443^ 3210^ 3215. 1442, 2501,, 2540 Unit Reccrd 
Channel Check ERP (Part 1 of 4) 
Refer to chart 05. 



♦ A2 * 

♦♦** 



* * 

* $$RAST04 ♦ 

* ♦ 



#4(Bl<*!*4c4(4t** 



4ii4c4<*4>4t4c««*4! 



CI ♦. 

.ORPTURN ♦« 
♦= FROM 

MESSAGE 

*. WRITER . 

*. .* 



DEVICE 
A 3210 OR 
. 3215 





B2 ♦. 






• * 


*. 


YES 


.* DEVICE 




...* 


A 1442N1 
*. 1442N2 


OR 


, 


*« • 


* 


X 


*. .♦ 




♦ 4i4i4c4i 


* Hi) 


♦XC ♦ 






♦ B2* 


. 





***** 

♦ XB * 

* A4* 



*. 



♦ NO 



**D1******* 

INITIALIZE 

FOR ERPIB 

SCAN 

* ♦ 

*********** 



♦. 2501 .* 


X 




*. .♦ 


***** 




*. ,* 


*XB ♦ 




♦ NO 


♦ B2* 




*♦** 


♦ * 




* * , 


* 




♦ D2 ♦.X. 


R250I 




* * . 


***** 




**** 


* • 


tJEFERENCES 


CUPDATE X 


* ** 


TO XA02: 


**Q2******* 


* * 


XBJ5, XD03 


* ♦ 


* 




* UPDATE ♦ 






* TO NEXT *X.. 






♦ ERPIB * 







]iM****A4********«* 
*R€P«M0N XO* 

.X* DO COMMON * 

* INITIALIZE * 

♦ AND SCAN * 
****.f ************ 



.♦ HO OP 
♦. OR ALARM 
*, COMMAND . 
*. ,♦ 



X 
.*, 
C4 

.♦'sequence 

►. CODE 

♦ . 100 

.♦ 



♦ . 



*• 



*********** 



El *. 

.* *. 

► END ♦ 

OF 
*. ERPIBS .* 



EXIT .*. 

E2 *. 

.* ANY ♦. 

.♦ MESSAGES * 

.X*. TO BE 

♦. WRITTEN .* 



XNOMSG 

**E3******* 

♦INITIALIZE * 

♦ REGISTERS * 
.•.X* FOR ACTIVE 

* MODULE * 
♦ SCAN ♦ 

*********** 



♦ NO 



SEQUENCE ♦. 
CODE 011» . 
• lOlflll .* 
*• .♦ 



***** 

♦ XB * 

* E5* 



X 

***** 
*XB ♦ 
* C4* 



* IS * 

THIS AN 
ERPIB 
ENTRY 



.* HAS THIS *. NO 
f. ENTRY BEEN .*. .X 

♦.RECORDED .* 



**** 

* * 

* 02 * 

* * 
**** 



**P2 ******* 

♦ RESET ♦ 
MESSAGE 
REQUEST 
SWITCH 

* * 
*********** 



*»G2******* 

♦ ACTIVATE ♦ 

♦ CHANNEL 

CHECK 

♦ HANDLER 

* * 

*«**««4c**4c* 



«4r*#:4tHl********** 

* GET PUB * 

* ENTRY FOR * 

* DEVICE IN * 

* ERROR * 

* * 

«]|t*:(c«4:*********** 



**** 
*XC ♦ 

* F5 



* SET REG 3 TO ♦ 

♦ FETCH MESSAGE * 

♦ WRITER ♦ 

* * 
«#*************** 



YES 


.♦ 


DEVICE ♦. 




* POST FETCH * 


. . .♦ 


.A 


1403,1403U . 
OR 1443 .* 


* 


♦ REQUEST IN * 




* 




* LINKFLAG * 






♦ « .♦ 




* * 


X 




♦ . .♦ 




***************** 


***** 




♦ NO 






*xc * 












* Bl* 












* * 
* 




• 








PPRNTP 




X 

.*. 

KI *. 














X 






.* ♦. 




****K2********* 




.* 


DEVICE ♦ 


YES 


* BRANCH TO * 


* 




A 25^0R 


*. ,. . 


* RASTSCAN IN * 




'* 


.OR 2540P .♦ 
♦ . ,* 
*. ,* 
* NO 


X 
***** 
♦XB * 


* SUPERVISOR * 
*************** 






. 


* 81* 


R2 540 





X. 

X 
DTST .♦. 

F3 ♦. 

.♦ ♦. 

.♦ THIS ♦. YES 

♦. MODULE .♦... 

*, ACTIVATED.* 

♦ . .♦ 

*. .* 



**Ga******* 

♦ UPDATE ♦ 
TO NEXT 
MODULE 

ENTRY 

♦ * 

*********** 



H3 ♦. 
.♦ PAST ♦ 
NO .♦ LAST 
,..♦, ENTRY 



*****j3********** 



***************** 



♦♦K3 ♦♦♦♦♦♦♦ 
*DEACTIVATE * 

* MODULE * 

TO BE 

♦ FETCHED * 



*********** 



284 DOS/VS Error Recovery and Recording Transients 



Chart XB. $$RAST04 - 1403, 1403U, 1443, 3210, 3215, 1442, 2501, 2540 Unit Record 
Channel Check ERP (Part 2 of 4) 
Refer to Chart 05, 



***** 

*XA * 
♦ CI* 

* * 



»2 540 X 

«****B 1********** 
♦RCOMMON XD* 
♦_♦_*_♦_♦_♦_»_ ♦-^li 

♦ DO COMMON * 

♦ INITIALIZE ♦ 

♦ AND SCAN ♦ 



YES .* 


READ 


. ••*. 


(NO FEEO; 


♦ 


. COMMAND 




*. .* 


X 


*. .* 


***** 


* NO 


*xc * 


* 


* cs* 




* «: 




* 




ACTT0N4- 


X 




.*. 




01 *. 




.* * 


YFS .* 


SEQUENCE 


. • «*• 


COOE 010, 


, * 


. OR III 



R2501 

***i**fi2********** 
*RCOMM0N XO* 
*-*_*_♦_♦-♦-♦-*-* 

* DO COMMON * 

* INITIALIZE * 

* AND SCAN ♦ 
**4t*4t#**4i4.4c4t4:4>#«4i 



YES .* SEOUENCE 
...*. CODE 

*. 001 



02 ♦. 
.♦ *. 
.* SEOUENCE *. NO 
». CODE .*... 

*. 100 .♦ 

♦ . .♦ 
♦. .* 
* YES 



PFFEPENCES 
TO XBCA: 
XAD4, XCDl 
XCF2, X0J2 
***** 

* * 

* ** 



ARETURN X 

**A4******* 

♦ RESET * 

♦ MESSAGE 
* WRITER 

* RETURN 

* SWITCH * 
*********** 



***«*B4********** 

* * 

* RESTORE * 

* MODULE * 

* REGISTERS * 

* * 
****************]|[ 



* C4 *,X 



**** 

* * 

* C4 * 

* * 
»*♦♦ 



**** 
ACTIONS X 

*****C 4^********** 

* PLACE FAILING * 

* CCW AND * 
...X* LUBID IN * 

♦ PAS I/O * 

♦ BLOCK * 
**********4t ****** 



****:*04**4i******4c 

* * 

* SET POINTER * 

* TO RAS * 

* I/O BLOCK ♦ 

* * 
***************** 



.♦ SEOUENCE 
CODE 
*, 001 



.* SEQUENCE 
*. CODE 

*. 100 



NO .*TERHINATION*. YES 

...♦. CODE .*... 

*. 01 .* 

*, ,* 

X ♦. ,* 

♦*** ♦ 

* * 

* C4 * 

* * 
**** 

R25A0B .*. 

F2 *. 
.* FEED *. 
.* SELECT *. YES 

X*. STACKER .*..X 

*. COMMAND .♦ 



SEOUENCE 

CODE 

Oil 

♦ . .* 



.♦TERMINATION*. NO 
CODE .*,.> 

♦ - 01 .♦ 



**♦* 

* ♦ 

* H5 ♦ 

* * 
**** 



***** 

♦ XC * 

♦ C5* 



r,i *. 




G2 ♦. 


FEED *. 




* 


SELECT *. YES YES 


.♦' 


SEOUENCE 


STACKER .*....X....* 




CODE 


COMMAND .* 


'♦ 


Oil 


. .* • 




♦ . .' 


*. .* X 




♦ . .♦ 


* NO ***** 




♦ NO 


♦ XC ♦ 






♦ C5^ 






X ♦ ♦ 




X 


♦*** ♦ 




♦♦♦♦ 


♦ * ACTT0N4 




* * 


♦ C4 ♦ 




♦ F5 ♦ 


* * 




* * 


♦ *♦♦ 




**** 



*****E4********** 

♦ SAVE DEVICE ♦ 

♦ I/O STATUS ♦ 

♦ FROM PUB ♦ 

♦ * 

***************** 



*****P4********** 

♦ * 

♦ POST I/O ♦ 

♦ REQUEST IN ♦ 

♦ LINKFLAG ♦ 

♦ * 
***************** 



*****g4********** 

♦ * * * 

♦ ♦ BALR TO ♦ ♦ 

♦ ♦ RASTSCAN ♦ ♦ 

♦ ♦ FOR I/O ♦ ♦ 

♦ ♦ » * 
***************** 



REFERENCES ***** 
TO XBE5: T * 
XA04, XCE3 *^ *♦ 
XCFl. X0G3 ** 



♦ F5 ♦.X 



**** 
ACTIONS X 

*****P5 ********** 

♦ PLACE CODE ♦ 

♦ FOR 0T12I ♦ 

♦ MESSAGE ♦ 

♦ IN ERPIB ♦ 

♦ * 
***************** 



**G5 ******* 

♦ SET ♦ 
MESSAGE 

TO BE 
ISSUED 

♦ SWITCH ON ♦ 

*^********* 



REFER 

TO 

XCE2 



YES .♦ CHANNEL ♦. 
...♦. ERROR ON .* 

♦. RETRY .♦ 

♦ . .♦ 



♦♦♦♦ 

♦ * 

♦ F5 ♦ 

♦ ♦ 
♦*** 



*****J4********** 

* PLACE CODE ♦ 

* FOR OTlOI * 

* MESSAGE IN ♦ 

* ERPIB, ♦ 

* REQUEST CLEAR ♦ 
***************** 



**K4*^****^ 

♦ SET ♦ 
MESSAGE TO 

BE ISSUED 
SWITCH 

♦ ON ♦ 
*********** 



ENCES ♦♦♦♦ 
XBH5: ♦ ♦ 
XDJ3 ♦ ♦ ♦.X, 



ACTI0N2 
ACTIONIC 

*****H5 ********** 

* PLACE * 

* CANCEL ♦ 
..X* CODE IN * 
. * ERPIB * 

* * 
***************** 



**J5 ******* 

♦ ACTIVATE ♦ 

♦ CHANNEL 

CHECK 

♦ HANDLER 

♦ * 
*********** 



..X. 

X 

***** 

♦XA ♦ 

♦ 02* 

* * 
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Chart XC. $$RAST04 - 1403, 1403U, 1443, 3210, 3215, 1442, 2501, 2540 Unit Record 
Channel Check ERP (Part 3 of 4) 
Refer to Chart 05. 



***** 

* Jl* 



♦XA * 
♦ 82* 



RPRNTR X 

*****Sl********** 
*RCOMMON XD* 

♦_♦_♦_*_*-♦-*-*-♦ 

* 00 COMMON * 

* INITIALIZE * 

* AND SCAN * 



YES .♦ SEQUENCE ♦. 
...♦. CODE 001 

♦. OR 100 .♦ 



YES .* NO OP ♦. 
X...*. COMMAND .♦ 





X 


♦ • •♦ 


♦**♦♦ 


* NO 


*XB ♦ 




♦ C4* 




♦ * 




* 




ACTT0N5 


X 




.♦. 




El *. 




,♦ ♦ 


NO .* 


SEQUENCE 


.»..♦. 


CODE 




* 


010 
*. .* 
*. .♦ 
* YES 



RIA42 X 

*****B2 ********** 
♦RCOMMON XD* 

*_*-.*-*_*-*_*_*-* 

♦ DO COMMON ♦ 

♦ INITIALIZE ♦ 

♦ AND SCAN ♦ 

***************** 



YES .* SEQUENCE 
...♦. CODE 
♦ , 001 



02 *. 

.♦'sequence '♦. NO 
*. CODE .♦.., 
*. 100 .♦ 

*. ,♦ 
♦, ,* 
* YES 



R1442B 



YES .♦TERMINATION*. 
...♦. CODE .♦ 
♦ . 01 .♦ 
♦ . .♦ 
X ♦. .♦ 
***** * MO 

♦ X8 ♦ 

♦ H5* 
♦ ♦ 



.*, 

E3 ♦. 

,* ♦, 

.♦TERMINATION*. 

CODE 00 

*. OR 01 .* 

♦ . .♦ 

*. .♦ 

* YES 



REFERFNCF'^ ♦♦♦** 
TO XCC'=5: * ♦ 
XRCl, XRF3 * *♦ 



ACTIONS X 

**i|t**(;^5 ********** 

* PLACE CODE * 

* FOR 0T13A ♦ 

* mes«;age in * 

* ERPIB ♦ 

* FORCE ACTION * 
***************** 



*****05 ********** 

* PLACE THIS * 

* MODULE'S ID * 

* IN THE ♦ 

* ERPTD BYTE ♦ 

* * 
***************** 



.*. 
Fl ♦. 
,* ♦ 
NO .* WRITE 
c^*. (ONLY; 
*. COMMAND 



***** 

♦X8 ♦ 

♦ E5* 

* * 



***** 

♦ XB * 

* E5* 



***** 
♦XB ♦ 
♦ C4^ 



**f S******* 

♦ SET * 
MESSAGE 
WRITFP 
RETURN 

♦ SH ON ♦ 
*********** 



***** 

♦ XA * 

* H2* 
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Chart XD. $$RASTOt* - 1403, 1403U, 1443, 3210, 3215, 1442, 2501, 2540 Unit Record 
Channel Check ERP (Part 4 of 4) 
Refer to Chart 05. 



♦♦♦♦A2********* 

♦ RCOMMON ♦ 

♦ ♦AA * 

♦ * 



♦ A4 
THIS ROUTINE PERFORMS 
COMMON INITIALIZATION 
AND SEQUENCE CHECKING. 



.» IS 

♦. DEVICE 
♦. QUEUED 



♦ 

♦ GET 

♦ FAILING 

♦ CCH 



* DETERMINE ♦ 

* ABSOLUTE * 

* LUB ID » 

* ADDRESS ♦ 

* * 



♦ ISOLATE ♦ 

♦ SEQUENCE * 

♦ AND ♦ 

♦ TER^TNATION * 

♦ CODE * 



♦ RESET * 
DEVICE 
BUSY IN 

PUB 

* * 



* * 

* CLEAR AND * 

* FREE ♦ 

* ERPIB * 

* ♦ 



***** 

♦ XA ♦ 

♦ 02* 



.♦ INITIAL 


* 


, 


♦• SELECTION 




,* 


♦. ERROR . 


* 




*• •♦ 






*, ,♦ 








N YES 






RCOMMONB ) 


< 






4i4c4:4t4cH2 ******^'*"t'* 


* 




* 


* GET 




* 


♦ a 


:b 




* 



.* VALID ♦• NO 
CCW .*... 

*. ADDRESS .♦ 



***** 

*X8 ♦ 

* E5* 

♦ * 



.* ♦. 
• TIC *. YES 
COMMAND .*... 



4t**«4e*«***4i4i*««:^* 



it:**i**J2********** 

* * 

* GET * 

* CCW ♦ 

* CHAIN ♦ 

* * 



***** 
*XB * 
* C4* 

* ♦ 



SEQUENCE 
CODE 000 
. OR 110 



X 
***** 
*X8 * 

* H5* 



****K3********* 

* RETURN TO * 

* CALLING SEQ * 

* * 

********:((* *#**« 
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Chart XE, $$RAST05 - 2520 and 3211 Channel Check EFP (Fart 1 of 3) 
Refer to Chart 05. 



* * 

* ftRAST05 * 

* * 



J»:4:B1>*=4'4'***4< 



#4(«:«*)|>**4«|t* 



R2520 X 

♦RCOMMON XG* 



* DO COMMON * 

* INITIALIZE * 

* AND SCAN * 



RETURN *. 
FROM 
. i*!hSSAGE .* 

♦ WRITER.* 



* ♦ 
INITIALIZE 

FOR ERPIB 
SCAN 

* ♦ 





REFERENCES 




TO Xe02: 




XF02, XGO^ 




««#«# 




♦ * 




♦ ♦* 


♦ ♦♦I 


♦ ♦ 


♦ 


* « 


* D2 


♦...X. 


« 


♦ 


«4i4» 




CUPDA'T X 




**02******* 


« 




♦ 


UPDATE 


* 


TO NEXT 


» 


ERPIB 



*♦** 

* * 

* 03 ♦ 

* ♦ 



t*3lf***f**** 



.♦ 
.* 

YES 



END 

OF 

ERPIBS 



THIS AN *. 
ERPIB 
FNTPY .♦ 



4i:(c«#**«**«4(«****4c 



YES 


.♦ 


IS 


• . .* 




DEVICE A 


• 


♦ 


. 3211 
*. .* 


X 




*. .* 


*♦*♦* 




* NO 


*XG ♦ 






♦ B4* 






♦ * 






* 




, 


R321I 




X 

.*. 

Kl *. 

.*DEVICE ♦ 




„* 


2520B1, 
2520B2f OR 


* 






* 


. 2520B3 



.* ANY *. 
.* MESSAGES *. NO 
.X*. TO BE ,♦... 
♦. WRITTEN ,* 



* RESET * 
MESSAGE 
REQUEST 
SWITCH 

* * 



4(4c4t4c# 

*XF * 

* 03* 

♦ * 



ACT10N2 
XNOMSG 

4c*g3*#«4>*** 

♦INITIALIZE * 

* REGISTERS ♦ 
X* FOR ACTIVE 

♦ MODULE * 

♦ SCAN * 

4e4c**4i4c***** 



YES .* SEQUENCE 
...*. CODE 

♦ . 001 



R2520B 


.*• 




05 *. 




* ♦. 


.*' 


SENSE *. YES 


..X*. 


COMMAND .♦,... 


♦ , 


.* 




*. .♦ 




♦ . .♦ X 




« NO ♦4!4>*« 




♦XF ♦ 




♦ Dl* 




, » * 




• * 




X ACTIONS 



Gl *. 


**G2******* 


.* HAS *. 


* ACTIVATE * 


.♦THIS ENTPY *. NO 


* CHANNEL ♦ 


*. BEEN .♦..X. 


♦ CHECK * 


♦.RECORnED .♦ 


* HANDLER ♦ 


♦ . .* 


* * 


*. .* 


Hit**ilt^*^)ti*:*c 


* YFS 


, 




4it*« 




*XF * 




* F5 *.X. 




♦ ♦ . 




♦**♦ 


X 


XMSG X 


itei|c4:**H I ♦*♦*♦***♦* 


4c*itc««H? ♦♦*♦**♦*♦* 


* f;!rT PUB * 


♦ SET UP * 


♦ ENTRY FOR * 


♦RFG 3 TO FETCH * 


* DEVICE * 


♦MESSAGE WRITER * 


* IN ERROR * 


♦ $$RAST10 * 



*t******'¥***t*#** 



* POST FETCH * 

* REQUEST IN * 

* LINKFLAG * 

* * 



♦♦♦*K2 ********* 

* EXIT TO * 

* RASTSCAN IN * 

* SUPERVISOR ♦ 

«#«:4c«**4<****4t** 



F3 ♦. 
.* THIS ♦. 
* MODULE 
ACTIVATED 



**G3******* 

* UPDATE * 
TO NEXT 
MODULE 

ENTRY 

♦ * 

**«#««4c**** 



YES .*TERMINATION*. 


...*. 


CODE 01 


• * 


.* 




*. ,* 


X 


♦ . .♦ 


♦*♦♦* 


* NO 


*XF * 




* D3* 




* * 


X 


* 


***«* 


ACTI0N2 


♦ XF * 




* Dl* 




4t « 




* 




ACTIONS 



YES .* IMMEDIATE *. 
...*. COMMAND .* 



* D3 * 
**** 
R2520C 



YES 



4c4c4t4c*J3********** 



4i*4c#itc4t*********^* 



XLDMOO X 

**K3******* 
♦DEACTIVATE * 

* MODULE 
....* TO BE 

* FETCHED 

* ♦ 

«:«! ««)«!««•«! 4c *«t 



* READ * 

WITH 

CONTROL 

COMMAND 



.*TEPMINATION*, YES 


*. CODE 10 


.*.... 


*. OR 11 


.* • 


*. .* 




*. .* 


X 


* NO 


***«♦ 




♦ XF ♦ 




♦ Dl* 




* « 




* 


X 


ACTIONS 


.*. 




H5 «. 




.* WRITE * 




.* WITH NO 


*. YES 


*. CONTROL 


.♦. ... 


*. COMMAND 


.* . 


*. .* 




♦ . .* 


X 


* NO 


***** 




*XF * 


.......xl 


* 83* 


X 


♦ * 


***** 


* 


♦ XF ♦ 


ACTI0N3 


* C5* 




* * 




* 




ACTI0N4 





a 
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Chart XF. $$RAST05 - 2520 and 3211 Channel Check ERP (Part 
Refer to Chart 05. 



2 cf 3> 



***** 

• XE * 

♦ CI* 



**** 

* * 

* 82 * 

* * 
**** 



WEFERENCES 
TO XFB3: 
XEH5, XGG3 
XGH5 

***** 



* RETURN X 

**^l**lf**** 

* RESET * 

* MESSAGE 
* WRITER 

♦ RETURN 

* SWITCH ♦ 
*********** 



*****(;_ I********** 

* * 

* RESTORE ♦ 

* MODULES * 

* REGISTERS * 

* * 
**lf*******^****** 

• REFERENCES 
, , • TO XFDl! 
I * * ,»• XED5, XEE4 

* ♦♦•X. XEG5, XGC4 
L** • XGH4, XGH5 

ACTIONS X *^'*''^ 

*1^***Ql********** 

* PLACE FAILING • 
♦CCW ADDRESS AND* 

* LUBID IN RAS ♦ 

* I/O BLOCK * 

* ♦ 
tiin***itm********** 



CHANNEL ♦. YES 
ERROR ON .*.... 
. RETRY .♦ 



.ACTIONS X 

*4i*4c* 83 ******** ** 

* PLACE CODE * 

* FOR 0T12I * 

* MESSAGE ♦ 

* IN ERPIB * 

* ♦ 

************^i)e**0 



**** 



^,****^ I********** 

* SET POINTER * 

* TO RAS I/O * 

* BLOCK AND SET * 

* ID FOR RAS * 

* RETRY * 
***************** 



*****fl********** 



**************it** 



*****C 2 ******* *** 


**C3******* 


* PLACE CODE * 


* SET * 


* FOR OTIOI * 


* MESSAGE TO * 


* MESSAGE * 


* BE ISSUED * 


* IN ERPIB * 


* SWITCH * 


* REQUEST CLEAR * 


* ON * 


*'tL*************** 


***tt******* 


REFERENCES ^^^. 


TO 


(CFOl! Z * 


XED3, 


XEE4 * ** ' 


• XGJ3 


* * *.X. 

* * . 




ACTI0N2 


X 


ACT IONIC X 


♦♦02 ******* 


*****Q-i**** ****** 


* SET * 


* PLACE ♦ 


* MESSAGE TO * 


* CANCEL CODE * 


* BE ISSUED * 


* IN * 


* SWITCH * 


♦ ERPIB * 


* ON * 


* * 


**M******** 

:x 


tE^fC^'************* 


j^^ 




♦XE * 




♦ 02* 


X 


• * 


**^^******* 


* 


* ACTIVATE * 


C UPDATE 


* CHANNEL * 




* CHECK * 




* HANDLER * 




*FOR CANCEL * 




***^if****** 



***** 
*XE * 
* H5* 



ACTIONS X 

«**4t*c 5 ********** 

* PLACE CODE * 

* FOR 0T13A * 

* MESSAGE IN * 

* ERPIB, * 

* FORCE ACTION * 



*4>«4c4tD5 ********** 

* PLACE THIS * 

* MODULE'S 10 ♦ 

* IN THE * 

* ERPID BYTE * 

* * 



iH*t'**E'y ********** 

* SAVE MODULE * 

* REGISTERS * 

* FOR RECALL * 

* MESSAGE * 

* WRITER * 



4i*F: 5 ******* 

♦ SFT ♦ 
MESSAGE 

WRITER 
RETURN 

* SW ON * 



#4i4c4t4EG 1 ********* 

* POST I/O 

* REQUEST IN 

* LINKFLAG 
* 

*4>4>***«*4t* ****** 



X 

***** 

*xe * 

* H2* 



***4t4'Hl********** 

* * * * 

* ♦ 8ALR TO * ♦ 

* * RASTSCAN * * 

* * FOR I/O * * 

* * * * 
4i#4i4i 4c****** ****** 
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****A2** 
♦ RCOMI 



ON * 



♦XE * 
♦ Jl* 



R3211 X 

*RCOMMON XG* 

«_*_♦-»-♦-♦-♦_♦-♦ 

* DO COMMON ♦ 

* INITIALIZE * 

* AND SCAN * 



RCOHMON .«. 

C2 *• 


^tC3******* 


c«-*-.. 


.* *. 


* * 


• * < 


.* IS ♦.NO 


* RESET ♦ 


YES .♦ SEQUENCE 


*. DEVICE ....... 


...X* DEVICE ♦ 


...*. CODE 001 


*. QUEUED .* 


* BUSY IN * 


*, OR 100 


*, ,♦ 


* PUB ♦ 


• *• . 


♦. .* 


4t«*4>4t*4t*4i#* 


X «• m* 


♦ YES 




♦♦♦♦* * NO 
*XF * 




• 


* Dl* 




• 


* * • 
ACTIONS X 




• 


RCOMMONA X 


X 


.*. 


1tiitt:1f^,l(Q2********** 


)|i 4c 4t«4i03 ♦**■*■ ****♦♦ 


04 *. 


* * 


« * 


.♦ 


♦ GET ♦ 


♦ CLEAR AND * 


.♦ CONTROL 


* FAILING ♦ 


* FREE * 


*• COMMAND 


♦ CCW * 


* ERPI8 ♦ 


♦ . 



4iiK4e*4i«*3|i4t*««4t*«4t4c 



*4t4>*4EF2 »♦♦♦*♦**** 
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* ABSOLUTE * 
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* * 

* I SOLATE * 
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* TERMINATION ♦ 

* CODES * 



4i*4<«**4e4i*4>4t**4t*** 



X 

*XE ♦ 
♦ 02* 



.*. 


R3211C .*. 
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*. 


• * *. 
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• * 


*. COMMAND . 



.♦ INITIAL 


4> 


NO 
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.*•• • 


. ••.*. 
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* 




. *, 
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♦ . .* 
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X 


*. .* 
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»♦♦** 
*XF * 
* B3* 
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* 
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X 
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.♦. 


4>4>4c«*H2********** 




H3 ♦. 






♦ 




* *, 
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♦ 


• * 
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* 


*. 


COMMAND m* 


* ADDRESS 




♦ 


♦ 


,* 
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Ix.... 
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.** 



4c«4c***4>4t**««***4t4i 



#****J2 ********** 

* ♦ 
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* CCW * 
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4c «c 

4c4c**4>)|c*4c««4c4>4c4i4c** 



***** 
♦XF * 
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4c * 



J3 *. 

.* * 
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*. CODE 000 
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*s 

*. .* 
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e* 



x 

**4c** 

*XF * 
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*XF * 
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4c 4c 
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.4c 4c 
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CODE Oil 
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*. .* 
*• .* 



*. NO 
.*... 



,4c 
.* 
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R3211B .*, 

H5 *. 
.* *. 
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*. CODE 01 .*..X. 

*. «* 

*. .* 
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***** 
♦XF * 
♦ 83^ 



***** 
♦XF ♦ 
♦ 01 + 



♦♦♦♦K3^*^**^*** 
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♦ CALLING ♦ 
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*4r 4c4c 4c4c4c4E 4c* 4c4c4c« 4c 
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Chart XH. $$RAST06 - 3505, 3525, 3540 and 3886 Channel Check ERP (Part 1 cf 3) 
Refer to Chart 05, 



REFERENCES 
TO XH&2: 
XI82, XIE4 
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* * 
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* ♦ 
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**** 

* * 

* B4 ♦ 
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*♦*♦ 

X 


X 


X 


CUPDATE X 
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***** B3 ********** 




B4 *. 
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.* ♦. 


.* *. 
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.♦ FD.SS ♦. YFS 
♦. COMMAND ...... 


.* OEVTCE *. YES 
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*ANO RAS TABLE* 




* ERPIB = ♦ 












♦ . .♦ 


*. FOP T/n .* 


* * 
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♦ . .♦ 


♦ . . * 


*«4c4t«4i*4<4>*« 




«4i**«4t**4<*4c4>**4>*« 


X 
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♦ . .♦ X 


*. .♦ 








**** 










♦ NO *♦♦♦* 


* NO 
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* * 










♦XJ ♦ 


* * 






* ♦ 


♦ El * 










♦ F3^ 








♦ C2 ♦•.. 


* ♦ 










« ♦ * 








♦ * • 


♦♦♦♦ 










. ♦ 




X 




♦♦*♦ 












ACTinN2 


, , 


• *• 
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X 


X 


CI *. 




4>** 4t*C 2 ****** **** 




C3 ♦. 








***^t*c^********** 


*4i*#4tC5 ♦♦****4'«4c* 


-♦ *. 




♦RCOMHON XH* 




,♦ ♦ 










♦ TURN OFF ♦ 


.♦ RETURN ♦. YES 






.* FDSS 


'♦ 
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* ISOLATE ♦ 
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*. FROM MESS .*.... 
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♦. COMMAND 




.* 
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* PEMOVE ERPIB ♦ 


♦. WRITER .♦ 




♦ INITIALIZE * 




*. 


.♦ 








♦ ENTPYt AND ♦ 


♦ . .* 




* ROUTINE ♦ 




*« .* 










* FREF FOPTB * 


*, ,♦ 


X 


***************** 




*. .* 






X 


iti**t^*1f*********** 




♦ NO 


**♦*♦ 
♦XJ * 
♦ K2* 
♦ ♦ 

* 


•] 




* NO 

X 
***** 






*♦♦♦♦ 
♦ XJ ♦ 

* 




X I 

♦ *** 


I ARETURN 






♦XJ ♦ 






ACTION* 




* * 


X 




X 




♦ Fl* 










♦ R2 * 


*««*«o 1#********* 




4i«4>**02 ********** 




* * 








DA *♦. 


♦ * 


♦ * 




* * 




* 








.♦ ♦. 


*♦*♦ 


* GET * 




* LOAD * 
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.♦ PRINT ♦. YES 




♦ ERPIB ♦ 




♦ COMMAND * 












♦. COMMAND ...... 




♦ ADDRESS * 




* * 












♦ . •♦ 






* * 




* * 


REFERENCES ♦*♦♦* 








♦ . .♦ 






*if^^^tm*it'****'***** 




m**************** 


TO 
XID2 


XHE?: ♦ * 
, XJJ3 ♦ ♦♦ 








♦ . .♦ 
♦ NO 






♦ *4>* * 








* * 














* ♦ . 








* 








* 
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••••••. .X. 








- 






♦♦*♦ X 


.. 


X 


............. 
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X 
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E2 ♦. 




E3 ♦. 








«4!4c«4tE4^^^******* 




♦****F 5 *♦*♦♦♦♦*** 


.♦ ♦. 




.* *. 




,♦ ♦ 














.* ANY *. NO 


.* IS *. YES . 


.♦ TEST 


** 
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♦ ISOLATE * 




* POINT in * 


♦ . MORE .*, 


... 


♦. SEO CODE .*. 
*, 000 .♦ 






♦. I/O 
♦. INST 


,* 


I* 




♦ COMMAND * 




* CCW IN * 


*. ERPIBS .* 


.... 


« EPPHR * 


*. .* 




♦ . .* 




♦ . .♦ 














*. .* 




*, .* 




*. .* 






X 


itiiit*ittitniiti* ********* 




***************** 
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♦*♦»» 
*XJ * 


* NO 




♦ NO 






***** 
♦ XJ ♦ 










♦ B4* 
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••*•••«• xT 
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X 
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*XJ ♦ 
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.♦. 
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* * 
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* ♦ 


NO .♦ THIS AN *. 




.* IT A *. YES 
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.♦ WP.FO.SS ♦. YES 
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♦ GET ABSOLUTF * 
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*. TEST I/O .*. 
















* LUB AOno * 


♦. ENTRY .♦ 
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*. •* 
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♦ . .♦ 




* ♦ 


♦ . .* 




♦. .* 














♦ . ,♦ 




*4i*4<**:4c4'4<4:4c4<4:*^** 
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**** 
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♦♦♦♦ 



*♦** 

* * 
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* ♦ 
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4>««4t4rH I********** 

* * 
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* DEVICE PUB ♦ 

* ENTRY ♦ 

* ♦ 

4t4i4e«*4c4i****:4<****« 



ERROR 

ON 
3505 



3525 

READER OR 
. PUNCH . 



* * 

* B2 * 

* * 
**** 



YES .♦ 
...♦. 



,***i** 
.♦XJ ♦ 
.♦ F3^ 



H2 ♦. 
.♦ IS ♦ 

SEQUENCE 
CODE 100 



J2 ♦ 

♦ IS 

SEQ 

CODE 

110 



if***m(^it********** 



#*4(*4i**4t#*#***)|c*4c 



**♦♦♦ 

♦ XJ ♦ 

♦ FI + 



ACTI0N5 

FEEDSTK 



4c4t4c4[«*#«4c*«4c«««*<c 



H4 ♦. 

,* ♦ 

RO,FD,SS 

COMMAND 
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ONLY 

COMMAND 



tL:Hi*if*C^'i********** 

* TSOLATF ♦ 

* TeDMtNATION * 

* CnOF AND ♦ 

* <^EOUENCE CHOP ♦ 

* * 



FPROR 


*. YES 


T INITIAL 


.*. ... 


SELFriTON 


* 


*. .* 




*. .* 


X 


* NO 


***** 




*XJ ♦ 




♦ Dl* 




* * 




* 


x 


OCOMMDNB 


• *. 
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* *^ 




crw 


*. NO 


AHDRES^ 




VALID 


.* ' ' 'm 



***** 
*XJ * 
♦ G2* 



♦**♦* 

♦ XJ * 

* E3* 



♦*♦♦ 

♦ * 
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♦ ♦ 
**** 



♦♦♦»*K2 ********** 



«««:*******♦ ■((♦**)«(« 



**♦♦* 
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X 
**♦♦* 

♦ XJ * 
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* E3*ACTION3 
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Chart XI. $$RAST06 - 3505^ 3525, 3540 and 3886 Channel Check ERP (Part 2 cf 3) 
Refer to Chart 05. 
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A2 * 

* 
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*XJ * 
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:»*«*4t4;4>*4t*«*i»:i|'*** 
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***** 
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NO 
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* 


*, ,* 
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X 
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*XJ * 
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* 
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*****H2 ********** 
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* 
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-*- 
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*****«******4c**** 
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* * 
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**** 
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* ♦ 
**** 
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.* *» 
.♦ ANY MORE *. NO 
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*. .* 
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***4i*B4**** ****** 

* * 
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* AODPESS IN * 
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************«4[**« 



***************** 



*»***[)4********** 
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* * 
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TO FREE 
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*********** 



***** 
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292 DOS/VS Error Recovery and Recording Transients 



Chart XJ* $$RAST06 - 3505, 3525, 3540 and 3886 Channel Check ERP (Part 3 cf 3) 
Refer to Chart 05. 
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4t*4t**E3«********* 
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**** 
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«****F3********** 
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*CANCEL CHANNEL * 
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..X*USER + ACTIVATE* 
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.. . . 
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* * 


REFERENCES ***** 
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#«*#***«********* 
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. *4>*************** 
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**** • 




* * 
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4:4>** *-**** 
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X 
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* 
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* 
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##)|i4c*#4e********** 


4(4:*************** 


*X 
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**** 
XMSG X 

«****D4********** 

* SET UP TO ♦ 

* FETCH * 

* MESSAGE * 

* WRITER * 

* * 
4t4i#4t*«4t4'* ******** 



**** 
XFETCH X 

«#«**E4********** 

* * 

* POST FETCH * 

* PEOUEST IN ♦ 

* LINKFLAG * 

* ♦ 

«4c4c«:*>|t* ********** 



4r*4t*F44c******** 

* BRANCH TO * 
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* SUPERVISOR ♦ 

4c********4c***** 
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#4>***C'=) ********** 
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* LOAD LIST AND * 
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* MOO. FOR LOOP * 

4i#4c******** ****** 



.* IS *. 
THIS *. 
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♦*»**E5 ********** 

* POINT TO NEXT * 

* MODULE FNTRY ♦ 

* AND UPDATE ♦ 

* MODULE FETCH ♦ 
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4c**************** 



*****H1********** 

* * 

* POST I/O * 

* REQUEST IN * 

* LINKFLAG * 

* * 
*****4t*********** 



4c4c***H2********** 

* SAVE REGS * 

* 0-10 AND * 

* SET ESSAGE * 
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***************** 
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*-*-*-*-*-*-*-*-* 
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* » 
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SEO. 

CODE 
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**** 

* * 

* K5 * 

* * 

**** 



END 

OF 
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*** **f;5 ********** 

* * 

* DEFAULT * 

* TO FE'TCH * 
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* * 
***************** 
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*****H<S ********** 
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* * 
***************** 
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X 
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. 
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**** 
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**** 



**** 
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* F3 ♦ 

* * 
**** 



**** 

* * 

* E3 * 

* * 

**** 



**** 
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chart XK. $$kastO / - 2400 Tape Channel ChecX ERF (Part 1 of 2) 
Refer to Chart 05. 



PEFEftENCES ***** 
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* ♦ 

* $$RAST07 * 

* * 



4c4c4c4(4tBl ********** 
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PEG I STEPS 



4c«4c4<*4(«*4<4c4c4c4<4i:4t4:)|c 



ERR015 X 

4c*4t4i*B2 ********** 

* * 

* STEP INDEX * 

* TO NEXT * 

* ERPIB * 

* * 



ERP020 X 

* GET ERBLOC * 

* ADDRESS AND ♦ 

* CLEAR * 

* RTAIOB * 

* 4< 



****B4********** 

PUT ERROR * 

CCH ADDR * 

IN GR9 * 

* 



.* ALL 

ERPIRS 
*. TESTED 



NO .* THIS AN 
...*. ERPIB 

*. ENTRY 



MO .* RECORDED 
:..*. ON 

*. SYSREC 



NO .* PUB ♦ 
X...*. DEVICE TYPE 
♦EQUAL TAPE.* 



* * 

* A5 * 

* * 
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*.T0 PRINT .* 



* SET LOAD * 

* MODULE INDEX * 
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* * 



♦♦C3******* 

* * 
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TO CALL 
$$RAST10 
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**♦♦ 

* * 
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* ♦ 
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«4'***C4********** 

* * 
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* AS RETRY * 
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* ♦ 
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...♦. 
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• *• 
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*. .* 


X 


*• •* 
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* * 




*♦** 


^ 




X 
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♦ ♦. 


.*' 
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*e 


CHECK .*.. 


*. 


.* 




*. .* 




*. .* 
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X 




• *. 
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* *. 


NO .*' 
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....*. 
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• *. 
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ERR220 


.*. 




E2 *. 




* * 


.* 


LOAD 


*. 


THIS 


♦ . 


MODULE 




♦ . .♦ 




*. .* 




* NO 



4t4t*#4[f: 2 ****♦****♦ 

* ♦ 

* STEP INDEX * 

* TO NEXT * 

* MODULE ♦ 

* ID * 



3»:#H2 ******* 

* * 

* SET UP 

* TO LOAD 

* tSRASTGO 

•¥ * 

**** 

* J2 ♦.X. 

X 
**J2******* 

* * 

* POST FETCH 

* REQUEST IN 

* LINKFLAG 

* ♦ 



«*4i#K2********* 

* BRANCH TO * 

* RASTSCAN IN * 

* SUPERVISOR * 



E3 *. 

.* IS *. 

YES .* CCW READ *. 

...*, OR WRITE .*X. 

*. .* 

♦ , ,♦ 

*. .* 

♦ NO 



YES .* IS 
X..*. CCW 

*. NOP 



.*. 

G3 *. 

.* *. 

.* IS *. YES 

CCW .*.... 

*. TIC .* 



.* IS 

.* CCW 

.*. ROB 

*. 



4>4:*)|t*E4«:*«4t:^4t*«*4t 

* * 

* SET * 

* REPOSITION * 

* CCW TO * 

* FSB * 



♦ **♦♦ 

♦XL * 

* Bl* 



H3 *. 

.* IS *. 

.* CCW CTL *» NO 

*. OR MODE .*,.. 

*. SET .* 

*. .* 



X 
♦♦*** 
*XL * 
* Bl* 

* * 



REFERENCES* 
TG XKHA-: * 
XLFI, XLHS 



.X.X. 



ERR 160 X 

:^4c4i4c«|-|4'********** 

* SET UP HSG * 

* 0T12I * 

* UNRECOVERABLE * 

* CHANNEL ERROR * 

* ON X'CUU* * 
4i4c***4t*4c«***««*«4c 



* SET UP * 

* TO * 

* CANCEL * 

* 4t 



* * 

* B? * 



YES .* EQUIPMENT *. 
X..*. CHECK .* 

*. .* 



F5 *. 
.* CCW *, 
YES .* ADDR IN *. 
X..*. CSW 

*• •* 



* PUT ADDRESS * 

* OF ERROR CCW * 

* IN GR7 * 

* * 

♦♦♦* 



*♦** 
ERR040 X 

«*4t«*H5 ♦♦♦**♦♦♦♦* 

* * 

* FIND AND * 

* SAVE * 

* LUB INDEX * 
4> 4c 



4t4c4t*# J5 ********** 

* * 

* FIND ERROR * 

* CCB STARTING * 

* CCW ADDR * 

* IN GR9 * 
***************** 
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* A^ * 

* * 
**** 



STO *. YES 
STORED .*.... 
CCW .* 



***** 

ERR150 *XL * 

* Dl* 



Chart XL. $$RAST07 - 2400 Tape Channel Check ERP (Part 2 cf 2) 
Refer to Chart 05. 



REFERENCFS 
TO XLBl: 
XKF4, XKH3 



* CLEAR ALL ♦ 

* CODES ♦ 

* EXCEPT TERMS ♦ 

* AND RETRY * 



.♦ 



♦♦*♦ 
* 01 



00 * 

001 

.♦ 
. .♦ 
♦ YES 



*.X.X.* XK * 



ERR150 X 

* SET UP TO * 

* STO TO ♦ 

* USER CCW ♦ 

* * 

♦ *♦* 



♦ *** 

ERR153 X 



■ti^t**************^ 



.*. 








02 ♦. 








t * 






**«4t 




*. 


YES 


* 


WRITE 




*.... 


X* Dl ' 


.* 




♦ 


'. .* 






**** 


*. .* 








* NO 









*. READ 


*•... 


*. .♦ 




♦ , ,» 




♦. .* 


X 


* NO 


**»♦ 


♦*♦* 


* ♦ 


♦ * , 


♦ J4 ♦ 


* F2 ♦.X. 


» ♦ 


♦ ♦ , 


♦*♦* 


*♦♦♦ X 




ERR090 •*. 


ERR093 


F2 *. 


*#*4c4cF3*****4<***4' 


.* WAS ♦. 


* DEQUEUE * 


.♦ COMMAND ♦ 


NO * CCB AND ♦ 


*. CHAINED 


*..... ...X* FREE * 


♦• .♦ 


♦ ERPIB ♦ 



YES 



* SET UP * 

* MSG OTIOT ♦ 

* CHANNEL FRROR * 

* RECOVERY * 

* ON X»CUU» ♦ 
4c 4t4»|c4<*4t4>** ♦«***** 



***** 

♦ XK ♦ 

♦ A2* 



*****Q2 ********** 

* * 

* GET NEXT CCM * 

* ADDRESS AND ♦ 

* SAVE FOR * 

* RESTART * 
*iit**** *********** 



***************** 



X 

♦ ♦♦*♦ 
*XK ♦ 

♦ A2* 



C4 *. 

.* ♦. 

YES .♦ T 00 *. 

...♦. P 11 

♦ . .* 

*. .* 

♦ . .* 
* NO 



T 


00 


*. 


YES 


R 


100 

.♦ 


,♦* 


*.. .. 


* 


. .* 




X 




* NO 




**** 








* 
* 01 



. .♦ 

* YES 



*. 



• *. 
K2 
,♦ 
NO .* IS ♦. 

,..*. NEXT .♦ 

*. COMMAND .* 
♦. TIC .* 
♦• .♦ 
* YES 



*****j2********** 

* * 

* GET * 

* RESTART * 

* FROM * 

* TIC * 
*************^*** 





ERRllO .♦. 




H4 *. 




.* 




.♦ CONTROL 




♦. COMMAND 
♦ . 








♦ NO 




**** 




« * . 




* J4 *.X. 




* ♦ . 




*♦♦♦ X 


ERR145 


ERR140 .*. 


*****J2,********** 


J4 *. 


* * 


• * 


* SET UP FOR * 


YES .* 


♦ WRITE ENTRY *X.. 


*. WRITE 


* BSB-ER6-TIC * 


*. RETRY 



* ♦ 

* F2 * 

* in 
**** 



**** 

* * 

* Dl * 

* ♦ 
**** 



***** 

*XK * 

♦ H4* 

» * 



**1r********iti***** 



**** 

* * 

* El * 

* ♦ 
♦*♦♦ 



* * 

* SET UP FOR * 

* READ * 

* RETRY * 
» SPACE-TIC ♦ 
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chart XM. $$RAST08 - Machine Check/Channel Check Record Writer (Part 1 of 3) 
Refer to Charts C^ and C5. 



* $$RAST08 * 

**r^^t ********** 



MATNOO 

*:ti**^tQl*m******** 

*INITOO XN* 

♦_♦_♦_♦_*_♦-♦-*_♦ 

* INTTIALTZE * 

* PHASE * 

* * 
***************** 



♦ROHOOOO XN* 

♦ _*_t- *-♦-♦-*:-♦-♦ 

* READ HEADER * 



**t**^2***'>'***'i'**- 

* WRTRECOO XN* 

* WRITE FIRST ♦ 

* RECORD * 

* ♦ 

***************** 



82 *. 
* I/O ♦. 
ERROR ♦ 
ON FILE 



IN20 X 

*****f^'^********** 

♦WRTRECOD XN* 

* WRITE A * 

* RECORD * 

* » 
***************** 



*-t,*^*t****** 



.*. 

Dl ♦. 

.♦ I/O ♦ 

EP'^OR ON 

RECORDER 

. FILE 

*. .* 

*. .* 



*****(. l*-^******** 

* COPY FIRST 80 ♦ 
♦BYTES OF RECORD* 

* AS SET RY * 

* $*DAST01 ♦ 

* * 
*i^***t*********** 



CHANNEL 

CHECK 

.CONDITION. 



***Q I********** 

RESTORE * 

CHANNEL CHECK * 

SEGMENT TO * 

NTERFACE AREA * 



MORE 
THAN ONE 
. RECORD 



«:4c4*4tD2 ********** 

* LOAD REG If * 

* WITH ADDR OF * 

* LOGOUT AREA * 

* FOR RECORDS * 

* 2~X * 

**:ti************** 



B3 ♦. 
I/O * 
ERROR 
ON FILE 


• .* 
*. .♦ 
* NO 



C3 *. 
.* LAST ♦. 
RECORD * 
WRITTEN 



EXITOO X 

*****D^St********** 

♦ WRTHDROO XN* 

* REWRITE * 

♦ HEADER * 

* * 

*********i******** 



* B4 ♦.X 
« ♦ 

**** 
EXIT05 X 

**B4******* 

* SET OFF * 
* RTA OWNS 

* FILE SWITCH 

* ♦ 

*********i** 



*****C^********** 

* ZERO REG 3 * 

* FOR $$RASTOO * 

* FETCH * 



***************** 



**Q/^******* 

* TURN OFF * 

CHANNEL 
CHECK BIT 
IN LOOISLOT 

* * 
*********** 



*****05 ********** 



***************** 



***************** 



***************** 



*_♦_»_♦_♦_♦_*_♦_* 

* GET NEXT * 

* AVAILABLE * 

* RECORD AREA * 
***************** 



.* EMERGENCY 
. SITUATION 



.* 
• * 
YES 



EXIT15 
,*' 



ANY 
MESSAGES 
SCHEDULED. 



YES 


.* 


ERROR 


* 


...* 


.ON 


RECORDING 






*. 


*, .♦* 

♦ . •* 
* NO 


* 



**P'^******* 

* * 
POST 

StPASTll 
ACTIVE 

* * 

*********** 



4i4>*«*G4********** 

* * 

* POST 'S* * 

* (X«E2') IN * 

* CORE BYTE 2 * 

* * 
***************** 



«AIN10 

*****m********** 

*NEXTAVOO XP* 

* GET NFXT * 

* AVAILABLE * 

* RECORD AREA * 
***************** 



**** 

* * 

* 84 * 

**** 



H2 *. 
.* MORE *. 
* RECORDS 

AFTER THIS 
*, ONE 
*. .* 
*. .* 



**J2******* 

* RESET * 
MULTIPLE 

RECORDS 
SWITCH 

* * 
*********** 



.* EMERGENCY *. NO 

CHANNEL .*....X, 
*. CHECK .* 



*****jif********** 

* LOAD A 2 IN * 

* REG 3 FOR * 

* $$RAST02 *. 

* FETCH * 



EXIT20 

*****(;iy ********** 

* INDICATE * 

* FETCH * 

* REOUEST IN * 

* LINKFLAG * 

* ♦ 
***************** 



4c 4c«*H5 ********* 

* BRANCH TO * 

* RASTSCAN IN * 

* SUPERVISOR * 

*************** 



***************** 



**** 

* * 

* A3 * 
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Chart XN. $$RAST08 - Machine Check/Channel check Reccrd Writer (Part 2 cf 3) 
Refer to Charts 04 and 05. 



♦ INITOO * 



INTTOO X 

♦ POST •*• * 

♦ fX'ClM IN ♦ 

♦ CORE BYTE 2 * 



REC. 

FILE 

EXISTS 



♦ . NO 



X 
***** 

♦XM * 
♦ 05* 



****f^2********* 

* * 

* WRTRECOO * 
*ili************* 



MRTRECOO X 

*****iQ2********** 

♦ MOVE LOGOUT ♦ 
♦fOR THIS DEVICE* 

♦ TO RECORD * 

* UPDATE LOGOUT ♦ 

* ADDRESS ♦ 
***************** 



*****C2********** 

* SET CCW WITH ♦ 

* PROPER LENGTH ♦ 

* AND SET TO * 

* WRITE COUNT f ♦ 

* KEY. DATA ♦ 
***************** 



*****Q I ********** 



*****itc*********** 



*****£ l**ti******* 

♦ POST FLAGS * 

♦ FOR $$RASTOO ♦ 

♦ IF EMERGENCY ♦ 

♦ SITUATION ♦ 

♦ * 
***************** 



rNIT05 

*****fl********** 

*SET REG 4 WITH * 
♦ADDR OF LOGOUT ♦ 
*AREA FOR FIRST ♦ 

♦ CHAN CHECK ♦ 

* RECORD * 
***************** 



.*. 

Gl *. 

.♦ ♦. 

.*CHAN CHECK *. 

*. CONDITION . 

*. .* 

*. .♦ 

*, .* 



*****\il*******nf** 
*SET REG 4 WITH ♦ 
*AODR OF LOGOUT * 

♦ AREA FOR * 

♦ MACHINE CHECK * 

♦ RECORD 1 * 
***************** 



*****02********** 
♦SET CCW SEARCH * 

* ARGUMENT, SET ♦ 

* SEQUENCE NO. ♦ 
♦IN RECORD AREA * 

* ♦ 
***************** 



*****f^^********** 

* * * * 

* ♦ BALR TO ♦ ♦ 

* * RASTSCAN ♦ ♦ 

* ♦ FOR I/O ♦ ♦ 

* ♦ * * 
*m***i************ 



.♦ ♦. NO 

♦.UNRECOVERABLE.*.., 

*. I/O .♦ 
♦.ERROR.* 



*****Q-i********** 

* POST * 

* UNRECOVERABLE * 

* I/O ERROR IN ♦ 

* RASMSG2 OF * 

* RAST TABLE ♦ 
***************** 



*****Qli*********i 



***^i************i 



♦ E2 ♦.X. 



♦♦*♦ . 
lOREQOO X 

nt*E2*****'*^* 

* POST * 

♦ ACCEPT ♦ 
♦ UNRECOVERABLE 

♦ I/O ERROR ♦ 

♦ IN RASTAB ♦ 
*********** 



.♦. 
F2 ♦. 

.♦SYSTEM *. 
♦ BEING 
TERMINATED 



****f^^********* 

* * 

* WRTHOROO ♦ 

* * 
*************** 



WRTHOROO X 

*****f^s^********** 

* CHANGE CCW ♦ 

* TO WRITE ♦ 

* COMMAND ♦ 



***************i** 



****f^S ********* 

* * 

* RDHDROO ♦ 

* * 



♦ SET UP CCW TO ♦ 

♦ READ/WRITE ♦ 

♦ HEADER ♦ 

♦ ♦ 
*****:************ 



♦ E2 ♦ 

* * 
**** 



****I^Ti********* 

♦ RETURN TO * 

♦ CALLER ♦ 

♦ ♦ 
*************** 



lOREQlO 

*****f^*********i^ 



****jl***iit***i^if 

♦ RETURN ♦ 

♦ TO CALLER ♦ 

♦ ♦ 
*********im**^f:i. 



.* 



:(i4c4i«i4>G2 ********** 

♦LOAD ADDRESS OF^ 

♦ RTAIOB IN REG ♦ 

♦ 8, SET UP FOR ♦ 
♦RAS I/O ROUTINES 

♦ * 

****************if 



*4i#*4eH2 ♦♦**♦♦♦*♦♦ 

♦ POST I/O ♦ 

♦ REQU€ST 10 IN ♦ 

♦ RTAIO. POST * 
♦I/O REQUEST IN ♦ 

♦ LINKFLAG ♦ 

****** ***:*i*llf***** 



♦ A3 ♦ 

* * 
♦♦♦♦ 



**i*************-^* 



**** 

* * 

* F4 ♦ 

* ♦ 

♦ 4c** 

X 

.♦. 

F4 ♦. 

.* *. 

• RECORDING *, 
SUCCESFUL . 

♦ . .♦ 

*, ,♦ 
*. .* 



*****H3**^^^^^^^^ 

♦ ♦ 
♦POST EMERGENCY ♦ 

♦ I/O IN ♦ 

♦ LINKFLAG ♦ 

♦ * 
***************** 



***4i*J3*4c***«***4t 

♦ ♦ BALR TO ♦ ♦ 

♦ ♦ RASTSCAN ♦ ♦ 

♦ ♦ FOR ♦ ♦ 

♦ ♦ EMERGENCY ♦ ♦ 

♦ ♦ I/O * * 
***^****^t**iHitt***^t 



I0RE015 X 

^^****^^*1^*^itt***** 

♦ POST ♦ 

♦ UNRECOVERABLE ♦ 

♦ I/O ERROR IN ♦ 

♦ RASMSG2 OF ♦ 

♦ PAS TABLE ♦ 
4[*******4i***4t*4c** 



***injif*******m* 

* RETURN TO * 

* CALLER ♦ 

* * 
*«***4t*«*****4t« 



t:iti^c*ilfQH ********** 

* POST •!• * 
*(X«C9«) IN LOW ♦ 

♦ CORE BYTE 2 * 

* (RECORDING ♦ 

♦ INCOMPIETE) * 
**:4E**4<***«4t**«4t** 



«](t**H 5 ♦♦*♦♦♦♦♦♦ 

* RETURN TO * 

* CALLER * 

* * 
^**m*********** 
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Chart XP, $$RAST08 - Machine Check/Channel Check Eecord Writer (Part 3 of 3) 
Refer to Charts 0^ and C5. 



♦ NEXTAVOO ♦ 

* * 



NEXTAVOO X 

♦ GET OVERHEAD * 

♦ FACTOR FOR ♦ 

♦ RECORD * 



4i4e4e*4i**4>«4>*«>K*«#*i 



* CALC TOTAL ♦ 
♦RECORD LENGTH, * 
*GET BYTES LEFT ♦ 

* ON TRACK * 

* * 



«♦« 

,* *. 
.♦ RECORD ♦. YES 
♦.FITS ON THIS .♦...• 


NEXTAV25 

♦ ♦ 

♦ STORE BYTES ♦ 
...X^ LEFT ON ♦ 


♦. TRACK .♦ 

♦ . .♦ 
♦. .♦ 
♦ NO 

I 
4c##4c#E2 ♦♦♦♦♦♦♦♦♦♦ 

♦ UPDATE TRACK ♦ 

♦ AND CYLINDER ♦ 

♦ ADDRESS AS ♦ 

♦ NECESSARY ♦ 


♦ TRACK ♦ 

♦ ♦ 

<<*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

E3* *♦. 

.♦' WITHIN *♦. 

♦. SYSREC .♦ 

♦. EXTENT .♦ 



4c4t«4t4(4c^*^*4<**^4<«^ 



E4 ♦. 

.♦ ♦. 

* LAST ♦. 

TRACK 
*. REACHED .♦ 
♦ . 



♦ , 



♦ NO 



* POST ♦ 

♦ LAST TRACK 
.X^ IXHO«» IN 

♦ RASMSG2 

♦ ♦ 



>(<4t4>4c^F3^^^«^^^**^ 
♦POST FILE FULL ♦ 

♦ (X«2D'J IN ♦ 

♦ RASMSG2 ♦ 

♦ OF RASTABLE ♦ 

♦ ♦ 



NEXTAV35 

**4<^^F4^*^^«****^ 

♦ MOVE SEEK ♦ 

♦ ADDRESS TO ♦ 

♦ WORK AREA ♦ 

♦ UPDATE LAST ♦ 

♦ RECORD ID ♦ 



♦♦♦♦G3*^^*^*4c*^ 

♦ RETURN TO ♦ 

♦ CALLER ♦ 

♦ ♦ 
HHiHilf *********** 



****Q^********* 

♦ ♦ 

♦ RETURN TO ♦ 

♦ CALLER ♦ 
*************** 
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chart XQ. $$RAST09 - Dynairic Eeallccaticn cf Partition (Part 1 of 3) 
Refer to Chart oa. 



♦♦♦♦A2********* 

♦ ♦ 

* S$RAST09 ♦ 



*«4t**B2 ********** 



4r4t*4i«««4i4t*4<4>«***4c 



*****cz********** 



**** 

* * 

* * 

**** 



♦REALLOC XS* 
♦-♦-*-♦-*-♦-♦-♦-* 

♦ REALLOCATE * 

♦ PARTTTTON * 

♦ ♦ 



SIZEPEAL X 

4c4[4t*«B') **♦*♦*♦♦♦* 
♦REALLOCl XS* 
*-♦-♦-*-*-*-*-♦-♦ 

* SET NEW * 

* HIGH BOUNDARY * 

* ♦ 

^*:/t' ******** ****** 



RELOCATE 
CCW 



^iif*************** 



* CALCULATE ♦ 

* VIRTUAL ADOR ♦ 

* CORRESPONDING * 

* TO FSA ♦ 

* * 
i^,tif*******t^******* 



$tlff^2******* 



*4>**4'4(4>««4t4' 



VIRTUAL 
ADDRESS = 
. REAL 
♦.ADDR».* 



«:##«*G2 ********** 

*OPAPACTl XR* 

♦_»_♦-♦_♦_♦-♦_*-* 

* DEQUEUE * 

* PAGE FRAME * 

* * 

«4r4c4'*****«******* 



*4c*4<*H2 ********** 
*SET PAGE TABLE * 

* ENTRY INVALID * 

* (IN DRAPACT2 * 

* ROUTINE, NOT * 

* DOCUMENTEDJ * 

i^'^tiJlCilttl******llflti*** 



4c4e«4:*J2 ********** 
*FINDPART XS* 
♦-*-*-*-*-♦-*-*-♦ 
*FINO PARTITION * 

* CONTAINING ♦ 

* FSA ♦ 
4i*4i*#4<*********** 



K2 



*. 



NO 



*. 



* FSA IN *, YES 

...*. PAGE FRAME .*.... 

♦RELEASED BY* 

*.SIZE -* 

X *. .* X 

*♦** * **** 



* 84 * 

* * 
**** 



.X* SAVE FSA 

* 
♦ 



*4:*»4cG3********** 

*SET PAGE TABLE * 

* ENTRY INVALID * 

* (IN DRAPACT2 * 

* ROUTINEf NOT * 

* DOCUMENTED! * 
^tm*************** 



ti****H3********** 
*FINOPART XS* 

*-*-♦-*-*-*-*-♦-♦ 
*FINO PARTITION * 

* CONTAINING * 

* FSA * 
*if*************** 



Hf****J-i*****1f't:*** 

*REALLOC XS* 

*-*_♦_♦_♦_♦_*_*_* 

* REALLOCATE * 

*THAT PARTITION * 

* * 

**1f:tC**^****itHfi***t^ 



4i*4c4t*K3********** 
*FREEREAL XS* 
«-4i-*-«-]|i _♦ _♦-♦ _♦ 

* FREE PAGES * 

* IN UNUSEA8LE * 

* PART * 
*4>*4t**«**4t«4i«***4c 



* C4 *.X. 

* * 
»*** 

X 

i|c*«4>*C4********** 

* * 

* GET BOUNDARY ♦ 

* OF REALLOC. * 

* PARTITION * 

* * 
m**************** 



4t4E***D4****«***** 



**^c^****3iiifm****** 



i^ii^^^'E^********** 

* * 

* GET SIZE * 

* OF REALLOC. * 

* PARTITION * 

* * 
4t#4i4e****#4t*****>ti* 



«4t*«)ti;p44c***4c#*4t** 



**^Hf*****:ti0**HtiHitsm 



■tt****(^^********ilc* 

* * 

* GET ADDRESS ♦ 

* OF ERPIB * 

* QUEUE * 

* * 

«4c*4<************* 



65 * 


, 


* 


X 


**** 


**** 
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Chart XR. $$RJ^ST09 - Dynairic Reallocation of Partition (Part 2 of 3) 
Refer to Chart 04. 



***** 








**** 


♦XQ * 








* * 


♦ G4* 








* 83 ♦ 


* 4< 








♦ ♦ 


* 








♦*♦♦ 


xl 








' 


LOG LOOP X 








X 


4t4t«#4cg2 **4>4'***4'4^* 


:ti^f***Q'ilf********* 


* 


♦ 




* 


BALR TO ♦ ♦ 


* GET PUB 


♦ 




* 


RASTSCAN ♦ ♦ 


• ADDRESS FROM 


* 




* 


FOR » ♦ 


* ERRPIB 


* 




* 


I/O ♦ ♦ 



«*4i**«««4i*4t4>**4c«* 



ti*^i:ti*Q2*****'***** 



4r4(4c*«**«*4>4t*4<««>»t4' 



*jti**^,^**^t******* 



♦ * 

♦ RESTORE RAS * 

♦ TABLE ADDR ♦ 

♦ fmn SAVERl * 

♦ * 
*****ii*******it^** 



,lHt*Hit03********** 

♦ TURN * 
*OFF i$RAST09 - * 

* IT HAS I/O ♦ 

♦ OUTSTANDING ♦ 

* BIT * 



****f^ if********* 

* * 

* DRAPACTl ♦ 



♦ GET PAGE ♦ 

* FRAME TABLE * 

♦ ENTRY * 

* * 

**itt***Ttt*m******** 



C4 ♦. 
.♦ *. 

PAGE ♦• 

FRAME IN .♦, 
QUEUE .♦ 



*• 



*. 



itt0^*ttO4f********** 

* * 

* RESTORE * 

* PAGE FRAME * 

* TABLE ORIGIN * 

* ♦ 
***************** 



*****C5********** 

* REMOVE * 
X* PAGE FRAME * 

* FROM QUEUE * 

* * 

**iii********m***** 



*m03******* 

* * 
* SET PAGE 

* FRAME TABLE 
♦NOT IN QUEUE 

* 4> 

*m********* 



* INDICATE ♦ 

* $$RAST09 ♦ 

* HAS I/O * 

* OUTSTANDING ♦ 

* * 



t****Q2 ********** 

♦ * 

♦ MOVE ADDRESS ♦ 

♦ OF FIRST CCW * 

♦ INTO RTAIOB ♦ 

♦ ♦ 
HcHiitiilti^jlii*******^*^* 



****H2 ********** 

SAVE THE ♦ 

PAS TABLE * 

ADOR AT ♦ 

SAWEPl * 

* 

tmnc^i************ 



4i****j2********** 

♦ * 
♦SET REQUESTOR' $♦ 

♦ ID (X'05«) ♦ 

♦ IN RTAID ♦ 

♦ ♦ 
t**************** 



♦ * 
POST T/O 

REQUFST IN 
LINKFLAG 

♦ * 



EXITRTN 

*it'***E3********** 

♦ PREPARE TO ♦ 
♦FETCH $$RASTOO ♦ 

♦ POST FETCH ♦ 

♦ REQUEST IN ♦ 

♦ LINKFLAG ♦ 
nc**************** 



**^t^f3*jtiHt1f*lHf** 

♦ BRANCH TO ♦ 

♦ RASTSCAN IN ♦ 

♦ SUPERVISOR ♦ 

^f^i^^c***4t******* 



♦ RETURN TO ♦ 

♦ TABLES ♦ 

♦ CALLER ♦ 

iHtL**:tHf********)tt 
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chart XS. $$RAST09 - Dynairic Reallccaticn cf Partiticn (Part 3 of 3> 
Refer to Chart OM. 



* REALLOC * 

* ♦ 



♦♦**A2********* 

♦ REALLOCl ♦ 

♦ ♦ 



♦♦**A3********* 

♦ * 

* FREEREAL * 

* 4< 4c 4t ♦ 4c 4i« ♦* *♦ 4> * 4c 



* ALIGN FSA ♦ 

* TO 2K * 

* BOUNDARY ♦ 

* * 
41 4c4r 4< ♦ 4c 4r 4c4> 4t 4ii* 4>4( ♦ ♦ 4> 



4c4'4'4c4cC l**4t»*«***4i 
4c * 

* CALCULATE ♦ 

* SIZE OF * 

* UPPER PART * 
4t 4c 
4c4t4c*4c4'4! 4c4c4i «4<4c4c * *4c 



4i4c«4'*DI**4c*4c4i*4c4c# 

* 4c 

* CALCULATE * 

* SIZE OF * 

* LOWER PART * 
4c 4t 
4c4ii^4c4c4c4c4<«4t4i4<4c4e4'«4c 



4<4c4c4c*F14>*4<«4c4'***4' 

* 4> 
♦HOVE PARTITION * 

* NAME TO ♦ 

♦ MESSAGE * 

♦ 4c 
4<4c4'4c«4c4c4c*4c4c*4c4i««4< 



* ALIGN FSA ♦ 

* TO 2K * 

* BOUNDARY * 

* * 
:^ 4c4c * 4c * 4c 4c 4> 4> 4c 4c 4c * 4c 4c 4c 



4c4c4'4c«C2 4c*4c4i4c4c«*4i4c 

* 4c 

* CALCULATE 4c 

* SIZE OF * 

* PARTITION * 

4c 4c 

4i4c 4c4c « « 4c *4c 4> 4c4t4< 41 4c4>4c: 



«4c4c4c 4c02 *4c«4c4c4c 4>*4c4c 
4c * 

♦MOVE PARTITION ♦ 

♦ NAME TO ♦ 

♦ MESSAGE ♦ 

4c 41 

4e*4c4>4c4c««4c*«**^4>^^ 



.♦ LOWER ♦. 
.PART GT UPPER, 
♦ . PART .♦ 



« 4; 4r 4c 4c 4c 4c 4c 4c 4i 4c 4c 4c 4c 4c 4c 4( 



4c4c4c4cF 2 ♦♦♦♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLER ♦ 
4c 4t 

*4:4'4<4c4c4c*4c4c4c4(4c4c4c 



4: 4c 4' 4c 4c 4: 4c 4c 4c 4e 4: 4c 4(4: 4c 4c 4c 



.♦ LOW ♦. 

.PART GT UPPER. 
♦, PART .♦ 



4c*4c 4c 4c03 ♦♦♦♦♦♦♦♦♦♦ 
4: 4c 

♦ FREEREAL OF ♦ 

♦ PAGES IN ♦ 

♦ LOWER PART ♦ 

4> * 

4(4c4c4c4c4c4!4t4c4c4c4c4c*4c*4' 



♦ RETURN TO ♦ 

♦ CALLER ♦ 
4< 4" 

4c4c4c4c4c4c4c4c4c4c4c4c4c4c4: 



4c*4c*4cC ^♦♦4c4c«:4<4c4<4c4c 

♦ * 

♦ FREEPEAL ♦ 
X* OF PAGE"^ ♦ 

♦ IN UPPER PART ♦ 

4c 4c 

4c 4c 4e 4c 4c 4c 4c 4c 4i 4c 4c 4c 4c 4c 4c 4c4c 



4c4c*4c4c:G !♦♦♦♦♦♦♦♦♦♦ 



4c4c 4c 4> 4c4c 4c 4c 4c4> «♦♦ ♦ 4c4c4c 



«*4c4c4cH !♦♦♦♦♦♦♦♦♦♦ 
4c * 

♦ SET NEW ♦ 

♦ SAVE AREA ♦ 

♦ ADDRESS ♦ 

4c 4c 

4c4c4c4c4c4c4'4c4c4c4<^^4c4c4c« 



4c4c4c4tJ14c«4c4'^^^^4c 

♦ RETURN TO ♦ 

♦ CALLER ♦ 
4c * 

4c 4c 4c « 4c 4c 4c4c 4c 4< 4c4c ♦ ♦ 4c 



4c4c4c4cG3^^^^^^^*^ 

4c * 

♦ FINOPART ♦ 

4c * 

4c 4c 4c 4c 4c 4c 4c 4c 4c ♦4c 4c 4c 4 4: 



♦ LOAD BEGIN ♦ 

♦ AODPESS OF ♦ 

♦ REAL PART. * 
4c 4ci 
4c 4c 4c 4c * 4' 4c 4c 4c ♦ 4c 4c 4c 4c >tc 4c ♦ 



4: 4c4c 4c 4c J 44c 4c ^41 4c 4c 4c 4c 



4c ♦4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



4c4c4c4cK3 ♦♦♦♦♦♦♦")< 4c 

* 'RETURN TO ♦ 

♦ CALLER * 

4c ♦ 

4c4c4c4c4c4c4c4c4c4c«4c4c4c4c 
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Chart XT. $$RAST10 - ERP Message Writer (Part 1 of 3) 
Refer to Chart 05. 



* * 

* SSPASTIO ♦ 

* ♦ 



♦*♦♦ 

* ♦ 

* B3 ♦ 
***♦ 

.X* 



* SET UP ♦ 

* BASE ?!EGS ♦. 

* USAr,E GET ♦ 

* LUR POINTER * 



* GET ADDRESS * 

* OF ERPIB * 

* QUEUE ♦ 

* * 



* UPDATE TO ♦ 

* NEXT ERPTB * 

* ENTRY * 

« « 



*****f ]^#itc4:4i4c«4c«4i* 



)«c 4c « 4c 4c 4( 't' ♦ ♦ * 4< * 4c 4t ♦ ^ 34c 



.♦ ERPIB *. YES 
♦.SCAN COMPLETE.*.... 

♦ . .♦ . 



♦ ♦♦** 
*XU * 
» B2* 



* SYSLOG ♦. NO 
ASSIGNED TO .*. .. 
*. CONSOLE .* 
*DR INTER* 



♦ *** 

* Fl *.X. 



.* ACTION *. 

♦MESSAGE POSTED, 

*.IN ERPIB .* 

*. .* 



«4t*4c 

♦ * 

« 83 * 

* * 

***♦ 



4i*4c4c4cG2 ********** 

* * 

* UPDATE TO * 

* NEXT ERPIB * 

* ENTRY * 

* * 
4c4c*4c««4r4<4c*4i4c4c4'*4c4c 



♦♦** 

* ♦ 

* El * 

* * 
*♦** 



4c**4c4c«4c*4c4c4(****4c4: 



4t«:4>*4cp3*«;#4>4c*4c*** 

* * 

* POST CANCEL * 

* CODE IN FIRST ♦ 

* BYTE OF ERPIB * 
4c 4i 
4e4c4c4i4c4c4c4c4c4c4c4c4>*«c*4c 



4:«4i**G3** ******** 

* * 

* ACT TV ATE ERP * 

* IN LOADLIST * 

* BY MOVING IN * 

* X«BO» * 
«4i4i4< 4c 4:*** **«****«: 



.* *. 

SO .* ERPIB TO *. 
..*. BE FREED 

*. «* 



* CLEAR ERPIB * 

* TO BINARY * 

* ZEROS * 

4c 4c 

4c 4c4c4c4>4c4c ** 4c4<*4c4c4t4c4c 



4c4c*:**G4********** 

* 4c 

* HOVE X'FE« * 

* INTO FIRST * 

* BYTE OF * 

* ERPIB * 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c«4c*4c 4c 4c 



SYSLOG 


4c 


YES. 


PUB IN 




♦ . .X. 


EPRQ 


4c 




.* 






*. .* 




X 


* NO 




4c*4t* 

4c 

* B3 


X 




4: 


4c 4c 4c 4c 4: 




4t4c4c* 


*xu * 






* Bl* 






4c 4c 






4c 






PELOCATE 
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Chart XU, $$RAST10 - ERP Message Writer (Part 2 cf 3) 
Refer to Chart 05. 



PEFERENCES 
TO XUB2: 

XTC3, xyn*? 



♦ XT * 

♦ HI* 



♦ *♦* 

♦ * 



* RELOCATE ♦ 

* CCW ♦ 

* ADDRESSES ♦ 

* * 



O^^t^Cl********** 



* 


GET ADDRESS 


* 


* 


OF ERP IB 


* 


* 


QUEUE 


* 


* 




♦ 


«4c4:*««4c«4<4e«4i4c4<«*« 


*♦♦* 






* 


♦ 






♦ 


01 *.x 






<i 


4i 






**♦♦ X 




FPIBSCAN .*. 






Dl *. 






.♦ ♦, 






.♦ ERPIB ♦ 




* 


.MESSAGE SCAN 
♦.COMPLETE .* 


.* 




♦ . 


«* 





* SET UP TO 

* FETCH 

* $$PAST02 

* 



* PUT REQUESTER ♦ 

* ID FROM ERPID ♦ 

* INTO REG 3 * 

* ♦ 



♦ INDICATE * 

♦ FETCH REQUEST * 

♦ IN LINKFLAG * 

♦ * 
^c^t^^^* ♦♦♦♦*♦♦*♦*♦ 



♦ BRANCH TO ♦ 

♦ RASTSCAN IN * 

♦ SUPERVISOR * 

t^c** ***«♦♦♦♦♦** 



♦ * 

♦BREAK EXISTING ♦ 

♦ CCW CHAIN * 



^^i^^^^^^^^^^^^*** 



.♦ ANY *. > 


rES 


♦. MESSAGES .♦. 




♦, POSTED .♦ 




*. .♦ 




♦ , ,♦ 


X 


♦ NO 


♦♦♦♦ 


♦ ♦♦♦ , 


♦ 


♦ XV ♦ 


♦ B4 


♦ C4 ♦.X. 


♦ 


♦ ♦ . 


♦♦♦♦ 


♦♦♦♦ 




NOMSO X 




*4c*#4cp I «*#:<( ^('♦♦♦♦^ 




♦ ♦ 




♦ UPDATE TO ♦ 




♦ NEXT ERPIB ♦ 




* ENTRY ♦ 





4c**4i4<^^^^^^ ♦♦♦♦♦♦ 



♦ ♦♦♦ 

♦ * 

♦ Dl ♦ 

♦ ♦ 
♦♦♦* 



ACTNRTN 

♦ CALCULA"^F * 

♦ DISPLACEMENT ♦ 

♦ INTO MESSAGE ♦ 

♦ TABLE FOR ♦ 

♦ REOUESTEP MSG ♦ 



♦ ♦ 

♦ POINT TO INFO ♦ 
♦ABOUT REQUESTORS 

♦ MESSAGE IN ♦ 

♦ "EG 6 * 



♦ * 

♦ STORE MES'^AGE * 

♦ LENGTH IN ♦ 

♦ CCW ♦ 

♦ * 
^^^(♦♦♦^■♦♦♦♦♦♦♦♦♦S 



* * 

* RELOCATE ♦ 

* MESSAGE ♦ 

* ADDRESS ♦ 

* IN CCW * 
««♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦♦♦♦♦ 

♦ XV ♦ 

♦ &?♦ 
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Chart XV. $$RAST10 - ERP Message V^riter (Part 3 of 3) 
Refer to Chart 05. 



***** 

* * 
* 


**** 

* * 

* B3 ♦ 

* ♦ 
♦**» 


* 


.* . •••••..X. 




X 


X 
i)t**^*S,2 ********** 

* SAVE ERPIB ♦ 

* MESSAGE BYTE * 

♦ IN MESSAGE * 

♦ TABLE ♦ 

***Hii^***ii*:t:****** 


.CHKMPS .*. 

83 ♦. 

.♦ * 
.* MPS 
*. SUPERVISOR 

♦ . 

♦ . .* 
*. .* 



iti*iliile*Q2********** 

♦ * 

♦ CLEAR THE ♦ 

♦ MESSAGE BYTE ♦ 

♦ IN THE ERPIB ♦ 

♦ * 



.* CHANNEL ♦. N 
♦.AND UNIT NUM-.*, 
*. BEPS IN .* 

*. MSG .* 



**ylf**£2**** 



***** 



* OFT DISPLACE- ♦ 
♦WENT OF CUU IN * 

* MESSAGE FROM ♦ 

* TABLE * 
***-t^*iiit********** 



♦ * 

♦ GET PUB AODR ♦ 
*0F INTERRUPTED * 

♦ TASK FROM ERPIB* 

♦ * 
j^-^**^m*********** 



^:^t**G2********** 

* * 

* MAKE CHANNEL ♦ 

* AND UNIT ♦ 

* NUMBERS * 

* PRINTABLE * 



«4i4i«4cH2 ********** 

* * 

* MOVE NUMBERS * 

* INTO THE * 

* MESSAGE * 

* * 
«4'*«************4c 



♦♦»♦ 

♦ * 

♦ Bl * 

♦ ♦ 
♦♦** 



**«4:*C3********** 



***************** 



Jll*^t,li1fQ^*::tiitf******* 

* * 

* PUT PARTITION * 

* ID IN * 

* MESSAGE * 

* * 
«*4<************** 



**** 

♦ * 

♦ B4 ♦ 

♦ ♦ 

**** 

X 

* * 
♦RESET $SRAST10 ♦ 
♦OUTSTANDING I/O* 

* BIT * 

* * 
***^*^t*********** 



C4 ♦• 

• * *. 

ACTION 

TYPE 

. MESSAGE . 

♦ . .* 

♦ . .* 

* YES 



***** 

♦ XU * 

♦ Fl* 



ERPIB * 
TO BE 
FREED .* 
,* 


'* 


YES 
• . .* 


.* 
'♦ 


UNIT *. 

EXCEPTION .* 

> • * 
*. .* 


*. .* 
* YES 




X 

**»* 

* * 

* J4 * 

* « 
♦ *»* 






*. .* 
* NO 



4e4c**4<F3********** 

* CLEAR ERPIB * 

* TO BINARY * 

* ZEROS AND * 

* MOVE X«FE' * 

* FIRST BYTE * 

iltii[:$:*:^Htm**** ****** 



* * 

* MAKE OPERATOR * 

* RESPONSE * 

* UPPER CASE ♦ 

* CHARACTERS * 

^3****:^*********** 



*PUT ADDRESS OF * 

* CCW CHAIN * 

* IN I/O BLOCK * 

* ♦ 
4e4<4c «4i4c4t*« 4c4i **** * * 



^ll:]!!***!!!***^!****^!* 



♦ ♦ 

♦ POINT TO * 

♦ LOADLIST * 

♦ ENTRY IN * 

♦ RASTAB ♦ 

«*4i*4i:4t**«4i*«i4t*«*4> 



ilitn-^itiiliC,5 ********** 

* * 

* ACTIVATE ERP * 

* AND TURN OFF * 

* OTHER BITS * 

* LOAOSLOT * 

*«4[4ci(t«4>«4i4c***4:«** 



I 


^ INU 






X 

♦ ♦♦*♦ 




X 






♦ XU ♦ 


X 


.*• 






* B2* 


4c*4c4>«H3********** 


H4 *. 






* * 


* SET UP ♦ 


.* *. 






* 


* REQUESTOR ID * 


.* RESPONSE * 


YES 


FXITRTN 


* POST SSRASTIO * 


*. EOUALS 


*, 






* HAS I/O * 


♦. 'EOB* .* 








* OUTSTANDING * 


*. .* 








4i4:4c4<4:««4c«4c««**4<4c4c 


*. .* 

* NO 
**** 

* * 

* J4 *,Xe 

* * 

♦ *** , 




X 

***♦♦ 

*xu * 

* 83* 
* * 
* 
EXITl 




X 


INVALID X 








4c««4<*J3 ********** 


4i 4'4'4<:>|t J /^4i#4c**4t4t4c4t* 






* POST I/O * 


* 








* REQUEST IN * 


* SET UP CCW 








♦LINKFLAG. POST * 


* FOR INVALID 








*ACCEPT IRRECOV.* 


* RESPONSE MSG 








* I/O ERRORS * 


♦ 








*****♦*****♦**#*# 


#:!!:«! 4r««*4:#4!4t««4!*** 







4c *4!«4eK 3 ********♦♦ 

* * ♦ ♦ 

* * BALR TO * * 

* ♦ DASTSCAN * * 

* * FOR I/O * * 

* * * * 



**** 

* * 

* B4 * 

* * 
**** 
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chart XW. $$RAST11 - ETA ly.essage Writer 
Refer to Chart 04. 



♦ ♦♦♦A 1 ♦♦♦♦♦♦♦♦* 

♦ $$RAST11 ♦ 

» * 



* SET UP ♦ 

* RFGISTERS FOR ♦ 

* USAGE ♦ 

* ♦J5 * 



^ct^t^C 1**=<'*'('**4'<*'« 



♦ *♦♦ 

♦ * 

♦ B2 ♦ 

♦ ♦ 



.* RECORDER *. N 
*.FILE FULL OR .*. 
*. LAST .* 
♦•TRACK.* 



i^m***C2********** 



* GET ADDRESS 


* 


* SET UP CCW * 


* OF FIRST CCW 


# 


* TO RING ♦ 


* IN REG 5 


* 


* ALARM ♦ 


# 


* 


* ♦ . 


*4t4<*4.4c*4>«4<4<«*4'**4' 


4>*«4:«4i4<4:«t4i***4c*4( . 


♦ ♦♦♦ I 




• 


* * . 




Ix..........r 


* Dl ♦.X. 




* * . 






**** X 






CCWTEST .*. 




UNPACK X 


Dl *. 




4i4:***02********** 


.* ». 




*MAKE CURR. DISK* 


.* ALL ♦ 


. YES 


♦ADOR AND NO, OF* 


*. CCWS 


.*. ... 


* PAGES DELETED * 


♦. RELOCATED.* 




* PRINTABLE IN * 


♦ . .* 




* MESSAGE AREA * 


*. .* 


X 


4i*4c*«4ii|i4i4i4ti»4i#3|t#«:>tc 



4*#«4<e l**4(**4t*4c4E* 

* * 

* RELOCATE CCW ♦ 

* POINTED TO * 

* BY REG 5 * 

* * 
3|i#4'*****«***4c**«* 



^it^^^^Cy I ********** 

* GET PIB * 

* ADDRESS OF * 

* INTERRUPTED * 

* TASK * 



««:4t«*Hl********** 

* PUT PARTITION ♦ 

* ID IN FIRST ♦ 

* TWO BYTES OF * 

* MESSAGE ♦ 

* * 
4c#«4c*4c****«****** 



* POINT TO NEXT ♦ 

* CCW BY ADDING * 

* 8 TO PFG 5 ♦ 

* ♦ 



«4l*«*£2 ********** 

* * 

* GET ADDRESS * 

* OF FIRST CCW ♦ 

* IN REG 9 * 

* ♦ 

«4>*«««44iiii4t*«i**«** 



^frtij^'tiitif 2 ********** 

* * 

* GET HALFWQRO * 

* OF P<ESSAGE * 
*CODES IN REG 8 * 

* * 

4:#4c*4t*#«*4>***4i**« 



*♦*♦ 

LOWBITON 

9|t«4<**G 2 ********** 

* * 

* SAVE MESSAGE * 

* COOES IN WORK * 

* AREA MSG SITS * 
m * 
«**4c#]ti*#4<*4' ****** 



**** 

* * 

* 83 * 

* ♦ 
*♦♦* 



B3 *. 
.* MORE ♦ 
.* MESSAGE 
. COOES IN 
*. REG 8 
*. .* 



* NO 



*****C3**** ****** 

* CLEAR OUT * 

* HALFWORD OF * 

* MESSAGE CODES * 

* IN RASTAB * 

* * 



*«*«#03 ********** 

* * 

* GET EPPIB * 

* QUEUE * 

* ADDRESS * 

* * 
*«*4c4i*****4c*«**** 



«#4E**E3 ********** 

* * 

* GET PUB * 

* ADDRESS * 



»#*♦♦**#*******#* 



UPDATE X 

* * 

* POINT TO NEXT * 

* CCW BY ADDING * 

* fl TO PEG 9 * 

* ♦ 



#4t***04********** 

* * 

* SHIFT LOW * 

* ORDER BIT OUT * 

* OF PFG 8 * 

* ♦ 



*. SYSLOG PUB 

*. .' 



* * 

* UPDATE TO * 

* NEXT ERPIB * 

* ENTRY * 

* * 



♦♦♦♦*j2 ♦*♦***♦*♦* 

* MOVE WRITE * 
♦COMMAND IX«09')* 

* INTO CCW * 

* POINTED TO BY * 

* REGISTER 9 * 
***************** 



* Dl * 

♦ « 
**** 



4i4c***j 3**** ***«!** 

♦ * 

* POST SSRASTll * 
♦HAS OUTSTANDING* 

* I/O * 

♦ * 
*4c***********4i*** 



♦♦♦♦♦K3**** ****** 

* * 

* POST I/O * 

* REQUEST IN * 

* LINKFIAG * 

* ♦ 



EXITRTN 

ik^***C,^**** 

* CLEAP PEG 3 * 

* TO INfTTALTZE * 
♦FOR A FETCH OF * 

♦ SSPASTQO ♦ 

♦ * 



*#4:**H4******^*** 

* * 

* on<JT FE'^TH * 

* REOUEST IN * 

* LINKFLAG * 

* * 

l(<*4C««4t**3»E*4c****** 



****J4******^** 

* BRANCH TO * 

* PASTSCAN IN * 

* SUOERVISOP * 

*♦#*♦*♦*♦*♦*♦** 



4c 4: itc4ii^B5 ********** 

* * 

* PUT ADDRESS * 

* OF OTA lOB * 

* TN PFG B ♦ 

* * 



4c 4(***r'^ ♦*♦*♦♦♦♦*♦ 

* ♦ 

* OUT PAS I/O * 

* REQUESTIO * 

* IN PTAID * 

* * 

4:]ti4:**********4<*** 



«****n5 ********** 

* * * * 

* * BALR TO * * 

* * RASTSCAN * * 

* * FOP T/n ♦ « 

* « ♦ * 

4t4t4[*«****** ****** 



4i**4c*p5 ^'Jtc*^'****** 

* * 

*RESET $*.PAST11 ♦ 
*HA$ OUTSTANDING* 

* 1/0 BIT ♦ 

* * 

]|:«#4i************* 



*J5 

e EG I STEP USAGE 

PFG I - PASTA P 

ppn ? - PASLINK APEA 

PFG ^ - CPMM REGION 

ppr, 4 - PFT^BLE 

PFG S - crw PPLOCATE 
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Chart XY. $$Ri^ST12 - 3400 Tape Channel Check ERF (Part 1 of 2) 
Refer to Chart 05. 



♦ ♦ 

♦ $$RAST12 ♦ 

♦ ♦ 



:^**:it:'¥Bl*** ******* 



t^i**it************ 
♦ **♦ 



♦ * 

♦ B3 * 

♦ * 



tKK020 X 

* GET ERRBLOC ♦ 

* AOOR AND * 

* CLEAR ♦ 

* RTAIOB * 

* * 

i^:tit:^t^ft:*********** 



♦ ♦*♦ 

♦ ♦ 

* * 

**♦♦ 



CCH 
ADO» IN 

CSW , 



♦ CI *.x 



♦*♦♦ 
ERPOIO .♦. 
CI ♦ 



ALL 

ERPIBS 
TESTED 



sro 

STORED 
CCH 



♦*♦♦ 

♦ * 

* C4 *.X 



♦**♦ 
ERROAO X 

* * 

* FTND AND ♦ 

* SAVE LUB * 

* rNOEX * 

* * 



* C4 * 

* ♦ 



.* IS ♦, 








,♦ *, 




.* *. 


.♦ THIS AN *. NO 




.♦ ANY ♦, NO .* UNIT ♦. NO 


*. fcRPIB .♦, 






♦. MESSAGES .♦. 


*, CHECK ...... 


♦. ENTRY .* 








♦.TO PRINT .♦ 


*. .* 


♦ , ,* 








*, ,♦ 


♦ . .♦ 


*. .♦ 








*. .♦ 


X ♦. .* 


* YES 








* YES 


♦♦♦** ♦ YES 

♦ XZ * 

♦ 03* 

♦ * 












* • • 


X 










X 


.♦ • 








X 


.*. 


EI *. 








■^,^,^2******* 


E3 ♦, 


.♦ ♦. 








* * 


.♦ ♦. 


.♦ RECORDED *. NO 






* SET UP ♦ 


NO .♦ WAS *. 


*. ON SYSREC .*. 








♦ TO CALL ♦ 


,...*. SENSE .* 


*. .* 








* $$RASTOO ♦ 




*. STORED .♦ 


♦ . «* 








4< ^ 




♦ . .* . 


♦ , ,♦ 








4r*4!***«4c4t4>4> 




♦ . .♦ 


♦ YES 












♦ YES 










**** I 






*x. ....... 








* ♦ 

* ♦ *.x. 








'* 










* ♦ , 






X 






**** 




X 


ERR0I2 .*. 




ERR 1000 X 




► .*. • 


Fl *. 






Hc1ft:**f2********** 




F3 *. 


.♦ *. 






* * 




,♦ *. 


.* PUB ♦, YES 




* POST FETCH * 




.YES .* *. 


♦. DEV TYPE .♦. 






* REQUEST IN ♦ 


X,.,*. EQUIPMENT .♦ 


*. TAPE .« 






* LINKFLAG * 


*. CHECK .♦ 


*, ,♦ 






* ♦ 


. *. .* . 


*. .♦ 


X 




itiiitt***'*********** 


X ♦. .* 


* NO 


**** 




♦*** * NO 


*♦♦♦ 


* 


* 




♦ ♦ . • 


* * . 


* B3 


* 


• 


* B5 ♦ .X.., • 


* Gl *.X. 


* 






* ♦ . 


* * . 


««*« 




***♦ 


♦♦♦♦ 










FRR015 X 








ERR030 X 


t****rji********** 






x 


^t^c^t^tGS********** 


* * 






^i4iif^Q2********* 


* PUT ADDR OF * 


* SET INDEX * 






* BRANCH TO * 


* ERROR CCW ♦ 


* TO NEXT * 






♦ RASTSCAN IN * 


* IN REG 7 * 


♦ ERPIB * 






* SUPERVISOR ♦ 


♦ * 


♦ ♦ 








^,1f*iti:tit********* 




* * 



* * 

* FIND ERROR * 

* CCB STARTING * 

* CCM ADDRESS * 

* ♦ 
t**■***i^********** 



* * *.x. 

* * 
***♦ 

ERR160 X 

*4<« 4c 4iC^ ***♦**>•"« 4>'«' 

* SET uo Msn * 

* OTl?! ♦ 

* UNt>Er.OVERABLE ♦ 

* CHAN EP^OP ON * 

* X«CUU' * 



SET UP TO 
CANCFL 



iti**m************* 



**** 

* * 

* Gl ♦ 

* * 
♦*** 



SIO 


*. 


NO 


STORED 




*.. .. 


CCH 


♦ ' 




.* 






♦ . .* 




X 


♦ YES 




♦ ♦*♦* 
♦XZ ♦ 

* B2* 


X 




♦ ♦ 


♦*♦♦* 




♦ 


♦ XZ ♦ 






♦ 02^ 







4t*4>«*4i 4c <(♦♦♦♦♦♦♦♦♦ 



^^^♦♦♦♦♦♦♦♦♦♦♦♦♦♦« 



♦ ♦♦♦ 

♦ ♦ 

♦ CI * 

♦ * 
**** 



♦ ♦♦♦ 

♦ ♦ 

♦ B4 ♦ 

♦ ♦ 
♦♦♦♦ 
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chart XZ. $$RAST12 - 3400 Tape Channel Check ERP (Part 2 of 2) 
Refer to Chart 05. 



***** 

*XY ♦ 

* E4* 



*. NO 



*****C2 ♦**♦*♦***♦ 






«**«*C3 ********** 


* * 






* SET UP MS6 * 


♦ PUT ERROR * 






* OTIOI ♦ 


* CCW AODR * 






* CHANNEL ERROR * 


* IN REG 2 * 






* RECOVERY ON * 


* * 






♦ X'CUU' * 


***************** 






********4c******** 


**♦* I 






**** * 


♦XY * .X........ 






*XY * 


* E4 ♦.X. 


.. 




* 02 ♦.X. 


* * , 




* * . 


**** 




**** 


ERR070 X 


ERR210 X 


*****Q2 4<********* 




*****D3***«****4c* 


* CLEAR ALL ♦ 




* SET LOAD ♦ 


♦ CODES * 




♦ MODULE INDEX * 


* EXEPT ♦ 




* TO * 


» TEPM AND * 




* SfRASTOO * 


* RETRY ♦ 




* * 


***********«#**** 




***************** 

**** * 

* * « 

* E3 *.X. 

* * . 
***» X 


X 




.*. 


itt*^^Ht^2********** 




E3 ♦. 


* TEST ALL * 




.♦ *. 


* RETRIABLE ♦ 




.♦ LOAD *. NO 


* ERRORS ♦ 




*. THIS ...... 


* ♦ 




♦. MODULE .* 


* * 




*, .* 






*- .* X 
* YES ***** 
*XY * 
♦ F2* 


X 




. * * 
• * 


.*. 




X 


F2 ♦. 




***«*P3********** 


.♦ ♦. 




* STEP INDEX * 


.♦ CODE *. NO 


* TO NEXT * 


♦ . .*. 




* MODULE ID * 


*. RETRY .* 


, 


* * 


*. .* 




* * 


*, ,* 


X 


***************** 


* YES 


***** 
*XY * 
* C5* 


: 




* ♦ 
* 


X 


ERR150 X 




• * • 


*«***G2**4<******* 




G3 *. 


♦ SET UP TO * 




.* ♦. 


* STO TO * 




.* CHECKED *. NO 


* USER'S ♦ 




*. ALL 12 .*.... 


♦ CCW * 






♦ . .♦ . 



***************** 



* DO * 

* RETRY * 

* SIO * 

* * 



**H3******* 

» * 

SET UP 

TO LOAD 

iSRASTOO 

* * 

*********** 



***** 
*XY ♦ 
♦ F2* 
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chart YA. $$RAST13 - Dynairic Reallocation of Page Pool 
Refer to Chart 0^1. 



****A I ***♦♦♦**♦ 

* * 

* DRAPACTl * 

* ♦ 



O^^APACTl .*, 



.* PAGE ♦. NO 
*.nN QUEUE AND .*. ,. 
♦. FIXABLE .♦ 



* * 
* RESET DRAP * 

.X* BIT; INDICATE ♦ 
*SHORT MESSAGE* 

* ♦ 



* * 

* REMOVE ♦ 

* PAr,E FRAME * 

* FRHM OUEUE ♦ 

* * 



**ni«***#** 



♦ RETURN Tn * 

♦ CALLING * 

♦ RfUTINE * 

itift ****** ■*****-* 



:tf***l^^m******** 

* * 

* $$RAST13 * 

* * 

*^1f**JlC******^l^* 



>Ki(>«*«B3**4"»<«4<«<4c*4< 



INITIALIZE 

PHASE 



**^/:**}ttt*!tc**^t**^1r* 



^f***4iQ-i****ii**:^t** 

* CALCULATE * 
♦VIRTUAL ADDRESS* 

* CORRESPONDING * 

* TO FSA * 

* ♦ 

***************** 



**Q3******* 



**#«*«#«*** 



4i4<i»e*4eE3 ********** 

*DRAPACTl VA* 

*_♦_)♦:_♦_♦_*_♦_♦_♦ 

* DEQUEUE ♦ 

* PAGE FRAME * 

* ♦ 
***********jti**'»ii** 



*SET PAGE TABLE * 

* ENT'^Y INVALID * 
*(=HTGH ADDRESS)* 

* (IN 0RAPACT2 * 
*NOT DOCUMENTED!* 
4i 1 4c 4< 4e 41 >tc 4c # * 4( « * * * ♦ «: 



*« 4c *A 4** ******* 

* * 

* REDUCESZ * 

* * 

*7ti*********^t*** 



* GET NUMBER * 
*0F PAGE FRAMES * 

* IN PAGE POOL * 

* * 



4i4i4i4c4i(; 44i«***4>***4t 



REDUCE 

BY ONE 



«c #« 4t * «c * # * * * 4> ** « * ifc 



*#«4c4<04********** 



*****,li******4t**iK,l, 



**tc**^j^**^t******* 



*il:itt ************* 



4c*4!*F4********* 

* RETURN TO * 

* CALLER * 

«:*« 4c4i4c4c* 4>4:4r4c4>4t* 



****-^L(;'=i ********** 



FSA *. NO 


* SHORT 


IN MAIN .* 


. ..X* MESSAGE 


POOL .* 


* ot:?oe 


.* 


* 


*. .* 


iif*****tt***** 


* YES 





**** 
TEMSG X 

* ♦***H3 *****♦*♦♦♦ 

* MAKE PAGE * 

* FRAME ADDRESS * 

* AND SIZE OF * 

* PAGE POOL * 

* OPINTABLE ♦ 

^,:^^:ti************* 



4i****^^********** 

♦PFDUCESZ YA* 

*_*_♦_♦-*-*-*-*_♦ 
.* OFOUCF SIZE * 

* OF PAGE POOL * 

* RY ONF * 
4c 4t 4c ♦ 4c 4c 4c 4i * ]^ 4t 4c * 4t 4< ♦ <»c 



4:4<*«*:J44c4c«4t*4<4'4i4c« 



»# 4c 4c 4c 4c 4c 4c 4c 4c 4i 4c 4c 4c 4c 4c 4; 



4c***K: 3 *4c ******* 

* EXIT TO * 

* $«;PA<^TOO * 

* fMART VA * 
*************** 
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APPENDIX A: 



LABEL LIST 



Label 

ACTIGN 

ACTION 

ACTICN1 

ACTICN1 

ACTION 1 

ACTICN1C 

ACTICN1C 

ACTI0N2 

ACTICN2 

ACTI0N2 

ACTICN3 

ACTIONS 

ACTI0N3 

ACTICN3 

ACTIONS 

ACTI0N4 

ACTICN4 

ACTICN4 

ACTICN4 

ACTIONaA 

ACTI0N4B 

ACTIONS 

ACTIONS 

ACTIONS 

ACTIONS 

ACTI0N6 

ACTI0N6 

ACTION? 

ACTION? 

ACTION? 

ACTION?A 

ACTION?A 

ACTION?B 

ACTICN7B 

ACTIONS 

ACTMSG 

ACTNiTN 

ADDTOCT 

ANNUL 

ANYEERS 

ABETI3RN 

ABETURN 

ARETDRN 

AROUND 

ATYPl 

ATYPE 

ATYPi 

A01 

A02 

A03 

ACS 

A051 

AC6 

BALMSG 

BALSTCHK 

BCCRICOO 

BCCRIC35 

BEGIN 

BEGIN 

BEGIN 



Phase 


Location 


$$ABERRF 


TPJ3 


$$ABEERQ 


TSB5 


$*^AEEEP? 


TLH1 


$$AEIERH 


UBE4 


$$ABERRH 


UBF3 


$$RAST04 


XBHS 


$5;eastos 


XFD3 


J^ABEREF 


TKD3 


$$ABEREH 


UBJ3 


$$EAST06 


XJF3 


SSAEEREF 


TMC1 


$$ABERRH 


UBE1 


$$EAST04 


XBF5 


$$EASTOS 


XFB3 


$$EAST06 


XJE3 


$$ABEEEF 


TNC2 


$$EASTOa 


XCC5 


$$EASTOS 


XFC5 


5;$EAST06 


XJG2 


$$ABERRF 


TMD1 


$$ABEREF 


TND2 


$$AB1REF 


TLF1 


$$RASTOt^ 


XBC4 


$$RAST05 


XFD1 


$$RAST06 


XJF1 


$SABERRI 


TCB5 


$$AEEREF 


TLF3 


$$ABEREI 


TFF1 


$$AEIRPF 


TMOa 


$$EAST06 


XIH2 


$$ABERRF 


TMH4 


$$ABiREH 


UBF4 


f$ABEREF 


TLDS 


$$AEEREH 


UAF3 


$$ABEEEF 


TLF2 


$$ABERRQ 


TSB4 


f$EASTlO 


XUD4 


$$ABERRI 


TDC1 


$$AEERRT 


TBC4 


$$ABERRT 


TBG4 


$$RAST04 


XBA4 


$$RAST05 


XFB1 


$$RAST06 


XJK2 


$$ABERE? 


PYG5 


$$AEERRN 


QFB3 


$$AEERRY 


BBB2 


$$AEERRV 


RKH2 


$$ABERR1 


PKE2 


$$ABERE1 


PKF2 


$$AEEEE4 


PSD2 


$$ABERR4 


PSG3 


$$ABERRa 


PSH3 


$$ABERR4 


PTA1 


$$AEEBRa 


PSAS 


$$ABERR4 


PSH2 


$$RAST01 


?FB4 


$$RAST01 


VFEa 


$$AEERRF 


TKC1 


$$AEERRP 


TPC1 


$$ABERRQ 


TSC1 



Label 


Phase 


Location 


BEGIN 


$$ABIRBH 


UAC1 


BEGIN 


$f^RAST04 


XAB1 


BEGIN 


$$RAST05 


XEB1 


BKNTAP 


$$ABERBU 


TGCS 


BLDERPIB 


$$RASTOO 


VDG2 


BLDHDROO 


$$RAST01 


¥FB3 


BLDLFOO 


$$ABERA4 


WDE3 


BLDLF15 


$$ABERA4 


MDE3 


BLDLF25 


^ISABERAU 


MDA4 


BLDLF30 


$$ABEEAa 


MDB4 


BLDLF35 


tSABERAa 


MDE4 


BLDRECOO 


<»;$RAST02 


WBA1 


BLDREC0 5 


$$EAST02 


iBEl 


BLDREC10 


t'SRAST02 


«BE1 


BLDREC15 


$f5BAST02 


WBE3 


BLDREC20 


$$RAST02 


WBG3 


BLDREC2S 


$$RASTn2 


WBJ3 


BLDREC30 


S$RAST02 


WBB4 


BLDREC3S 


$$PASTn2 


1BF4 


BMCRECIO 


.^$RAST01 


?GE3 


BMCREC30 


ff^$RAST01 


?Gja 


BMCRFCOO 


'SSRASTOI 


VGE3 


BSOUT 


$$ABERRS 


RGE3 


BSOUTMSG 


$$ABERRU 


TGE4 


BUFPAR 


f^.tABlRRF 


TLEI 


BUFPAR 


^^ABERRH 


UBB1 


BUFPAR1 


S^ABERRF 


TLDI 


BUFPAR1 


^SABERRH 


UBC4 


BUFPAR2 


^SABEREF 


TLD3 


BUFPAR3 


$?;aberrf 


TLE4 


BUSCK 


$;$ABERR? 


PXH1 


BUSCK 


$$ABERBG 


TUA3 


BDSOUT 


.^SABERRB 


MYE2 


BUSOUT 


$$ABERBY 


RDES 


BUSOUT 


$^ABIBRS 


RFCa 


BUSOUT 


$$ABERRT 


TAFa 


BUSOUT 


$$ABERBU 


TGB4 


BUSOUT 


$$ABERRF 


TMA1 


BUSOUT 


SIABIRAN 


TXB1 


BUSOUT 


^^ABERBH 


UBE3 


BUSOUTER 


$$ABERAN 


TXB2 


BUSRETRY 


$$ABFRRU 


TGC4 


BYDTCK 


$$ABERR? 


PZD2 


BYTEONE 


^!^ABERR7 


PYA1 


BYTEONE 


$$ABERBG 


T?B3 


BZYTEST 


$$RASTOO 


VED2 


B01 


$$ABERR1 


PKJ2 


B02 


$$ABERR1 


PMA4 


BOSO 


^$ABERR3 


PQB4 


CALC1 


$$ABERRC 


QQDa 


CALLMSG 


$f^ABERR4 


PTC1 


CALLMW 


$.15ABIRRU 


TGJ4 


CANCEL 


$$RAST02 


«AF4 


CANCELIB 


SH^ABERAN 


TWK4 


CANCL 


$$ABERR? 


PXB3 


CANJOB 


$$RAST10 


XV ES 


CANTASK 


SJ^RASTIO 


XTE3 


CCWTEST 


$$RAST11 


XWD1 


CDATACK 


$$ABERRT 


TAf3 


CDC 


$$ABERRS 


RGH3 


Append; 
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T -> *« £i I 

CMINCH 

CHECK 

CHECKEXT 

CHECKLST 

CHECKMC 

CHKADR 

CBKCNT 

CHKEFR 

CHKEBR10 

CHKEBS15 

CHKEBB20 

CHKEFE25 

CHKEBR30 

CHKEBR35 

CfiKEBR40 

CHKFER 

CKKMBS 

CHKMSG 

CHKBIAD 

CBNDAT 

CHNDAT 

CBNDCHK 

CHNDIEX 

CKCNT 

CKC4 

CKOBB 

CIEAB 

CLKDMG 

CLECCB 

CMDRJ 

CMNDBEJ 

CI!5PCBEBB 

Ch'B 

CNCL 

CNEBPIB 

CNTBIN 

CCDEOO 

CODECS 

CCDE10 

C0DE15 

CCLCALC 

CCMBIN 

COMMAND 

COMREJ 

CCMF5J 

CCHBJ 

CONT 

CONTINUE 

CONTROL 

COVEBCHK 

CSCAN 

CSCAN 

CSCAN 

CSFLOST 

CUPDATE 

CUPDATE 

COPDATE 

CVRCHECK 

CC100 

DAT 

DATACHK 

D AT C BECK 

DATCHK 

DATCBK 

DATCBK 



FhciSe 


Location 


$$AEERRB 


MZD4 


$$ABERRT 


TAE1 


SSABIRRC 


QNGU 


S$RASTOO 


7BA1 


$$BASTOO 


VBD1 


fSAEERRS 


BFH5 


$$ABERRG 


T0E3 


$$AEERRF 


TKA2 


$$ABERRP 


TPD2 


$$AEERRP 


TPC3 


$$AEERRP 


TPD3 


$$AEERBP 


TPE3 


^$ABERBP 


TPB4 


$$AEEBRP 


TPD4 


$$ABERRP 


TPF4 


$$ABERRH 


UAJ1 


$$RAST10 


XVB3 


$$BAST10 


XTC3 


$$EAST06 


XJK5 


$$ABERRF 


TLA 5 


SSABERRH 


UAD3 


$$AEIRRU 


THD2 


$$ABERRU 


THG3 


J$AEERR7 


PYB4 


$$ABERR7 


PYJ2 


$$ABERAN 


TYH1 


$$RAST02 


WCC3 


$$RAST03 


WJC3 


f$AEERRO 


QJD3 


$$ABERRG 


TUC3 


$$ABERRT 


TBB1 


$$AEERRC 


QNB2 


$$ABEREY 


RDDa 


$$AEERRG 


TUH3 


$$RAST02 


WAB4 


$$ABERRI 


TEB5 


!^$AEERA6 


MGB3 


$$ABERA6 


MGC3 


$$AEERA6 


MGE4 


$$ABERA6 


MGF4 


$$AEERRC 


QQB4 


$$AEERRA 


MWD1 


$$AEIRAN 


TWC5 


$$AEERRB 


MZC4 


S>$AEERRY 


RDF1 


$$AEERRS 


RHC1 


$$ABERRS 


RGE1 


$$ABERRT 


TBH4 


$$RAST03 


WFD2 


$$AEERRC 


QMC4 


$$BAST04 


XAE1 


$$RAST05 


XEE1 


$$BAST06 


XHE1 


$$RASTOO 


VDJ2 


$$RAST04 


XAD2 


$$RAST05 


XED2 


$$BAST06 


XHB2 


$$AEERRC 


QPA5 


$$ABERRY 


RBG5 


$$ABERRV 


RJG4 


$$ABERRU 


THE2 


$$AEEBRY 


RAG2 


$SABERRY 


RDA4 


$$ABERRF 


TMA4 


$$AEERRH 


UBB4 



Label 


Phase 


Location 


DATCHK1 


JfJJRABERRF 


TME4 


DESC1 


$^RAST09 


XSE2 


DEVDOO 


^SABERBK 


MBE1 


DEVDOO 


$^ABmK^ 


MDB1 


DEVD05 


?^$ABEPRK 


MBH1 


DEVD05 


$$ABBRAa 


MDE1 


DEVD10 


s?>;aberrk 


MBC2 


DEVD10 


!»5$ABERA4 


MDH1 


DEVD20 


$SABERRK 


MBD2 


DEYD30 


!S$ABEERK 


MBF2 


DEVD35 


$$ABERAa 


MDB5 


DEVD50 


f«?$ABlBBK 


MBG2 


DMCHKOO 


;^?»;aberrj 


MNB5 


DMCHK05 


<K$ABERBJ 


MND5 


DMCHK10 


S^SABERBJ 


MNJ5 


DMCHK15 


$$ABERRJ 


WNJi* 


DOSVC 


«^$ABERBI 


TFD5 


DRAPACT1 


!»;$RAST09 


XRBa 


DRAPACT1 


$$RAST13 


YAB1 


DRAPIO 


!l;$RAST13 


YAJ3 


DTACK 


$$ABERR7 


PXJ1 


DTACK 


$$ABERBG 


TUE3 


DTCRTN 


I^fABERRI 


TEJ1 


DTEXIT 


$$ABERBU 


THE5 


DTYPE 


$Jf;ABERRO 


QJA1 


DUMREAD 


$$ABERRD 


QTC2 


DV1018 


JR!^ABERBU 


THG2 


EEDCH 


$$ABERRE 


QXE1 


EFLRTN 


$$RAST03 


WJB1 


ENQDEQOO 


$$ABERA3 


MTH3 


ENQDEQ15 


$$ABERA3 


MTK4 


EPIBSCAN 


$$RAST10 


XUD1 


EQPCHECK 


$$ABERBC 


QNA1 


EQPCHECK 


$$ABERRE 


QXD3 


EQPCHK 


SSABERRU 


TGB2 


EQPCHK 


$$ABERBF 


TNB1 


EQPCHK 1 


$$ABERRF 


TNH1 


EQP1 


$$ABERBE 


QXD4 


EQUIP 


$$ABERRY 


RBAU 


EQUIPMENT 


$$ABERAN 


TYB1 


EQUIPXIT 


$$ABERRT 


TAH4 


ERPIBCK 


$ifiRAST10 


XTE1 


ERPIBLUP 


$$RASTOO 


VDE2 


ERPIBSC 


$$RAST02 


HDBI 


ERPIBU 


$JSRAST02 


WDD2 


ERPMSG 


$$RAST10 


XTB1 


ERROR 


$SABER1RD 


QSJ1 


ERR005 


$$ABERAH 


PAE1 


ERR008 


$$ABERAE 


NNG3 


ERR008 


$$ABERAH 


PAF1 


ERR010 


$$ABERAE 


NNH3 


ERR010 


$$ABERAG 


NXB3 


ERR010 


^$PASTOM 


XKC1 


ERR010 


$$RAST12 


XYC1 


ERR012 


$$BAST12 


XYF1 


ERR015 


$$RASTOM 


XKB2 


ERR015 


$$RAST12 


XYG1 


ERR020 


SSfJABlRAE 


NNH4 


ERR020 


USRASTOM 


XKA5 


ERR020 


$$RAST12 


XYB3 


ERR030 


$$ABERAE 


NPA4 


ERRQ30 


$$ABIRAH 


PCA2 


ERR030 


$$RASTOM 


XKG5 


ERR030 


$$RAST12 


XYG3 


ERR035 


$$ABERAE 


NPC5 
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Label 

EEB0 35 

FER0 39 

EEE059 

EBROaO 

EBEOMO 

EBEOaO 

EFE0 40 

EER050 

EEE0 50 

EEE050 

EEE060 

EBE0 70 

EEE070 

EEE0 70 

EEE070 

EBB075 

EEE0 75 

EER080 

EBE090 

EEE093 

EBB095 

EBE095 

EEE096 

EBE096 

EEEICO 

EBB100 

EBB100 

EBB 1 CO 

EBEIOO 

EBEIOO 

EBB100 

EBE1000 

EBB 1 COO 

EBB1000 

ERR 1 COO 

EBE1C00 

EBR1000 

EEE1000 

EBR1000 

ERR1 10 

ERR110 

EBR1 10 

ERR 110 

EER115 

EBB 120 

ERE 120 

EBB120 

EER120 

EBB125 

ERE 130 

EBB 130 

EBB140 

EBB 110 

EBEiaO 

ERE 113 

ERE 115 

EBBU5 

EBB 150 

EBB 150 

ERR 150 

ERR 150 

EBR150 

ERR 150 

ERR 153 

ERR 1 53 

ERR 160 



Phase 


Location 


$$AEEHAH 


PAC2 


^$AEERAE 


NPB3 


$$AEEEAH 


PCF1 


$$AEEEAE 


NPC3 


$$ABERAH 


PCG1 


$$FAST0M 


XKH5 


$$EAST12 


XYC4 


$$AEERAF 


NTD1 


$$AEERAG 


NXD3 


$$EASTOM 


XKC1 


$$ABEEAD 


NKG1 


$$AEEEAr 


NKH1 


$$ABEEAF 


NTF1 


$$EASTOM 


XLBl 


$$EAST12 


XZD2 


$$ABEEAD 


NKJ1 


$$AEEBAI 


PED1 


$$ABEBAI 


PEF1 


$$BASTOM 


XLF2 


$$EASTOM 


XLF3 


$$ABEEAE 


^QM 


$$AEEEAH 


PCE1 


$$ABEEAE 


NQA5 


$$AEEEAH 


PCE2 


$$ABEEAB 


NAB2 


$$ABEEAC 


NEG1 


$$AEEEAE 


NKA5 


$$ABEEAE 


NNG2 


$$AEEBAF 


NTGl 


$$ABEEAH 


PAG1 


$$ABEEAI 


PEH3 


$$AEEEAB 


NBF2 


$$ABEEAC 


UFF5 


$$AEEEAC 


NKK4 


$$ABEBAE 


NNF5 


$$ABEEAF 


NTG3 


$$AEEBAG 


NXK5 


$$ABEEAH 


PAF3 


$$RAST12 


XYF2 


$$AEEEAC 


NFE3 


$$AEEBAE 


NQE2 


$$AEEEAG 


NXE3 


$$BASTOM 


XLH4 


$$AEEEAB 


NAC2 


$$AEEBAB 


NAE3 


$$ABEBAC 


liFFI 


SIAEEEAE 


NKB5 


$$EASTOM 


XLH5 


$$AEEEAC 


NFA5 


$$AEEEAB 


NAF4 


$$ABEEAD 


UKC5 


$$AEERAB 


NAG4 


$$ABEEAG 


NXJ3 


$$BASTOM 


XL J 4 


$$AEEEAB 


NAH1 


$$ABEEAB 


KAG3 


$$BASTOM 


XL J 3 


$$ABEEAC 


NFB2 


$$ABEBAD 


NKD5 


$$AEEEAE 


NQF3 


$$ABEEAF 


NDE2 


$$BASTOM 


XLD1 


$$EAST12 


XZG2 


$$RASTOM 


XLE1 


$$RAST12 


XZH2 


$$ABERAB 


NAH3 



Label 


Phase 


Location 


ERE160 


$$ABERAC 


NLA1 


EER160 


$?»?ABEBAE 


NQ?a 


EEE160 


JRSABEEAF 


NUG2 


EEE160 


$$ABEEAH 


PBA1 


ERE160 


•RJURASTOM 


XKH4 


EBB 160 


$$RAST12 


XYC5 


EEB165 


!S?«;aberab 


NAK2 


ERE170 


1;$PAST0H 


XKJ1 


EEE170 


$!«5RAST12 


XYP5 


ERR180 


J^^AEERAE 


NQE1 


ERE180 


$$ABERAH 


PBA3 


ERR200 


$$ABIRAC 


NFC2 


ERR200 


$$ABERAD 


NLB1 


ERB200 


$?ABEBAE 


NQF5 


ERB200 


$$ABEEAF 


N?A1 


EER200 


$$ABEPAG 


NXB5 


EEB200 


$$ABEEAH 


PBA2 


ERR 200 


$$ABEEAI 


PEK3 


ERE200 


$$EAST0!1 


XKC2 


ERR200 


;»;$EAST12 


XYD2 


EEE202 


$$ABEEAC 


NGC1 


EER202 


$$ABERAD 


NLC1 


EEE205 


$35ABERAC 


NGG1 


EBE205 


$$ABERAD 


NLE1 


EEB210 


J^$ABERAB 


NBA2 


ERE210 


$$ABERAD 


NLA4 


EBE210 


$$EAST0I1 


XKD2 


EEE210 


$$RAST12 


XZD3 


EEE220 


$$ABERAC 


NGA3 


EEE220 


i$ABERAG 


NXG5 


EBE220 


$$RASTOM 


XKE2 


EBE225 


$$ABIRAB 


NBAI 


EEE225 


$$ABERAC 


NGA1 


ERR225 


.^SABEEAI 


PEA5 


ERE230 


5;5;aberab 


NBD1 


ERB235 


$$ABERAB 


NBB3 


ERE210 


$$ABERAB 


NCA1 


ERE212 


$$ABERAB 


KCCI 


ERR246 


SSABEEAB 


NCE1 


EER250 


$^ABERAD 


NLE2 


ERE250 


SSABERAF 


N?J1 


ERR250 


JI$ABERAG 


NXF2 


ERR250 


SIABERAI 


PEB5 


ERR259 


SSABERAG 


NXJ1 


ERR260 


$$ABERAG 


NYA2 


ERE270 


$$ABEBAC 


NGF2 


ERR275 


$$ABERAF 


HVK1 


ERE275 


J^SABEEAI 


PFA1 


ERR280 


$$ABERAB 


NCG3 


ERR280 


$$ABIRAG 


NYC2 


EER285 


$$ABERAB 


NBA4 


ERR300 


$$ABERAB 


NBG4 


EER300 


$$ABERAE 


NNH1 


ERR300 


$$ABERAF 


NVA2 


ERR300 


$$ABIRAI 


PFC1 


ERR305 


$$ABERAB 


KBK4 


ERR310 


$$ABEBAC 


NGG2 


ERR320 


$$ABERAG 


NYA3 


ERR325 


$$ABERAI 


PFF1 


ERR350 


$$ABERAD 


KLC2 


ERR350 


$$ABERAF 


NVF2 


ERR359 


$$ABERAF 


NUA5 


ERR360 


$$ABEBAC 


NHA1 


ERR360 


flABERAD 


NLC3 


ERR360 


$$ABEEAF 


NVF3 


ERR380 


$$ABEEAC 


NHB1 
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Label 

EEB380 
ERB360 
?;EP390 
EEEUOO 
1BB400 
EBB400 
EEB4C0 
EI^P400 
FEE 4 20 
EEP440 
EEE450 
EEE480 
EEB490 
EEE5C0 
EEB500 
EEB500 
EEB510 
EBB520 
EEB525 
EBE580 
ERB580 
EBR581 
EEB583 
EBB5e5 
EEB590 
EBB590 
EBB6C0 
EBB6 00 
ERB6C0 
ERB600 
IRB610 
EBB6 20 
EER620 
EBR6 20 
EER625 
ERR650 
EBE6 50 
EBR660 
EBB660 
EBR670 
EBR680 
EEB680 
EER700 
EBR750 
ERR780 
EBR7S0 
EBR790 
ERR 8 00 
EBR800 
EER8C0 
ERR 8 10 
EBR8 20 
ERR 8 20 
EBR825 
ERR830 
ERR 8 40 
EBB8 50 
EER870 
EBR870 
ERR880 
ERR880 
EBB880 
ERB8S0 
EEB900 
EBR9 00 
EBR9C0 



Phase 


Location 


$SABERAD 


NLG3 


S$AEERAF 


NVH4 


$$AEERAC 


NHJ1 


$$IBERAD 


NKBa 


$SAEERAE 


NPH4 


$$AEERAF 


NWA1 


$$ABERAG 


l^ZA2 


S^AEERAH 


PCF5 


!^$ABEEAD 


NKE4 


$$ABERAG 


NZF2 


$$AEERAI 


PFB2 


$$ABEEAB 


WCH4 


$$AEEEAB 


NI)C1 


S$AEERAE 


NPF3 


$$AEERAH 


PBC1 


$$AEERAI 


PFD2 


$$ABERAB 


NDA2 


:$SAEEPAP 


NDE2 


:^$AEEBAB 


NAJ1 


$$AEERAB 


NDA3 


$$AEERAC 


NHA3 


$$ABEBAB 


NAF5 


$$ilEFBAP 


NAJ5 


$$AEERAC 


NHB3 


$$AEEBAB 


NDA4 


5;$AEERAC 


NHC3 


$$ABERAC 


mm 


$$AEERAD 


NKE5 


$$ABERAG 


NZA3 


$$AEERAI 


PFA3 


$$AEERAF 


NWA3 


$$AEERAC 


NJA2 


$$ABERAD 


NMA3 


$$AEERAF 


NWB3 


$$ABERAC 


NJD2 


$$ABERAC 


NJB4 


$$AEERAI 


PFD3 


$$ABERAD 


NLE4 


$$AEERAF 


NWC3 


$$1BERAF 


NWC4 


$$ABERAD 


NLHa 


$$AEERAF 


NWE3 


$$ABERAI 


PFA4 


$$ABERAI 


PFD5 


$$ABERAE 


NRA2 


$$ABSRAE 


NBF2 


$$AEERAF 


N?B3 


$$ABEBAD 


NLH2 


$$AEERAE 


NEC 3 


$$ABERAF 


NTF2 


$$ABERAE 


NRE3 


$$AEERAB 


NBE2 


$$ABERAE 


NRG2 


$$AEERAI 


PEK4 


$$ABERAE 


NRH2 


$$ABEBAB 


NAC3 


$$AEERAC 


NEC4 


$$AEERAC 


NFD1 


$$AEERAF 


NUF4 


$$ABERAC 


NFE1 


$$ABERAF 


NDF1 


$$AEERAI 


PEG2 


$$ABERAC 


NEF2 


$$AEERAC 


NEH2 


$$AE1RAE 


NKG2 


$$ABERAE 


NNK3 



Label 

ERR900 

ERE900 

EEE900 

EBE901 

EBR905 

ERR905 

ERR905 

ERE910 

ERR910 

ERR910 

ERE920 

ERE930 

ERR940 

ERE940 

EBB940 

ERB950 

EBB950 

ERR950 

ERR950 

ERR950 

ERR950 

ERR950 

ERR950 

ERR955 

ERR960 

ERR985 

ERR990 

ERR990 

ERR990 

EXCP 

EXEC 

EXINTR 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXITA 

EXITA 

EXITA 

EXITA 

EXITA 

EXITA 

EXITB 

EXITB 

EXITIO 

EXITOO 

EXITRTN 

EXITRTN 

EXITRTN 

EXITRTN 

EXITRTN 

EXITRTN 

EXITRTN 

EXITRTN 

EXITSVC 

EXITOO 

EXITOO 

EXITOO 

EXITOO 

EXITOO 

EXITOO 

EXITOO 

EXITOO 



Phase 


Location 


f5!^ABERAF 


NTK1 


$S5ABERAH 


PAJ1 


$$ABERAI 


PEH2 


^.^ABEPAH 


PAK2 


fS-^ABERAE 


NPA1 


*«:$ABERAF 


NTA4 


J5$ABERAH 


PAF4 


$$ABERAD 


NKH4 


$!»^ABERAE 


NND4 


*S$ABERAG 


NZJ2 


$$ABERAG 


NZH4 


!?^$ABERAG 


NZGS 


S^AEERAE 


NPJ3 


.^?i5ABERAF 


NTE4 


JSSABERAG 


NZF4 


$$ABERAB 


NAG2 


Sf^ABERAC 


NFE5 


$$ABERAD 


NKG5 


$$ABERAE 


NPD1 


SSABERAF 


NTF4 


$f^ABEBAG 


NYF2 


$^ABERAH 


PAJ4 


$$ABEBAI 


PEJ2 


^SABERAF 


NTG4 


$$ABERAF 


NTJ4 


S>tABlBIif 


NtJES 


$$ABERAB 


NBK5 


$$ABERAF 


NTF3 


.tSABERAH 


PBH1 


$$ABERRO 


QHE1 


S^fiABERRD 


QRG1 


$$ABERBO 


QJE2 


$$ABERRC 


QPH2 


$$ABERRD 


QSA4 


$$ABEREE 


QVA3 


$$ABERRE 


QWF3 


$$ABERBY 


RAK4 


$$ABERRW 


REK5 


$$RAST02 


WCE1 


$$ABERRA 


MXA4 


$$ABERRB 


MZD5 


$$ABERRY 


RAJ4 


$$ABERRI? 


REJ2 


SfSABERBV 


RJD2 


SSABERRI 


TEH4 


$?5ABERRA 


MXB4 


$$ABEREY 


RDK1 


$$RAST01 


VFB2 


$$ABERA6 


MGE1 


$$ABERB2 


PPD3 


S$ABERR3 


PQK4 


$$ABERB4 


PSG4 


$$RASTOO 


VCA1 


$$RAST03 


WHF1 


$$RAST09 


XRE3 


$!»;rastio 


XUB2 


$$RAST11 


XWG4 


$$ABERRC 


QME5 


$$ABEBRK 


MAE2 


$$ABERA4 


MCA2 


$$ABERRA5 


MEJ1 


$$ABERA7 


MHG3 


$$ABERA1 


MKE2 


$$ABERRJ 


MMJ1 


$$ABERA3 


MSG2 


$$ABERAA 


M0D2 
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Label 

EXITCO 

EXIT CO 

EXIT05 

EXITC5 

EXIT05 

EXITC5 

EXITC5 

EXIT05 

EXITC5 

EXIT05 

EXITC5 

EXIT051 

EXIT 1 

EXIT1 

EXIT 10 

EXIT10 

EXIT 10 

EXIT 15 

EXIT15 

EXIT 20 

EXIT20 

EXNOBEP 

EXTEND 

EXTECB 

EXTIGN 

EXTIGN 

EXTIGN 

EXTHSG 

EXTMSG 

EXTOCB 

EXTDCB 

EXTDCB1 

E050 

EC51 

E06 

E062 

ECHO 

FCH1 

ECHIO 

ECH1 1 

ECH12 

ECH13 

ECH14 

FCH2 

ECH3 

ECH4 

ECH5 

FCH6 

FCH7 

FCH8 

FCH9 

FIEDCHK 

FEEDCR 

FIEDSEL 

FEEDSS 

EEEDSTK 

FEEDTST 

FEEDTST1 

FETCB 

FETCH 

FETCH 

FETCB 

FETMSGW 

FILEPR 

FINDCCB 



Phase 


Location 


$SEAST01 


¥FG1 


$$BAST08 


XMA4 


$$aEERRK 


MA J 2 


$$ABERA4 


MCE2 


$$AEEREA5 


MEF2 


$$ABERA7 


MHD2 


$$AEERA1 


MKG2 


f^$AEERRJ 


MHB2 


$$ABERAA 


MUF2 


$$PAST01 


VFH1 


$$BAST08 


XMBa 


$$BAST08 


XME4 


$$BAST03 


WHJ5 


$$EAST10 


XUB3 


$$ABEEEA5 


MEH2 


$$ABERA7 


MHE2 


$$B1ST08 


XMH4 


$$AEERRJ 


MMC3 


$$BAST08 


XSE5 


$$ABERBJ 


MM J 4 


$$BAST08 


XMG5 


$$AEEREE 


QVC3 


$$ABERRN 


QDD5 


$$ABERRP 


TQB3 


$$AEERRP 


TPK4 


$$AEERRP 


TQF3 


$$ABERRQ 


TSJ3 


$$AEERRP 


TQE2 


$$ABERRQ 


TSH4 


$$AEERRP 


TQC3 


$$ABEHRQ 


TSD2 


$$ABERRP 


TPH5 


$$AEERR3 


PQG1 


$$ABERR3 


PQA3 


$$AEEBR3 


PQD3 


$$ABERR3 


PQF4 


$$AEEREE 


QUH1 


$$ABEBEE 


Q0A2 


$$AEEREE 


QUB3 


$$ABEREE 


QUD3 


$$ABEBEE 


QUE3 


$$AEEREE 


QUG3 


$$ABEBEE 


QUJ3 


$$IEEREE 


QUD2 


$$ABEBEE 


QUF2 


$$ABEBEE 


guH2 


$$AEEBEE 


QUK2 


$$ABEREE 


QUB4 


$$AEEREE 


QUF4 


$$ABEREE 


QDH4 


S$ABEREE 


QUH5 


$$AEERRC 


QMD3 


$$ABEREE 


QUC1 


$$AEEBRC 


QQA1 


$$BAST06 


XHB3 


$$BAST06 


XHJ3 


S$ABERRD 


QTD3 


$$ABERBD 


QTF3 


$$ABERR7 


PXB4 


$$AEERRG 


TUJ3 


$$RAST03 


WHH2 


$$BAST10 


X0C2 


$$ABERRT 


TBJ5 


$$ABERRB 


MZB4 


$$BAST02 


WDB4 



Label 

FINDPART 

FINDTASK 

FINUP 

FOKTERR 

FREE 

FREEPIB 

FREEREAL 

FSA VALID 

F01 

F010 

F02 

F03 

GET COW 

GETIHE 

GOQUIET 

GOTREQID 

G01 

HANDLECC 

HANDLEMC 

HANDLEMC 

HARDWAIT 

HDROO 

HOPPERCH 

BED WAIT 

H01 

H1RRTN 

IGNORE 

IJBERX20 

INCOMPSC 

INDPERM 

INITOO 

INITOO 

INITOO 

INITOO 

INITOO 

INITOO 

INITOO 

INITOO 

INITOO 

INITOO 

INIT02 

INIT05 

INIT05 

INIT05 

INIT05 

INIT05 

INITIO 

INITIO 

INITIO 

INITIO 

INITIO 

INITIO 

INITIO 

INIT15 

INIT15 

INIT15 

INIT15 

INIT15 

INIT20 

INIT20 

INIT20 

INIT20 

INIT25 



Phase 


Location 


$$RAST09 


XSH3 


$$RAST02 


MA3 


$$ABERBI 


TDJ2 


^SABERRT 


TBG2 


$$BAST10 


XTf4 


$$RAST06 


XIC4 


$$BASTC9 


XSB3 


$$HAST03 


lfGG2 


!^$ABERE1 


PLA3 


S$ABERR1 


PLE3 


$$ABERB1 


PLG4 


$$ABERR1 


PLH4 


$$RAST02 


liDBS 


$SRAST0 3 


WJE3 


$$RAST03 


WJD3 


$$RAST02 


WDC4 


$$ABERB1 


PLF2 


$$RAST00 


?DB2 


5;$RAST00 


VBB3 


$$BAST03 


«FC1 


$$RASTO0 


iBm 


$$ABERA7 


MHE4 


$$ABERRE 


QXF3 


$$RAST00 


?AF5 


!f?.^ABERRl 


PLF3 


$$RAST03 


WEC4 


$$ABEBRY 


RBH5 


$$ABIRBV 


BJB1 


$$ABERAN 


TXF4 


JllABERAN 


TXC2 


$$ABERRK 


MAB3 


$$ABERA4 


MCB3 


^?^ABERBA5 


MFB1 


^^ABERAI 


MKB3 


$$ABERRJ 


MNB1 


$SABERA2 


MQE3 


$$ABERA3 


MSF3 


$$ABERAA 


M?B1 


^$RAST01 


?FB5 


$$RAST08 


XNBI 


SSABERRJ 


MNA2 


$$ABERRK 


MAD3 


$$ABERA4 


MCC3 


$$ABERRJ 


MNA3 


$$RAST01 


VFH5 


$$RAST08 


XNF1 


$$ABERBK 


MAE3 


S$ABERA4 


MCD3 


$$ABERRA5 


MFA3 


$$ABERBJ 


MNB3 


$$ABERAA 


M?F1 


.t$RAST01 


VFJ5 


$$RAST08 


XNJ1 


$$ABERRK 


MABU 


J?$ABEBA4 


MCB5 


Jl;$ABERRA5 


MFB3 


$$ABERRa 


MND3 


$$ABEBAA 


M?G1 


$$ABERRK 


MAFa 


$$ABERBA5 


MFF3 


$$ABEBBJ 


MNF3 


$$ABERAA 


MVJ1 


$$ABIRBK 


MAG4 
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Label 

INIT25 

I NIT 30 

INIT30 

I1SIT30 

INIT30 

INIT35 

INIT35 

INIT35 

I NIT 40 

INIT45 

INBQ 

INSERT 

INTCH 

INTEBV 

INTEEVEN 

INTFCEOO 

INTFCE15 

INTBEQ 

INTBEQ 

INTEEQ 

INTEEQD 

INTBEO 

INTVEN 

INT01 

INVALID 

INVALID 

lOBECOO 

lOEEQOO 

lOEEQOO 

ICBECOO 

IOEEQ01 

IOBEC02 

IOEEQ05 

IOEEC07 

lOBEQlO 

IOEEQ10 

I0EEC15 

IOEEQ20 

lOETN 

ICBTN 

lOETN 

lOETN 

lOETY 

lOETI 

ICWAIT 

IPLEXIT 

IBEXIT 

KOI 

LACSii 

LASPHAS 

LDPSii 

LEEAST02 

LOADMOD 

LOADMOD 

LCADTEST 

LOADTEST 

LCADOO 

LOAD03 

LCGEAD 

LCGLCOP 

LOGLOOP 

LCGOK 

LOWBITON 

L01 



Phase 


Location 


S$AEEEA4 


MCG5 


$$AEEBEK 


MAH4 


$$ABEPA4 


MCB'4 


$$AEEERA5 


MFG3 


$$ABEEFJ 


MNA4 


$$ABEBEK 


f5AJ4 


$$AEEEAa 


MCEa 


$$ABEERJ 


MNB4 


S$AEIEA4 


MCFa 


$$ABEEA4 


MCHa 


$$ABEEES 


RGC3 


$$AEEERB 


MZF1 


$$ABEBE7 


PXG1 


SSAEEEET 


TAG2 


$$ABEEAN 


TXF1 


$$EAST01 


VGB1 


$$EAST01 


VGF1 


$$ABEERS 


RFAU 


$$AEEEEF 


TKC3 


$$AEEERH 


UBH3 


$$ABERRU 


TGB3 


$$AEERRY 


BDB3 


$$ABERRB 


MYD2 


$$ABERRJ 


MNF1 


SSAEEEAN 


TWH5 


$$EAST10 


XVJ4 


SSAEERAI 


MKD4 


$$ABEBA2 


MRB2 


$$ABERA3 


MTD1 


$$EAST08 


XNE2 


$$ABEEA1 


MLA1 


$$AEERA1 


MKJ4 


$$ABERA3 


MTE2 


$$AEERA2 


MRE2 


$$AEERA3 


MTA3 


$$RAST08 


XNF3 


$$RAST08 


XNH4 


$$ABERA1 


MLK1 


$$ABEEE3 


PRB1 


$$AEERR4 


PDB1 


$$ABEERF 


TNBa 


$$AEEEEQ 


TTB2 


$$ABERRP 


TRC3 


$$ABEERQ 


TTC2 


$$AEEREP 


TRCa 


$$RAST00 


VCD5 


$$AEEEES 


RFJ3 


$J5AEIRR1 


PLG3 


$$AEEREM 


0CG2 


$$ABEREA 


MXF3 


$$ABERRO 


QJD1 


$$EAST00 


VDFU 


$$EAST00 


VCE1 


$$EAST03 


raG2 


$$EAST00 


VCD1 


$$EAST03 


WHB2 


$$EAST00 


VAC 2 


$$RAST03 


WEB1 


$$EAST10 


XTB3 


$$EAST09 


XEB2 


«$BAST11 


X1F3 


$$AEEEEN 


QSC4 


$$EAST11 


XWG2 


$$ABEfiEl 


PLK3 



Label 

L01 

MAINET 

MAINOO 

MAINOO 

MAINOO 

MAINOO 

MAINOO 

MAINOO 

MAINOO 

MAINOO 

MAINOO 

MAIN05 

MAIN05 

MAIN05 

MAIN05 

MAIN05 

MAIN07 

MAIN10 

MAIN10 

MAIN15 

MAIN20 

MARKCHEC 

MDEOO 

MDR05 

MDR10 

MESSWTE 

MQDCCW 

MODESTAT 

MOVE 

MOVE 

MQ135 

MSGDETOO 

MSGDET05 

MSGDET10 

MSGWTE 

MSGWTE 

MSGWTE 

MSGWTE 

MSGWTE 

MSGWTE 

MSGWTE 

MSGWTE 

MSGWTE 

M01 

M01 

M01 

NEXTAVOO 

NEXTAVOO 

NEXTAVOO 

NEXTAV10 

NEXTAV20 

NEXTAV25 

NEXTAV25 

NEXTAV25 

NEXTAV30 

NEXTAV35 

NEXTAV35 

NEXTAV35 

NEXT1 

NINITIAL 

KOCANCEL 

NOCCB 

NOCCB 

NOCHANFN 



Phase 

$$ABERR3 

$$ABEHEI 

$SABEFBK 

$$ABEEA4 

S.'RABEREAS 

$$ABEEA1 

^!^ABERRJ 

$$ABERA2 

:f;!l)ABERAA 

S$RASTC1 

^?^RAST08 

HS^ABEERK 

$$ABERA4 

f$ABERA2 

$$ABERAA 

$$RAST01 

SSABERA4 

$SABERRK 

$$RAST08 

$$EAST08 

$$RAST08 

!P^ABERAN 

S$ABEERA5 

$$ABEBEA5 

f$ABERRA5 

$$RAST11 

$$ABERBV 

$$RAST03 

SIABEEEM 

$$ABERRC 

$$RAST03 

$$ABERA2 

$$ABERA2 

!;$ABERA2 

$$ABEEE1 

$$ABERR2 

$$ABEEB3 

$$ABEER4 

^$ABERR5 

$5;aberes 

$$ABEEES 

.«j»;abeebs 

$$ABEERI 
;6$ABEEE1 
$$ABEER3 
$$ABEEE5 

SfSABERAl 
$^ABEEA3 
$$EAST08 
$$ABEEA3 
$$ABEEA3 
$$ABEEA1 
$$ABEEA3 
$$EAST08 
^SABERAI 
$$ABEEA1 
$$ABEEA3 
$$RAST08 
$$ABEEEM 
$$ABEEAN 
$$RAST02 
$$ABEEBM 
$$ABEEEV 
$$ABEREY 



Location 

PQC3 

TC J 1 
MAC1 
MCC1 
MEC1 
MKC1 
MMC1 
MQB1 
MUC1 
VFB1 
XME1 
MAF1 
MCE1 
MQF1 
MUA2 
VFE2 
MCJl 
MAB2 
XMH1 
XME2 
XMA3 
TXB5 
MEBa 
MED5 
MEF5 
XWB1 
RKE1 
WJG3 
QCC3 
QNJ4 
WED5 
MQB4 
MQF4 
MQHa 
PMF1 
PNE5 
PEES 
PTD1 
PVC3 
EFF2 
RGGa 
RHF2 
TDH4 
PMB1 
PQH2 
PVE2 

MLE3 
M$B4 
XPB2 
MSF4 
MSE4 
MLC4 
MSE5 
XPD3 
MLE5 
MLG5 
MSH5 
XPF4 
QCB2 
TWH3 
WAJ4 
QCA1 
EKJ3 
EDP4 
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Label 

NODEQ 

NCDUAL 

NOFEED 

NOLOG 

NCLSS 

NOMSG 

NONRiC 

NCOBB 

NOQOIP 

KCBECERP 

NOEECERR 

NCREING 

NCRETRN 

N0SVC70 

NCTFIRST 

NOTIC 

NOTMPS 

NCTOEEE 

NOTPCOL 

NCTUSED 

NOTUSEDA 

NCT135 

NBFRTY 

NXTEBPIB 

N01 

N01 

OBEEC 

0BREC2 

OERIT 

OBEREC 

0EEREC2 

OBRUHD 

OKERET 

OPVNT 

OVERRUN 

CVERBUN 

PATHSEL 

PATHSEL1 

PCHCEECK 

PCHFIED 

PCHREP 

PCHEEPP 

PCHRIPS 

PCURIN 

PERMCCB 

PERMFR 

PERM ERR 

PERMERR 

PHASE2 

PHASI3 

PHASIC 

PHIPPTST 

POSCHECK 

POSTDIS 

POSTPIB 

PREPRINT 

PREPUNCH 

PRICHECK 

PRICHKR 

PRICHKO 

PRICHK1 

PRICHK2 

PBICHK3 

PRIMREP 



Phase 


Location 


$$RAST13 


YAB2 


$$AEERRS 


RHB4 


$$AEERRC 


QQB3 


$$ABERRN 


QEE5 


SSAEERET 


TBH3 


$$RAST10 


XDF1 


$$ABERRT 


TAG3 


$$AEERAN 


TWF5 


$$ABERRV 


EJF5 


?r;$A£ERBE 


QXA2 


$$ABERRC 


QMA4 


$$AEERRA 


MWG1 


$$AEEBE7 


PZE4 


$$ABERE1 


FKA2 


$$EAST03 


WJE1 


$$ABEHEI 


TDD1 


$$EAST11 


XWJ1 


$$AEEEED 


QSE2 


$$EAST09 


XQF3 


$$AEEER7 


PXE2 


$$ABERAN 


TXB3 


$$RAST03 


WEC2 


$$AEERR4 


PTG3 


siEAsno 


XTB4 


$$AEERE1 


PMC1 


$$ABERRa 


PTA2 


$$AEERAN 


TYG4 


$$ABERAN 


TYHa 


$$AEERAN 


TYC4 


$$ABERE7 


PZF4 


$$ABERR7 


PZGa 


$$ABEERG 


TUE2 


$$ABERR1 


PKF3 


$$AEERRS 


RGF4 


$$ABERRY 


RDJ3 


$$AEERET 


TBC3 


$$ABERRC 


QMHa 


$$AEEREC 


QMJi* 


$$ABEREC 


QND2 


$$AEEREC 


QND3 


$$AEERRD 


QRK3 


$$ABERRD 


QRJ3 


$$AEERED 


QRHa 


$$ABERRS 


RFJ1 


$$ABERAN 


TYEI 


$$AEEREG 


TUF3 


$$ABERR7 


PZA2 


$$AEERAN 


TWD5 


$$ABEERt 


PL J 2 


$$ABERR1 


PLH5 


$$AEERR1 


PKH3 


$$ABERRD 


QRJ2 


$$AEERRC 


QNG1 


$$ABERR!! 


QBH2 


$$RAST02 


WAB5 


$$AEERRD 


QRE4 


$$ABERRD 


CRK2 


$$AEERRC 


QNH1 


$$ABERRC 


QNC5 


$$ABERRC 


QNA4 


$$AEERRC 


QNB4 


$$ABERRC 


QNB5 


$$AEERRC 


QND5 


$$ABERRD 


QSB5 



Label 


Phase 


Location 


PRINREPA 


$$ABERRD 


QSC5 


PRINTLST 


$$ABERRN 


QEA3 


PROTCHK 


$SABEERA 


MWJ2 


PEPFCAE 


$$ABERRP 


TQJ4 


PEPFCB 


$SABERRP 


TQE4 


PRPLB10 


$$ABERRP 


TQEt 


PRPMOLT 


$$ABERRP 


TRA1 


PRPMULT 


$$ABERRQ 


TSA3 


PRPPLB 


$$ABERRP 


TQA1 


PRPPLB15 


$$ABEREP 


TQG1 


PRPPLB20 


$$ABERRP 


TQJ1 


PRPPLB25 


$$ABERRP 


TQB2 


PRPUCB 


$$ABERRQ 


TSF3 


PSTBOF 


ff^SABERRS 


RGJ3 


PSTERR 


$$ABERRS 


RFD2 


PUB SCAN 


$$EAST00 


VEE2 


PUNCHREP 


$$ABERRD 


QTB3 


Q0IET145 


$$RAST03 


1JF3 


Q01 


^$ABEEB1 


PME1 


RASIO 


$$EAST10 


XYE3 


RAST02 


$$EASTOO 


VDG4 


ECHECK 


$$ABEREE 


QXE5 


ECOMMON 


$flEAST04 


XDC2 


ECOMMON 


$!f^EAST05 


XGC2 


ECOMMON 


$$EAST06 


XHB5 


RCOMMONA 


$$RAST05 


XGD2 


ECOMMON A 


$$EAST06 


XHE5 


ECOMMONB 


$$EAST04 


XDH2 


ECOMMONB 


$$EAST05 


XGH2 


ECOMMONB 


$$EAST06 


XJDI 


EDHDEOO 


$$ABEEA1 


MKC4 


EDHDEOO 


$$ABEEA3 


MTC1 


EDHDEOO 


$$EAST08 


XNC4 


EDRCD 


$$ABEEE2 


PNH1 


RDVER 


$$ABEEE5 


PVA4 


READERR 


$$ABEERC 


QNC1 


REALLOC 


S$EAST09 


XSB1 


EEALL0C1 


^tEASTOS 


XSB2 


RECERR 


$$ABEEED 


QSA3 


RECOERE 


^$ABEEAN 


TXA2 


RECOVERY 


$$ABEEAN 


TWE3 


RECTSTOO 


$$ABEERJ 


MMB4 


EECTSTOO 


$$ABEEAA 


MUB4 


EECTST05 


$$ABERRJ 


MMC5 


EECTST05 


^^ABERAA 


MUD4 


EECTST10 


$SABERRJ 


MMF5 


RECTST10 


$$ABERAA 


M0G4 


RECTST15 


$$ABERRJ 


MMH5 


RECTST15 


:^?>?ABERAA 


MUJ4 


EECTST20 


SII^ABERRJ 


MME4 


EECTST20 


$$ABERAA 


MUE5 


EECTST25 


$$ABERAA 


MUGS 


EECTST30 


$$ABERRJ 


MMK5 


EEC VEER 


$$ABERRI 


TFG2 


REDUCESZ 


$$RAST13 


YAB4 


REFAIL 


$$ABERRI 


TFC3 


RELOCATE 


$$RAST10 


XUB1 


REPERR1 


$$ABERRO 


QHB5 


REPOERR 


$$ABERAG 


NZC1 


REQUEST 


$$RAST10 


XVG3 


RESPTYP 


$$RAST10 


XUB4 


RESTART 


$$RASTOO 


VCF2 


RESTCQP 


$$ABERRF 


TNE3 


RESTORE 


$$RAST03 


WGH4 


Append: 


Lx A: Label 
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Label 

EISTS 

RETINT 

Ej&TOJF 

RITRY 

RETRY 

BITRI 

RETRI 

RETRY 

RETRY 

RETRY 

RETRYIT 

RETRY2 

RETURN 

RETURN 

RINGEELL 

RINGTIO 

RLOG 

RMESSAGE 

RHODE 

RM0DE1 

RPRNTR 

RSTLOAD 

RTNTEST 

RTYEXIT 

RIYONE 

RTYOSE 

RTYONE 

R01 

R1442 

R1'44 2A 

R1442E 

R2501 

R250 1A 

R2501B 

R2520 

R252 0A 

R252CB 

R2520C 

R254C 

R2540B 

R3211 

R3211A 

R321 1B 

R3211C 

R350 5 

R354C 

R3886 

SAVEIO 

SCAN 

SCAN 

SCANTAB 

SCHREOO 

SCURTN 

SDROER 

SECCFECK 

SECCHKR 

SECCHKO 

SECCBK1 

SECCHK2 

SECCHK3 

SECDIF 

SECPPTST 

SECRIP 

SEKCB 

SENSE2 



Phase 


Location 


$$AEERRM 


QCE1 


$$AEERRG 


TVD4 


$$AEERRI 


TDG4 


$$ABERR7 


PYE4 


$$ABERRW 


REB3 


.tSAEERRV 


RKD4 


$$ABERRT 


TBA5 


$$AEEBRG 


T?A1 


$ji;aeeran 


TXE3 


$$ABERAN 


TYB2 


$5^AEERAN 


TYD2 


$$ABERAN 


TXG3 


$$AEERR7 


PZF2 


$*SBAST03 


WHG3 


$SRASTOO 


VAJ2 


$$RASTOO 


VAE4 


$$EAST04 


XAA4 


$$RASTOO 


VAB3 


SSRASTOO 


?CG3 


$$RASTOO 


?CH3 


$$RAST04 


XCB1 


S^^AESRRC 


QMH1 


SSRASTOO 


¥AF2 


SSABEBRU 


TJD5 


$$ABERRC 


QNB3 


$$AEERRY 


RBC1 


$$ABERRW 


RED3 


SSAEERRI 


PKF4 


$$RAST04 


XCB2 


$$RAST04 


XCE2 


:$$RAST04 


XCD3 


$$RAST04 


XBB2 


$$RAST04 


XBE2 


$$RAST04 


XBD3 


$$RAST05 


XEB4 


$$RAST05 


XEE4 


$$RAST05 


XED5 


$$RAST05 


XEF5 


$$RAST04 


XBB1 


$$RAST04 


XBF2 


$$RAST05 


XGB4 


$$BAST05 


XGG4 


$$RAST05 


XGH5 


$$RAST05 


XGE5 


$$RAST06 


XHC2 


$$RAST06 


XIC2 


$$RAST06 


XJH3 


$$RASTOO 


VEE2 


$$AEERAN 


TXC4 


$$ABERAN 


TXD4 


$$RAST02 


WCC4 


$$RAST02 


WCB1 


$$ABERRS 


RGB1 


$$AEERR7 


PYH4 


$$ABERRC 


QPA3 


$$AEERRC 


QPE4 


$$ABERRC 


QPC3 


$$ABERRC 


QPD3 


$$AEERRC 


QPD4 


$$ABERRC 


QPF4 


$$AEERRC 


QMF1 


$$ABERRD 


QEH3 


$$AEERRD 


QTB2 


$$AEERRB 


MYC2 


$$ABERRa 


PSC5 



Label 

SENSTSTS 

SET CODE 

SETEBL 

SETPSN 

SETUP 

SETUP 

SHIFT 

SIMPATTN 

SIO 

SIZEREAL 

SPFKREP 

SRMSG 

SSCCB 

SSINSERT 

START 10 

STGERR 

STGEXIT 

STKEXT 

STKSETUP 

STKSET1 

STKSET2 

STKSET3 

SUPRET 

SUPRET 

SUPRET 

SUPRET 

SUPRETRY 

SVC 5 

SVC5 

SVC5 

SVC5 

S01 

TAPEM0DE2 

TAPEOO 

TAPE10 

TAPE15 

TAPE20 

TAPE25 

TAPE35 

TAPE40 

TEST 

TEST 

TESTDAT 

TESTDMC 

TESTFE 

TESTINT 

TESTIO 

TESTLOG 

TESTQUIP 

TEST1 

TEST450 

TIO 

TPEEP 

TRNONINT 

TSTBSY 

TSTCCC 

TSTEXT 

TSTEXT 

TSTFDCHK 

TSTINTR 

TSTPSN 

TSTSSL 

TSTTRG 

TST03U 

T01 



Phase 


Location 


SSABERRT 


TAF1 


$^RASTn2 


«CF5 


^^tABERRI 


TFE4 


J^f^ABERRI 


TEG2 


$$RAST0O 


VCC1 


$$RAST03 


WHH1 


$$ABERRC 


QMF3 


$$ABERRC 


QMB4 


15$ABERRD 


QSD1 


S$PAST09 


XQB5 


$$RAST03 


WHE3 


$$ABERR7 


PYK2 


15$ABERRS 


RHB3 


JKSABERRD 


QTE2 


$,$ABERRN 


QEJ1 


:5$RAST03 


WGB2 


S$RAST03 


WHB1 


$$ABERRC 


QPE2 


SSABERRC 


QQB2 


.tSABERRC 


QQC2 


$$ABERRC 


QQE2 


$$ABERRC 


QQF2 


'SSAPERRD 


QSC4 


$$ABERRS 


RGJ5 


^!^ABERRI 


TDD5 


?5$ABERRH 


UBF2 


$$ABV,E'RJ) 


QRK4 


$$ABERRD 


QSE3 


$35ABEREE 


Q?D3 


$$ABERRE 


QWJ3 


$$ABERR? 


RJE2 


$$ABERR4 


PTA4 


$$ABERRT 


TBE1 


$$ABERAA 


MYE3 


$$ABERAA 


MVI3 


$$ABERAA 


MVG3 


$$ABERAA 


MVA4 


.^SABERAA 


MVC4 


$$ABIRAA 


MVE5 


SSABERAA 


M?H4 


$$ABERR2 


PPK2 


S$ABERRC 


QNK4 


$J^ABERRB 


MYE1 


$$RAST02 


WAH1 


^J5RAST02 


WDC1 


$$ABERRY 


RDB2 


$$RAST06 


XHE3 


$.tABERRN 


QEA1 


$SABERRW 


REJ1 


$$ABERRC 


QPB1 


$$ABERRC 


QQB1 


$$ABERRD 


QSE1 


f6$ABERRA 


MWD5 


$$ABERRS 


RFC5 


$$RAST02 


WAC2 


$$ABIRRY 


RAK1 


$$ABERRP 


TQC2 


$$ABERRQ 


TSA4 


$$ABERRC 


QMD4 


$$ABERRI 


TEF1 


$$ABERRI 


TEG1 


$$ABERRB 


MZG3 


$$ABERRN 


QFB1 


S$ABIRRY 


RCA2 


$$ABERR1 


PLB2 
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Label 

TC3 
TC6 

Tia5ETN 
T155BTN 

UNBUSY 

UNCKCK 

UNDETEER 

UNDEIR 

UNDETE 

ONDEIR 

ONDEIE 

UNDETE 

UNDEIR 

UNDTB 

ONKN 

UNPACK 

UNSUrTD 

UNUSENS 

UFDATCCW 

UPDATE 

UPDATE 

UPDATIT2 

UPDATSDB 

UPDPUB 

UPDP13B 

UPDSCAN 

UFSDE1 

UESTST 

¥EEIF 

WEITEMSG 
IJBITIREP 
WETHDROO 
WBTHEROO 
WETHDROO 
WETBICOO 
WETRICOO 
«ETRIC05 
MRTSEQOO 

XCANCEL 

XCANCEL 

XCANCEL 

XCANCEL2 

XCANCEL2 

XIXIT 

XEXIT 

XEXIT 

XFETCH 

XEETCH 

XFETCH 

XIGNCEE 

XIGNORE 

XIGNCEE 

XIGNORE 

XIGNCEE 

XIGNORE 

XIGNCEE 

XIGNORE 

XIGNCEE 

XIGNCEE 

XIGNCEE 

XIGNOEE 

XIGNCEE 



Phase 


Location 


$$ABERB2 


PPA2 


$$AEEER2 


PPB2 


$$EAST03 


WFB2 


$$EAST03 


iEB3 


$$EAST02 


WAG 2 


$$ABEERG 


TUE1 


$$AEEEEU 


TGH4 


$$ABEEE7 


PXB2 


$$AEEREI 


TCB4 


$$ABEEEI 


TEF4 


$$AEEEEG 


TUF2 


$$AEERAN 


TWJ4 


$$ABEREH 


UAB3 


$$AEEEES 


EEC 3 


$$ABEEEB 


MZE4 


$$EAST11 


XWD2 


$$AEEERT 


TBG5 


$$ABEREY 


EBH3 


$$AEEREU 


TGD3 


$$EAST03 


WFE3 


$$EAST11 


XWC4 


$f AEEEAN 


TYK1 


$$ABEEAN 


TZC1 


$$EASTOO 


VEE3 


S$EAST02 


WAG5 


$$EAST02 


WCD4 


$$AEEEAN 


TXJ1 


$$ABEEEY 


EDH1 


$$ABERRB 


MZF2 


$$RAST13 


YAH3 


$$ABERED 


QEE3 


$$ABEEA1 


MKB4 


$$AEEEA3 


MTB1 


$$EAST08 


XNB4 


$$AEEEA1 


MKE5 


$$RAST08 


XNB2 


$$AEEEA3 


MTF5 


$$ABEEA3 


MTB5 


$$ABEREJ 


HPD1 


$$AEEEA2 


MQJ2 


$$ABEEAA 


MUJ3 


$$AEEEAA 


MVD2 


$$AEEEEO 


QJK3 


$$BAST04 


XAE2 


$$EAST05 


XEE2 


$$EAST06 


XJB4 


$$EAST04 


XAJ2 


$$EAST05 


XEJ2 


$$EAST06 


XJE4 


$$AEEEEJ 


MPD2 


$$ABEEA2 


MQE5 


$$AEERA3 


MSC3 


$$ABEEAA 


MVC2 


$$AEEEEA 


MWE5 


$$ABEEE1 


PLB1 


$$AEEEE2 


PNJ4 


$$ABEEE3 


PED2 


$$AEEER4 


PTJ2 


$$ABEEEN 


QFH5 


$$AEEEEO 


QJJ3 


$$ABEEEY 


BBG1 


$$AEERES 


EGAS 



Label 


Phase 


Location 


XIGNOEE 


$$ABEEET 


TBC5 


XIGNOEE 


$$ABEBEI 


TDF5 


XIGNOEE 


$$ABEEBU 


TJF5 


XIGNOEE 


$$ABEEEF 


TNC5 


XIGNOEE 


$$ABEEEP 


TEH1 


XIGNOEE 


?f;$ABEERQ 


TTF4 


XIGNOEE 


$$ABEEEG 


TVC1 


XIGNOEE 


$$ABEEAN 


TYF5 


XIGNOEE 


$$ABEEEH 


UBH2 


XIOEEE 


$$ABEEEF 


TNJ3 


XIOEEE 


$$ABEEBP 


TEF5 


XIOEEE 


$$ABEEEQ 


TTC4 


XLDMOD 


$$EAST05 


XEK3 


XLDMOD 


$%EAST06 


XJH5 


XLDTST 


$$EAST04 


XAF3 


XLDTST 


$$EAST05 


XEF3 


XLDTST 


$$EAST06 


XJD5 


XMSG 


$$RAST04 


XAH2 


XMSG 


$$RAST05 


XEH2 


XMSG 


$$EAST06 


XJD4 


XNOMSG 


$$EAST04 


XAE3 


XNOMSG 


$!SRAST05 


XEE3 


XNOMSG 


$$RAST06 


XJC5 


XEETEY 


$$ABEREJ 


MPB2 


XEETEY 


$$ABEEA2 


MQC5 


XEETEY 


$$ABEEAA 


MVA2 


XXX EEE 


$$ABEEEY 


EBF4 


ZEEOCT 


J^SABEERI 


TDB1 


ZXNOEEP 


$$ABEEEE 


QWH3 
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APPENDIX E: 



ERROR MESSAGE CROSS REFERENCE 



Message Phase 



Chart 



0P08 



0P09 



OPIO 



OPll 



$$ABERAE 


'tape ERP) 


NN 


$$ABERAH 


.tape ERP) 


PA 


$$ABERAN 


3886 OCR ERP) 


TW 


$$ABERRB 


'disk ERP) 


MW 


$$ABERRF 


'3211 printer ERP) 


TK 


$$ABERRG ( 


'3505,3525 ERP) 


TU 


$$ABERRH 


2245 printer ERP) 


UA 


$$ABERRI 


2 495 tape cartridge 






reader ERP) 


TC 


$$ABERRS 


1412,1419 ERP) 


RF 


$$ABERRT ( 


1287,1288 ERP) 


TA 


$$ABERRU ( 


1017,1018 ERP) 


TG 


$$ABERRV 


'2671 paper tape ERP) 


RJ 


$$ABERRW 


console device ERP) 


RE 


$$ABERRY ( 


unit record ERP) 


RB 


$$ABERR1 i 


data cell ERP) 


PJ 


$$ABERR7 


(3540 diskette ERP) 


PX 


$$ABERAE ( 


tape ERP) 


NN 


$$ABERAH 


tape ERP) 


PA 


$$ABERAN { 


3886 OCR ERP) 


TW 


$$ABERRB 


disk ERP) 


MW 


$$ABERRF ( 


3211 printer ERP) 


TK 


$$ABERRG { 


3505,3525 ERP) 


TU 


$$ABERRH 


2245 printer ERP) 


UA 


$$ABERRI ( 


2495 tape cartridge 






reader ERP) 


TC 


$$ABERRS ( 


1412,1419 ERP) 


RF 


$$ABERRT ( 


1287,1288 ERP) 


TA 


$$ABERRU 


1017,1018 ERP) 


TG 


$$ABERRV ( 


2671 paper tape ERP) 


RJ 


$$ABERRW ( 


console device ERP) 


RE 


$$ABERRY \ 


unit record ERP) 


RB 


$$ABERR1 ( 


data cell ERP) 


PJ 


$$ABERR7 


3540 diskette ERP) 


PX 


$$ABERAC ( 


tape ERP) 


NE 


$$ABERAE ( 


tape ERP) 


NN 


$$ABERAF ( 


tape ERP) 


NT 


$$ ABE RAH ( 


tape ERP) 


PA 


$$ABERAN ( 


3886 OCR ERP) 


TW 


$$ABERRB i 


disk ERP) 


MW 


$$ABERRF ( 


3211 printer ERP) 


TK 


$$ABERRG ( 


3505,3525 ERP) 


TU 


$$ABERRH \ 


2245 printer ERP) 


UA 


$$ABERRI ( 


2495 tape cartridge 






reader ERP 


TC 


$$ABERRU { 


1017,1018 ERP) 


TG 


$$ABERRV ( 


2671 paper tape ERP) 


RJ 


$$ABERRW { 


console device ERP) 


RE 


$$ABERRY ( 


unit record ERP) 


RB 


$$ABERR1 ( 


data cell ERP) 


PJ 


$$ABERR7 ( 


3540 diskette ERP) 


PX 


$$ABERAB ( 


tape ERP) 


NA 


$$ABERAC ( 


tape ERP) 


NE 


$$ABERAF ( 


tape ERP) 


NT 


$$ABERAH ( 


tape ERP) 


PA 


$$ABERAI ( 


tape ERP) 


PE 


$$ABERRB ( 


disk ERP) 


MW 


$$ABERRF ( 


3211 printer ERP) 


TK 


$$ABERRG ( 


3505,3525 ERP) 


TU 



0P12 



0P13 



0P14 



0P15 



0P16 



0P17 



0P18 



0P19 



$$ABERRH 


[2245 


printer ERP) 


UA 


$$ABERRI 


'2495 


tape cartridge 






reader ERP) 


TC 


$$ABERRU 


;ioi7 


,1018 ERP) 


TG 


$ $ABERRV 


[2671 


paper tape ERP) 


RJ 


$$ABERRY 


[unit 


record ERP) 


RB 


$$ABERR5 


[data 


cell ERP) 


PV 


$$ABERR7 


3540 


diskette ERP) 


PX 


$$ABERRB 


[disk 


ERP) 


MW 


$$ABERR5 


[data 


cell ERP) 


PV 


$$ABERRB 


,disk 


ERP) 


MW 


$$ABERR5 


(data 


cell ERP) 


PV 


$$RAST10 


(CCH message writer) 


XS 


$$ABERAE 


[tape 


ERP) 


NN 


$$ABERAH 


[tape 


ERP) 


PA 


$$ABERRB 


[disk 


ERP) 


MW 


$$ABERRT 


[1287 


,1288 ERP) 


TA 


$$ABERRY 


[unit 


record ERP) 


RB 


$$ABERR1 


[data 


cell ERP) 


PJ 


$$ABERRB 


[disk 


ERP) 


MW 


$$ABERR4 


[data 


cell ERP) 


PS 


$$ABERRB 


[disk 


ERP) 


MW 


$$ABERR5 


[data 


cell ERP) 


PV 


$$ABERAE 


[tape 


ERP) 


NN 


$$ABERAH 


[tape 


ERP) 


PA 


$$ABERRB 


[disk 


ERP) 


MW 


$$ABERR1 


(data 


cell ERP) 


PJ 


$$ABERAE 


'tape 


ERP) 


NN 


$$ABERAH 


[tape 


ERP) 


PA 


$$ABERAN 


[3886 


OCR ERP) 


TW 


$$ABERRB 


[disk 


ERP) 


MW 


$$ABERRF 


[3211 


printer ERP) 


TK 


$$ABERRG 


[3505 


,3525 ERP) 


TU 


$$ABERRH 


[2245 


printer ERP) 


UA 


$$ABERRI 


(2495 


tape cartridge 






reader ERP) 


TC 


$$ABERRS 


[1412 


,1419 ERP) 


RF 


$$ABERRT 


(1287 


,1288 ERP) 


TA 


$$ABERRU 


(1017 


,1018 ERP) 


TG 


$$ABERRV 


(2671 


paper tape ERP) 


RJ 


$$ABERRW ( 


console device ERP) 


RE 


$$ABERRY ( 


unit 


record ERP) 


RB 


$$ABERR1 ( 


data 


cell ERP) 


PJ 


$$ABERR7 


(3540 


diskette ERP) 


PX 


$$ABERAE ( 


tape 


ERP) 


NN 


$$ABERAH i 


tape 


ERP) 


PA 


$$ABERAN ( 


3886 


OCR ERP) 


TW 


$$ABERRB ( 


disk 


ERP) 


MW 


$$ABERRF { 


3211 


printer ERP) 


TK 


$$ABERRG ( 


3505 


,3525ERP) 


TU 


$$ABERRH ( 


2245 


printer ERP) 


UA 


$$ABERRI ( 


2495 


tape cartridge 






reader ERP) 


TC 
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$$ABERRS 


(1412,1419 ERP) 


RF 


0P30 


$$ABERAE ( 


tape ERP) 


NN 




$$ABERRT 


(1287,1288 ERP) 


TA 




$$ABERAH ( 


tape ERP) 


PA 




$?ABERRU 


(1017,1018 ERP) 


TG 












$$ABERRV 


(2671 paper tape ERP) 


RJ 


0P31 


$$ABERAE ( 


tape ERP) 


NN 




$$ABERRW 


(console device ERP) 


RE 




$$ABERAH ( 


tape ERP) 


PA 




$$ABERRY 


(unit record ERP) 


RB 




$$ABERRA ( 


ERP monitor) 


MU 




$$ABERR1 


(data cell ERP) 


PJ 




$$ABERRI ( 


2495 tape cartridge 






$$ABERR7 


(3540 diskette ERP) 


PX 






reader ERP) 


TC 


0P20 


$$A$SUP1 
















$$ABERAC 


(tape ERP) 


NE 


0P32 


$$ABERAE ( 


tape ERP) 


NN 




$$ABERAF 


(tape ERP) 


NT 




$$ABERAH ( 


tape ERP) 


PA 




$$ABERAG 


(tape ERP) 


NX 












$$ABERRD 


(2560 MFCM ERP) 


QP 


0P33 


$$ABERRF ( 


3211 printer ERP) 


TK 




$$ABERRF 


(3211 printer ERP) 


TK 




$$ABERRY ( 


unit record ERP) 


RB 




$$ABERRI 


(2495 tape cartridge 
















reader ERP) 


TC 


0P34 


$$ABERRS ( 


1412,1419 ERP) 


RF 




$$ABERRU 


(1017,1018 ERP) 


TG 












$$ABERR2 


(data cell ERP) 


PN 


0P35 


$$ABERRT ( 


1287,1288 ERP) 


TA 




$$ABERR4 


(data cell ERP) 


PS 




$$ABERAN ( 


3886 OCR ERP) 


TW 


0P21 


$$ABERRB 


(disk ERP) 


MW 


0P36 


$$ABERRB ( 


disk ERP) 


MW 




$$ABERR4 


(data cell ERP) 


PS 




$$ABERR4 ( 


data cell ERP) 


PS 


0P22 


$$ABERR1 
$$ABERR4 


(data cell ERP) 
(data cell ERP) 


PJ 
PS 


0P37 


$$ABERRS ( 


1412,1419 ERP) 


RF 










0P38 


$$ABERRT ( 


1287,1288 ERP) 


TA 


0P23 


$$ABERR4 


(data cell ERP) 


PS 


0P39 


$$ABERRI ( 


2495 tape cartridge 




0P24 


$$ABERAE 
$$ABERAH 


(tape ERP) 
(tape ERP) 


NN 
PA 






reader ERP) 


TC 




$$ABERRA 


(ERP monitor) 


MU 


0P40 


$$ABERRU ( 


1017,1018 ERP) 


TG 




$$ABERRI 


(2495 tape cartridge 
















reader ERP) 


TC 


0P41 


$$ABERRF ( 
$$ABERRH ( 


3211 printer ERP) 
2245 printer ERP) 


TK 
UA 


0P25 


$$ABERAE 


(tape ERP) 


NN 












$$ABERAH 


(tape ERP) 


PA 


0P42 


$$ABERAE ( 


tape ERP) 


NN 




$$ABERRA 


(ERP monitor) 


MU 




$$ABERAG ( 


tape ERP) 


NX 




$$ABERRI 


(2495 tape cartridge 
reader ERP) 


TC 




$$ABERAH ( 


tape ERP) 


PA 










0P43 


$$ABERAG ( 


tape ERP) 


NX 


0P26 


$$ABERRB 


(disk ERP) 


MW 












$$ABERR1 


(data cell ERP) 


PJ 


0P44 


$$ABERAC ( 
$$ABERAH ( 


tape ERP) 
tape ERP) 


NE 
PA 


0P27 


$$ABERRA 


(ERP monitor) 


MU 












$$ABERRY 


(unit record ERP) 


RB 


0P45 


$$ABERRB ( 


disk ERP) 


MW 


0P28 


$$ABERAE 
$$ABERAH 


(tape ERP) 
(tape ERP) 


NN 
PA 


0P46 


$$ABERAG 


tape ERP) 


NX 




$$ABERAN 


(3886 OCR ERP) 


TW 


0P47 


$$ABERAE 


[tape ERP) 


NN 




$$ABERRB 


(disk ERP) 


MW 




$$ABERAH 


[tape ERP) 


PA 




$$ABERRF 


(3211 printer ERP) 


TK 












$$ABERRG 


(3505,3525 ERP) 


TU 


0P48 


$$ABERRG 


[3505,3525 ERP) 


TU 




$$ABERRH 


(2245 printer ERP) 


UA 












$$ABERRI 


(2495 tape cartridge 




0P49 


$$ABERRG 


[3505,3525 ERP) 


TU 






reader ERP) 


TC 




$$ABERR7 


(3540 diskette ERP) 


PX 




$$ABERRS 


(1412,1419 ERP) 


RF 


0P50 


$$ABERR4 


(unit record ERP) 


rA 




$$ABERRT 


(1287,1288 ERP) 


TA 


0P51 


$ $ ABERAN 


[3886 OCR ERP) 


TW 




$$ABERRU 


(1017,1018 ERP) 


TG 












$$ABERRV 


(2671 paper tape ERP) 


RJ 


0P52 


$$ABERAN 


[3886 OCR ERP) 


TW 




$$A^ERRW 


(console device ERP) 


RE 












$$ABERRY 


(unit record ERP) 


RB 


0P53 


$$ABERAN 


(3886 OCR ERP) 


TW 




$$ABERR1 


(data cell ERP) 


PJ 












$$ABERR7 


(3540 diskette ERP) 


PX 


0P54 


$$ABERAN 


(3886 OCR ERP) 


TW 


0P29 


$$ABERAE 


(tape ERP) 


NN 


0P55 


$$ABERR7 


(3540 diskette ERP) 


PX 




$$ABERAH 


(tape ERP) 


PA 


OTOOl 


$$ABERA1 
?$ABERA2 


(RMSR record writer) 
(RMSR message writer) 


MH 
MN 
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0T031 



0T05E 
0T051 

0T061 
0T071 
0T081 
0T091 
OTIOI 



OTllW 
0T12I 



0T13A 



0T14E 



0T15E 



0T16I 



0T17I 



OTISE 



$$ABERA3 
$$RAST08 
$$RAST11 

$$ABERA1 
$$ABERA2 
$$ABERA3 
$$.RAST0 8 
$$RAST11 

$$RAST08 
$$RAST11 

$$ABERA1 
$$ABERA2 
$$ABERA3 

$$RAST03 
$$RAST11 

$$RAST03 
$$RAST11 

$$RAST03 
$$RAST11 

$$RAST03 
$$RAST11 

$$RAST02 
$$RASTOa 
$$RAST05 
$$RAST06 
$$RAST07 
$$RAST10 
$$RAST12 



(RMSR record writer) MQ 
(RMSR record writer) XM 
(MCH/RMSR msg writer) XW 

(RMSR record writer) MH 
(RMSR message writer) MN 
(RMSR record writer) MQ 
(RMSR record writer) XM 
(MCH/RMSR msg writer) XW 

(RMSR record writer) XM 
(MCH/RMSR msg writer) XW 

(RMSR record writer) MH 
(RMSR message writer) MN 
(RMSR record writer) MQ 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 



0T19E $$RAST09 (MCAR DRAP) 
0T20E $$RAST13 (MCAR DRAP) 



XQ 

YA 



(CCH ERP scheduler) 
(unit record CCH ERP) 
(unit record CCH ERP) 
(unit record CCH "IP) 
(2400 CCH ERP) 
(CCH message wri ; jx) 
(3400 CCH ERP) 



$$RASTOO (MCAR/CCH) 



$$RAST02 
$$RAST04 
$$RAST05 
$$RAST06 
$$RAST07 
$$RAST10 
$$RAST12 

$$RAST04 
$$RAST05 
?$RAST06 
$$RAST10 

$$RAST03 
$$RAST11 

$$RAST09 
$$RAST13 

$$RAST03 
$$RAST11 

$$RAST03 
$$RAST11 

$$RAST03 
$$RAST11 



(CCH ERP scheduler) 
(unit record CCH ERP) 
(unit record CCH ERP) 
(unit record CCH ERP) 
(2400 CCH ERP) 
(CCH message writer) 
(3400 CCH ERP) 



(MCAR DRAP) 
(MCAR DRAP) 



WA 
XA 
XE 
XH 
XK 
XT 
XY 

VA 

WA 
XA 
XE 
XH 
XK 
XT 
XY 



(unit record CCH ERP) XA 
(unit record CCH ERP) XE 
(unit record CCH ERP) XH 
(CCH message writer) XT 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 



XQ 
XZ 



(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer XW 

(MCAR EFL and repair) WE 
(MCH/RMSR msg writer) XW 



4E10I $$ABERAA (RMSR counter update) MS 
$$ABERA2 (RMSR message writer) MN 
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APPENDIX C: DEVICE TYPE CODES 



J. — ^— — , ^„. 


r • ■ — 


—"T "*"""" 




— ^-P„ — ^- — ^„ ^ , 


1 




iDevice- 


1 


|Card Code 


Actual IBM Device 


|Typ 


e X'nn" [Device Type 


L .^ , 




i. 




^ 1 , 


Y .^. 








— ^-|. , 


I2400T9 


9-track Magnetic Tape units 




50 




I2400T7 


7-track Magnetic Tape units 




50 




I3410T9 


9-track 3410 Magnetic Tape units 




53 


[Magnetic Tape 


1 3410T7 


7-track 3410 Magnetic Tape units 




53 




I3420T9 


9-track 3420 Magnetic Tape units 




52 




|3tl20T7 

L ,^ . 


7-track 3420 Magnetic Tape units 


L^«.«. 


52 


1 


r — 








""~T 


I2495TC 


2495 Tape Cartridge Reader 




51 


|Tape cartridge Reader 


1- 




-+ 




-.| 


I1U42N1 


1442N1 Card Read Punch 




30 




I2520B1 


2520B1 Card Read Punch 




31 




12560 


2560 Multifunction Card Machine 






jcard Read punches 


12596 


2596 card Read Punch 




30 




I3525RP 
1 


3525 Card Punch (with optional read 
feature) 




32 




15425 

L ^«, , , 


Multifunction Card Unit 


L :^ 


34 


L , , 


J. ^-, 








J. 


12501 


2501 Card Reader 




10 


|Card Readers 


1 2540R 


2540 Card Reader 




11 




13504 


3504 card Reader 




12 




13505 


3505 Card Reader 




12 




L_^ ._, , 




«i 




__ J. .__ . . 


Y^ .— 








--.-|. — .„ 


I2540P 


2540 Card Punch 




21 


[Card Punches 


I2520B2 


2520B2 Card Punch 




20 




I1442N2 


1442N2 Card Punch 




22 




I2520B3 


2520B3 Card Punch 




20 




I3525P 

L ..^^ . 


3525 Card Punch 


_i 


23 


J , , ^ 


J. 








— t • ■ 


11403 


1403 Printer 




40 




I1403U 


1403 Printer with DCS feature 




42 




11443 


1443 Printer 




41 




12260 (local) 
1 


1053 Printer with 2548 Control Unit, 
MODE operand irust be entered as X'Ol* 




CO 




|3203 


3203 Printer 




4A 




13211 


3211 Printer 




43 


[Printers 


13277 


3284 or 3286 Printer with 3272 Control | 


BO 




1 (local 3270) 
1 


Unit. MODE operand trust be entered 
as X'Ol' 


1 
1 






1 3277B 


3284 or 3286 Printer with 3272 Ccntrcl| 


BO 




1 (local 3270) 

1 

1 


Unit, attached in burst itiode to a 
multiplexer channel. MODE operand 
must be entered as X'Ol' 








15203 


5203 Printer 




4C 




I5203U 


5203 Printer with UCS feature 




4D 




L ^« , 




_ 1 




_i ^ ___ 


|. ^- , 








«-.^ 


I1050A 


3210^ 3215 console Printer Keyboards 




00 


[Printer Keyboards 


L ^ 




.1 ^« 




L 


r 




t ^ 




1. 


|125D 
1 


Model 115/125 Integrated Display 
Operator Conscle 




B2 




I125DP 

t 

1 


Model 115/125 Integrated Display 
Operator Conscle with 5213 Console 
Printer attached 




B2 


[Display Operator 
[Coiiscles 
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"~T 



^ ^ 



1 [Device- | 
Card Code j Actual IBM Device |Type X'nn* [Device Type 

UNSP (Unsupported device | FF | Unsupported no burst 
1 1 (irode on irultiplexer 
1 1 1 channel 

UNSPB I Unsupported device | FF [Unsupported v^ith burst 
1 1 |irode or irultiplexer 
1 1 [channel 

^_x ^_ , _x X 


^«^ *.- — «- 1» ^ — — 

2311 [2311 Disk stcrage device | 60 | 

2314 [2314 Direct-access storage facility | 62 | 

"2314 [2319 Disk storage facility [ 62 [DASD 

2321 [2321 Data cell drive | 61 [ 

3330 [3330-1, 3330-2, cr 3333-1 Disk stcrage | 63 | 

3340 [3340 Disk Storage (General) | 68 | 

3340 [3340 Disk Stcrage Vvith 3348 Mcdel 35 [ 69 | 

3340 [3340 Disk Storage v?ith 3348 Model 70 | 6A | 

1 1 1 

1419 (1255 Magnetic Character Reader [ 72 | 

1419 (1259 Magnetic Character Reader | 72 (MICR-Magnetic Ink 
1419 [1419 Magnetic Character Reader ( 72 [Character Recognition 
1419P (1419 Dual Address Adapter Primary | 73 [devices 

[Control Unit j | 
1419S [1419 Dual Address Adapter Secondary [ 74 | 

[Control unit | | 
. ^«. X -• - - X - -^ 1. - 


«. — -.««.«. «.-.,j -. -. ^ « ^^ 1. ^ « 

2701 [2701/2715 Data Adapter Unit | DO [Teleprocessing lines 
A 1 1 |A=SAEO ccimand v<hen 

B (2702 Transmission Control Unit [ Dl (E=SAE1 coirirand enabling 

2702 C ( [ (C=SAD2 ccirnand the line 
D 1 ( (D=SAE3 coirrrand 

2703 ( 2703 Transmission Control Unit [ D2 ( 
2703 (Integrated Corrirunication Adapter ( D2 ( 

1 (Models 125/135) [ [ 

2703 [3704/3705 Corrirunication Controller in | D2 ( 

j Emulation Mode | [ 

_^ . «. L— , -.^ «. -. «,«. -. ^ —«-. X-» J 


2955 (2955 Data Adapter Unit ( D7 (Data Link for RETAIN 

^x — ^ — — ^ - 1. - X- - 


^ ^. .- .^ — ^. — • — j. — -l.- 

1017 (1017 Paper Tape Reader with 2826 [ 78 [Paper Tape Readers 
(Control Unit ( ( 

2671 [2671 Paper Tape Reader | 70 ( 

„™ + ^ ._ + . 1 „ 

1018 (1018 Paper Tape Punch with 2826 [ 79 (Paper Tape Punch 
[Control Unit | [ 

^^ „« X ^-— — — — X « «.— X «. -. 


1419 (1270 Optical Reader/Sorter ( 79 | 
1419P [1275 Optical Reader/Sorter [ 73 ( 

1287 (1287 Optical Reader ( 77 [Optical Readers 

1288 (1288 Optical Page Reader [ 77 ( 
3881 (3881 Optical Mark Reader ( 11 ( 
3886 (3886 Optical Character Reader ( 7C [ 

« . ..X—^ — ~ --.^ . — —X — X -.- -• « 


^—^ — — — — .^ — — --l- — -^ — 

3540 (3540 Diskette Input/Cutput Unit [ 80 (Diskette 

. .^ X -. X I. - - - - 


— -j. — — -. j. — 1. -. - - « 

2260 (2260 Display Station ( CO ( 

3277 [3277 Display Station; [ BO ( 

(local3270) (MODE operand need not be entered ( [ 

3277B (3277 Display Station; attached in ( BO (Display Station 

(local 3270) (burst mode to a multiplexer channel, | ( 



+ ^.™^^^.^...»„„4^»„„„„„4 



I- 

(7770 

L 



(7770 Audio Response Unit 

-X 



D3 



(Audio Response Unit 
.X 



-I 



Figure 61. Device Type Codes (Part 2 of 2)- 
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APPENDIX D: TCTAL MESSAGE CRCSS-REFERENCE LISl 



All messages issued by the DOS/VS system control programs are listed in this appendix 
with a reference to the PLM and issuing phase. For cause and action of each message, see 
DOS/VS Messages, GC33-5379, 



Message 


Phase 


PLM 




ODOIA 


$$BOCRTV 


SY33- 


-8553 


0D02I 


$$BOCRTM 


SY33- 


-8553 


0D03A 


$$BOCRTX 


SY33- 


-8553 


0D04A 


$$B0CR1V 


SY33' 


-8553 


0D05A 


$$BOCRTW 


SY33- 


-8553 


OD05A 


$$B0CRT1 


SY33- 


■8553 


0D06A 


$$BOCmY 


SY33- 


-8553 


0D07B 


$$BOCRTS 


SY33- 


■8553 


0D08A 


$$BOCRTS 


SY33- 


-8553 


0D09D 


$$BOCRTR 


SY33- 


•8553 


0D20E 


$$BOCRTE 


SY33- 


•8553 


0D25I 


$$BOCR'IE 


SY33- 


•8553 


0D26A 


$$BOCRTG 


SY33- 


•8553 


0D26E 


$$B0CR1E 


SY3 3- 


-8553 


0D29E 


$$BOCRTE 


SY33- 


-8553 


OD30A 


$$B0CR1V 


SY33- 


•8553 


0D30A 


$$B0CRT1 


SY33- 


-8553 


0D33A 


$$B0CR1E 


SY33- 


•8553 


0D3i*E 


$$BOCRTF 


SY33- 


•8553 


0D35E 


$$BOCR'IF 


SY33- 


-8553 


0D36E 


$$BOCRTF 


SY33- 


-8553 


0D97A 


$$B0CR11 


SY33- 


-8553 


OIOOA 


$$A$IPI2 


SY33- 


•8555 


OIOOI 


$IPLRT2 


SY33- 


-8555 


01 01 A 


$$A$IPL2 


SY33- 


•8555 


0l02i^ 


$$A$IPL2 


SY33- 


■8555 


0I03A 


$$A$IPI2 


SY33- 


•8555 


0I04I 


$$A$IPL2 


SY33- 


•8555 


OIIOA 


$IPLRT2 


SY33- 


•8555 


OIllA 


$IPLRT2 


SY33- 


-8555 


0I12A 


$IPLRT3 


SY33- 


-8555 


0I13A 


$IPLRT3 


SY33- 


•8555 


0I14A 


$IPLRT3 


SY33- 


-8555 


0I15A 


$IPLRT3 


SY33- 


-8555 


0I16A 


$IPtiRT4 


SY33- 


-8555 


0I17A 


$IPLRT4 


SY33- 


-8555 


0I18A 


$IPLRT2 


SY33- 


•8555 


0I19I 


$IPLRTU 


SY33- 


•8555 


0I20I 


$IPLRT5 


SY33- 


•8555 


0l2r3A 


$IPLRTI» 


SY33- 


-8555 


0I24A 


$IPLRT3 


SY33- 


-8555 


0I25I 


$IPLRT«* 


SY33- 


-8555 


0I26I 


$$BFLDR 


SY33- 


•8554 


0I26I 


$$BUFLDR 


SY33- 


-8553 


0I26I 


$i;pLRTa 


SY33- 


-8555 


0I27I 


$$BaFLD2 


SY33- 


•8553 


0I27I 


$IPLRT«* 


SY33- 


-8555 


0I28D 


$$BUFLD2 


SY33- 


-8553 


0I28D 


SIPLRT** 


SY33- 


•8555 


0I28I 


$$BFLD2 


SY33- 


•8554 


0I2M 


$IPLRTa 


SY33- 


-8555 


0I30I 


$IPLRT2 


SY33- 


•8555 


0I31A 


$IPLRT? 


SY33- 


-8555 


0I32I 


$IPLRT2 


SY33- 


•8555 


0I33A 


$IPLRTU 


SY33- 


-8555 


0I3aD 


$IPLRT«I 


SY33- 


•8555 


0I35I 


$IPLRT«» 


SY33- 


-8555 



Message Phase 



PLM 



0I37A 


$IPLRT5 


SY33-8555 


0I38A 


$IPLRT5 


SY33-8555 


0I39A 


$IPLRT5 


SY33-8555 


0I40A 


$IPLRT5 


SY33-8555 


0I41A 


$IPLRT5 


SY33-8555 


0ia2A 


$IPLRT5 


SY33-8555 


0It*3A 


$IPLRT5 


SY33-8555 


0I«*4A 


$IPLRT5 


SY33-8555 


0I4f 


$IPLRT5 


SY33-8555 


Qli^b. 


$IPLRT5 


SY33-8555 


0I47I 


$IPLRT2 


SY33-8555 


0I48I 


$IPLRT2 


SY33-8555 


0I49A 


$IPLRT5 


SY33-8555 


0I50A 


$IPLRT2 


SY33-8555 


0I51A 


$IPLRT5 


SY33-8555 


0I52I 


$IPLRT5 


SY33-8555 


0I60A 


$IPLRT3 


SY33-8555 


0I61I 


$IPLRT4 


SY33-8555 


0P08 


$$ABERAE 


SY33-8552 


0P08 


$$ABERAH 


SY33-8552 


0P08 


$$ABERAN 


SY33-8552 


0P08 


$$ABERRE 


SY33-8552 


0P08 


$$ABERRF 


SY33-8552 


0P08 


$$AB£RRG 


SY33-8552 


0P08 


$$ABERRH 


SY33-8552 


0P08 


$$ABERRI 


SY33-8552 


0P08 


$$ABERRS 


SY33-8552 


0P08 


$$ABERRT 


SY33-8552 


0P08 


$$ABERRU 


SY33-8552 


0P08 


$$ABERRV 


SY33-8552 


0P08 


$$ABERRW 


SY33-8552 


0P08 


$$ABERRY 


SY33-8552 


0P08 


$$ABERR1 


SY33-8552 


0P08 


$$ABERR7 


SY33-8552 


0P09 


$$ABERAE 


SY33-8552 


0P09 


$$ABERAH 


SY33-8552 


0P09 


$$ABERAN 


SY33-8552 


0P09 


$$ABERRE 


SY33-8552 


0P09 


$$ABERRF 


SY33-8552 


0P09 


$$ABERRG 


SY33-8552 


0P09 


$$AB£RRH 


SY33-8552 


0P09 


$$AB£RRI 


SY33-8552 


0P09 


$$ABERRS 


SY33-8552 


0P09 


$$ABERRT 


SY33-8552 


0P09 


$$ABERRU 


SY33-8552 


0P09 


$$ABERRV 


SY33-8552 


0P09 


$$ABERRW 


SY33-8552 


0P09 


$$ABERRY 


SY33-8552 


0P09 


$$ABERR1 


SY33-8552 


0P09 


$$ABERR7 


SY33-8552 


OPIO 


$$ABERAC 


SY33-8552 


OPIO 


$$ABERAE 


SY33-8552 


OPIO 


$$ABERAF 


SY33-8552 


OPIO 


$$ABERAH 


SY33-8552 


OPIO 


$$ABERAM 


SY33-8552 


OPIO 


$$ABERR£ 


SY33-8552 


OPIO 


$$ABERRF 


SY33-8552 
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OPIO 


$$ABERPG 


SY33- 


-8552 


OPIO 


$$ABERPH 


SY33- 


-8552 


OPIO 


$$ABERRI 


SY33- 


-8552 


OPIO 


$$ABERBU 


SY33- 


-8552 


OPIO 


$$ABERRV 


SY33- 


•8552 


OPIO 


$$ABERRW 


SY33- 


-8552 


OPIO 


$$ABERRY 


SY33- 


-8552 


OPIO 


$$ABERR1 


SY33- 


-8552 


OPIO 


$$ABERR7 


SY33- 


-8552 


OPll 


$$ABERAE 


SY33- 


-8552 


OPll 


$$ABERAC 


SY33- 


-8552 


OPll 


$$ABERAF 


SY33- 


-8552 


OPll 


$$ABERAH 


SY33- 


•8552 


OPll 


$$ABERAI 


SY33- 


■8552 


OPll 


$$ABERRE 


SY33- 


•8552 


OPll 


$$ABERRF 


SY33- 


-8552 


OPll 


$$ABERRG 


SY33- 


-8552 


OPll 


$$ABERRH 


SY33- 


-8552 


OPll 


$$ABERRI 


SY33- 


•8552 


OPll 


$$ABERRU 


SY33- 


-8552 


OPll 


$$ABERRV 


SY33- 


-8552 


OPll 


$$ABERB1^ 


SY33- 


-8552 


OPll 


$$ABERR5 


SY33- 


-8552 


OPll 


$$ABERR7 


SY33- 


-8552 


0P12 


$$ABERRE 


SY33- 


•8552 


0P12 


$$ABERR5 


SY33- 


-8552 


0P13 


$$ABERRE 


SY33- 


•8552 


0P13 


$$ABERR5 


SY33- 


•8552 


0P13A 


$$RAST10 


SY33- 


•8552 


OPIU 


$$ABERAE 


SY33- 


-8552 


opia 


$$ABERAH 


SY33- 


•8552 


0P14 


$$ABERRE 


SY33- 


-8552 


0P14 


$$ABERRT 


SY33- 


•8552 


0P14 


$$ABERRV 


SY33- 


•8552 


ovm 


$$ABERR1 


SY33- 


•8552 


0P1£ 


$$ABERRE 


SY33- 


•8552 


0P15 


$$ABERRa 


SY33- 


•8552 


0P16 


$$ABERRE 


SY33- 


■8552 


0P16 


$$ABERR5 


SY33- 


•8552 


0P17 


$$ABERAE 


SY33- 


■8552 


0P17 


$$ABERAH 


SY33- 


•8552 


0P17 


$$ABERRE 


SY33- 


■8552 


0P17 


$$ABERR1 


SY33- 


•8552 


0P18 


$$ABERAE 


SY33- 


-8552 


0P18 


$$ABERAH 


SY33- 


■8552 


0P18 


$$ABERAN 


SY33- 


•8552 


0P18 


$$ABERRE 


SY33- 


-8552 


0P18 


$$ABERRF 


SY33- 


-8552 


0P18 


$$ABERRG 


SY33- 


-8552 


0P18 


$$ABERRH 


SY33- 


•8552 


0P18 


$$ABERRI 


SY33- 


•8552 


0P18 


$$ABERRS 


SY33- 


-8552 


0P18 


$$ABERRT 


SY33- 


•8552 


0P18 


$$ABERRU 


SY33- 


-8552 


0P18 


$$ABERRV 


SY33- 


•8552 


0P18 


$$ABERRW 


SY33- 


-8552 


opie 


$$ABERRY 


SY33- 


-8552 


0P18 


$$ABERR1 


SY33- 


-8552 


0P18 


$$ABERR7 


SY33- 


-8552 


0P19 


$$ABERAE 


SY33- 


-8552 


0P19 


$$ABERAH 


SY33- 


-8552 


0P19 


$$ABERAN 


SY33- 


-8552 


0P19 


$$ABERBE 


SY3 3^ 


-8552 


UP19 


$$ABERRF 


SY3 3- 


-8552 


0P1$> 


$$ABERRG 


SY33' 


•8552 


QP19 


$$ABERRH 


SY33- 


-8552 
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0P19 


$$ABERRI 


SY33-8552 


0P19 


$$ABERRS 


SY33-8552 


0P19 


$$ABERRT 


SY33-8552 


0P19 


$$ABERRU 


SY33-8552 


0P19 


$$ABERRV 


SY33-8552 


0P19 


$$ABERRW 


SY33-8552 


0P19 


$$ABERRY 


SY33-8552 


0P19 


$$ABERR1 


SY33-8552 


0P19 


$$ABERR7 


SY33-8552 


0P20 


$$A$SUP1 


SY33-8552 


0P20 


$$ABERAC 


SY33-8552 


0P20 


$$ABERAF 


SY33-8552 


0P20 


$$ABERAG 


SY33-8552 


0P20 


$$ABERRE 


SY33-8552 


OP20 


$$ABERRF 


SY33-8552 


0P20 


$$ABERRI 


SY33-8552 


0P20 


$$ABERRU 


SY33-8552 


0P20 


$$ABERR2 


SY33-8552 


0P20 


$$ABERRa 


SY33-8552 


0P21 


$$ABERRE 


SY33-8552 


0P21 


$$ABERR4 


SY33-8552 


0P22 


$$ABERR1 


SY33-8552 


0P22 


$$ABERBa 


SY33-8552 


0P23 


$$ABERRa 


SY33-8552 


0P24 


$$ABERAE 


SY33-8552 


0P2a 


$$ABERAH 


SY33-8552 


0P2U 


$$ABERRA 


SY33-8552 


0P24 


$$ABERRI 


SY33-8552 


0P25 


$$ABERAE 


SY33-8552 


0P25 


$$ABERAH 


SY33-8552 


0P25 


$$ABERRA 


SY33-^8552 


0P25 


$$ABERRI 


SY33-8552 


0P26 


$$ABERRE 


SY33-8552 


0P26 


$$ABERR1 


SY33-8552 


0P27 


$$ABERRA 


SY33«8552 


0P27 


$$ABERRY 


SY33-8552 


0P28 


$$ABERAE 


SY33-8552 


0P28 


$$ABERAH 


SY33-8552 


0P28 


$$ABERAN 


SY33-8552 


0P28 


$$ABERRE 


SY33-8552 


0P28 


$$ABERRF 


SY33-8552 


0P28 


$$ABERRG 


SY33-8552 


0P28 


$$ABERRH 


SY33-8552 


0P28 


$$ABERRI 


SY33-8552 


0P28 


$$ABERRS 


SY33-8552 


0P28 


$$ABERRT 


SY33-8552 


0P28 


$$ABERRU 


SY33-8552 


0P28 


$$ABERRV 


SY33-8552 


0P28 


$$ABERRW 


SY33-8552 


0P28 


$$ABERRY 


SY33-8552 


0P28 


$$ABERR1 


SY33-8552 


0P28 


$$ABERR7 


SY33-8552 


0P29 


$$ABERAE 


SY33-8552 


0P29 


$$ABERAH 


SY33-8552 


0P30 


$$ABERAE 


SY33-8552 


0P30 


$$ABERAH 


SY33-8552 


0P31 


$$ABERAE 


SY33-8552 


0P31 


$$ABERAH 


SY33-8552 


0P31 


$$ABERRA 


SY33^8552 


0P31 


$$ABERBI 


SY33-8552 


0P32 


$$ABERAF 


SY33-8552 


0P32 


$$ABERAH 


SY33-8552 


0P33 


$$ABERRF 


SY33-8552 


0P33 


$$ABERBY 


SY33-8552 


0P34 


$$ABERRS 


SY33-8552 


0P35 


$$ABERAN 


SY33-8552 


ansients 
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0P35 


$$ABERR'I 


SY33- 


■8552 


0P36 


$$ABERRE 


SY33- 


•8552 


0P36 


$$ABERRi| 


SY33- 


•8552 


0P37 


$$ABERRS 


SY33- 


•8552 


0P38 


$$ABERR'I 


SY33- 


•8552 


0P39 


$$ABERRI 


SY33- 


■8552 


0P40 


$$ABERRU 


SY33- 


•8552 


0P41 


$$ABERRF 


SY33- 


■8552 


0P41 


$$ABERRH 


SY33- 


■8552 


0P42 


$$ABERAE 


SY33- 


•8552 


0P42 


$$ABERAG 


SY33- 


•8552 


0P42 


$$ABERAH 


SY33- 


•8552 


0P43 


$$ABERAG 


SY33- 


■8552 


0P44 


$$ABERAC 


SY33- 


•8552 


0P44 


$$ABERAH 


SY33- 


•8552 


0P«»5 


$$ABERRE 


SY33- 


-8552 


0P46 


$$ABERAG 


SY33- 


•8552 


OP**? 


$$ABERAE 


SY33- 


-8552 


0P47 


$$ABERAH 


SY33- 


•8552 


0P48 


$$ABERRG 


SY33- 


-8552 


0P49 


$$ABERRG 


SY33- 


■8552 


0P49 


$$ABERR7 


SY33- 


-8552 


0P50 


$$ABERRY 


SY33- 


•8552 


0P51 


$$ABERAN 


SY33- 


■8552 


0P52 


$$ABERAN 


SY33- 


■8552 


0P53 


$$ABERAN 


SY33- 


■8552 


0P54 


$$ABERAN 


SY33- 


■8552 


0P55 


$$ABERR7 


SY33- 


•8552 


0P60D 


$$ABERRZ 


SY33- 


■8551 


0P70I 


$$BE0J2 


SY33- 


-8553 


0P71I 


$$BE0J2 


SY33- 


■8553 


0P72I 


$$BE0J2 


SY33- 


-8553 


0P73I 


$$BE0J2A 


SY33- 


-8553 


0P7tH 


$$BE0J2A 


SY33- 


■8553 


0P75I 


$$BE0J2 


SY33- 


-8553 


0P76I 


$$BE0J2 


SY33- 


•8553 


0P77I 


$$BE0J2 


SY33- 


-8553 


0P78I 


$$BE0JS2 


SY33- 


-8553 


0P79I 


$$BE0J2A 


SY33- 


-8553 


0P81I 


$$BE0J2A 


SY33- 


-8553 


0P82I 


$$BE0J2A 


SY33- 


-8553 


0P83A 


$$BE0J2A 


SY33- 


-8553 


opeai 


$$BE0J2A 


SY33- 


-8553 


0P85I 


$$BE0J2A 


SY33- 


-8553 


0P87A 


$$BE0JS2 


SY33- 


-8553 


0P88I 


$$BE0JS2 


SY33- 


-8553 


0P89I 


$$ABERRZ 


SY33- 


-8551 


OROII 


$JOBCTLE 


SY33- 


-8555 


0R02I 


$JOBCTLE 


SY33- 


-8555 


0R03I 


$JOBCTLE 


SY33- 


-8555 


0R17I 


$JOBCTLE 


SY33- 


-8555 


0R19I 


$JOBCTLE 


SY33- 


-8555 


OSOOI 


$$BILSVC 


SY33- 


-8553 


OSOOI 


$$BPCHK 


SY33- 


-8553 


OS 01 1 


$$BE0J2 


SY33- 


-8553 


0S02I 


$$BE0J2 


SY33- 


-8553 


0S03I 


$$BPCHK 


SY33- 


-8553 


osoai 


$$BILSVC 


SY33- 


-8553 


0S05I 


$$BILSVC 


SY33- 


-8553 


0S06I 


$$BE0J1 


SY33- 


:8553 


0S07I 


$$BPSW 


SY33- 


-8553 


0S08I 


$$BEOJ 


SY33- 


-8553 


0S09I 


$$BE0J1 


SY33- 


-8553 


OSllI 


$$BE0J1 


SY33- 


■8553 


0S12I 


$$BE0J2A 


SY33- 


-8553 


0S13I 


$$BE0J2A 


SY33- 


-8553 
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0S1«*I 


$$BE0J2A 


SY33- 


-8553 


0S15I 


$$BE0J2A 


SY33- 


■8553 


0S16I 


$$BE0J2A 


SY33- 


-8553 


0S17I 


$$BMVKEY 


SY33- 


■8553 


OTOOI 


$$ABERA1 


SY33- 


-8552 


OTOOI 


$$ABERA2 


SY33- 


•8552 


OTOOI 


$$ABERA3 


SY33- 


-8552 


OTOOI 


$$RAST08 


SY33- 


■8552 


OTOOI 


$$RAST11 


SY33- 


-8552 


0T03I 


$$ABERA1 


SY33- 


■8552 


0T03I 


$$ABERA2 


SY33- 


-8552 


0T03I 


$$ABERA3 


SY33- 


■8552 


0T03I 


$$RAST08 


SY33- 


-8552 


0T0 3I 


$$RAST11 


SY33- 


■8552 


0T05E 


$$RAST08 


SY33- 


-8552 


0T05E 


$$RAST11 


SY33- 


■8552 


0T05I 


$$ABERA1 


SY33- 


-8552 


0T05I 


$$ABERA2 


SY3 3- 


•8552 


0T05I 


$$ABERA3 


SY33- 


-8552 


0T06I 


$$RAST03 


SY33- 


•8552 


0T06I 


$$RAST11 


SY33- 


-8552 


0T07I 


$$RAST03 


SY33- 


■8552 


0T07I 


$$RAST11 


SY33- 


-8552 


0T08I 


$$RAST03 


SY33- 


-8552 


0T08I 


$$RAST11 


SY33- 


-8552 


0T09I 


$$RAST03 


SY33- 


-8552 


0T09I 


$$RAST11 


SY33- 


-8552 


OTIOI 


$$RAST02 


SY33- 


-8552 


OTIOI 


$$RASTOa 


SY33- 


-8552 


OTIOI 


$$RAST05 


SY33- 


■8552 


OTIOI 


$$RAST06 


SY33- 


-8552 


OTIOI 


$$RAST07 


SY33- 


-8552 


OTIOI 


$$RAST10 


SY33- 


-8552 


OTIOI 


$$RAST12 


SY33- 


■8552 


OTllW 


$$RASTOO 


SY33- 


-8552 


0T12I 


$$RAST02 


SY33- 


•8552 


0T12I 


$$RAST04 


SY33- 


-8552 


0T12I 


$$RAST05 


SY33- 


•8552 


0T12I 


$$RAST06 


SY33- 


-8552 


0T12I 


$$RAST07 


SY33- 


-8552 


0T12I 


$$RAST10 


SY33- 


•8552 


0T12I 


$$RAST12 


SY33- 


-8552 


0T13A 


$$RAST04 


SY33- 


-8552 


0T13A 


$$RAST05 


SY33- 


•8552 


0T13A 


$$RAST06 


SY33- 


-8552 


0T13A 


$$RAST10 


SY33- 


•8552 


0T14E 


$$RAST03 


SY33- 


-8552 


OTiaE 


$$RAST11 


SY33- 


-8552 


0T15E 


$$RAST09 


SY33- 


-8552 


0T15E 


$$RAST13 


SY33- 


-8552 


0T16I 


$$RAST03 


SY33- 


-8552 


0T16I 


$$RAST11 


SY33- 


-8552 


0T17I 


$$RAST03 


SY33- 


-8552 


0T17I 


$$RAST11 


SY33- 


-8552 


0T18E 


$$RAST03 


SY33- 


-8552 


0T18E 


$$RAST11 


SY33- 


-8552 


0T19E 


$$RAST09 


SY33- 


-8552 


0T20E 


$$RAST13 


SY33- 


-8552 


OVOII 


$$BE0JS2 


SY33- 


-8553 


0V02I 


$$BE0JS2 


SY33- 


-8553 


0V03I 


$$BE0JS2 


SY33- 


-8553 


0V04I 


$$BE0JS2 


SY33- 


•8553 


0V05I 


$$BE0JS2 


SY33- 


-8553 


0V06I 


$$BE0JS2 


SY33- 


-8553 


0V07I 


$$BE0JS2 


SY33-8553 


0V08I 


$$BE0JS2 


SY33-8553 
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0V09I 


$$BE0JS2 


SY33-8553 


OVIOI 


$$BE0J2A 


SY33-8553 


OVlil 


$$BE0J2 


SY33-8553 


0V20D 


PDSDM 


SY33-855a 


0V21D 


PDSDM 


SY33-8554 


0V22D 


PDSDM 


SY33-8554 


0V23D 


PDSDM 


SY33-855«I 


oy24i 


PDSDM 


SY33-8554 


0V25I 


PDSDM 


SY33-8554 


0V26I 


PDSDM 


SY33-855U 


0V27I 


PDSDM 


SY33-855£| 


0V28I 


PDSDM 


SY33-855a 


0V29I 


PDSDM 


SY33-8554 


0V30I 


PDSDM 


SY33-855a 


0V31I 


PDSDIM 


SY33~855i| 


0V32I 


PD^IDM 


SY33-8554 


0V33I 


PDSDM 


SY33-855a 


ov3ai 


PDSDM 


SY33-855a 


0V35:r 


PDSDM 


SY33-8554 


0V36I 


PDSDM 


SY33-8554 


0V37I 


PDSDM 


SY33-8554 


0V39I 


PDSDM 


SY33-8554 


0V40I 


PDSDM 


SY33-8554 


0V41I 


PDSDM 


SY33-855a 


0V42I 


PDSDM 


SY33-8554 


Qv^3I 


PDSDM 


SY33-8554 


ova 4 1 


PDSDM 


SY33-8554 


o%i:6 


SDEHR 


SY33-8554 


lAOND 


$JOBCTLD 


SY33-8555 


lAlND 


$JOBCTLD 


SY33-8555 


ihiim 


$JOBCM'ID 


SY33-8555 


11' 2ND 


"^^JOBCnr, 


SY33-8555 


li.2rD 


$jobctij 


SY33~8555 


lTi3BV 


$TOBCTLC 


SY33-855S 


ikmrj 


$jvbl:tll 


SY33-8555 


lAk liy 


Ip'OBCTIF 


SY33-8555 


1A4ND 


$JOBCTLJ 


SY33-8555 


lAUND 


$JOBCTIK 


SY33-8555 


1A5ND 


$JOBCTLD 


SY33-8555 


lASra 


$JCBCTLF 


SY33-8555 


IhSED 


$JOBCTLJ 


SY33-8555 


1A6ND 


$JOBCTLD 


SY33-8555 


1I^6ND 


$JOBCTLF 


SY33~8555 


1A7ND 


$JOBCTID 


SY33-8555 


1A7ND 


$JOBCTLF 


SY33~8555 


1A7ND 


$JOBCTIJ 


SY33-8555 


1A80D 


$JORCTLD 


SY33-8555 


1A81I 


$JOBCTIA 


SY33-8555 


1A9ND 


$JOBCTLD 


SYJ3-8555 


1A9IID 


$JOBCTLF 


SY33-8555 


IBOIA 


SYSBUFLD 


SY33-855a 


lB02x^ 


SYSBUFID 


SY33-8554 


1B03I 


SYSBUFLE 


SY33-8554 


IBIOI 


SYSBUFLD 


SY33-8554 


IBllB 


SYSBUFLE 


SY33-855a 


ICOOA 


$JCBCTLA 


SY33-8555 


ICIOA 


$JOBCTLA 


SY33-8555 


ICIOA 


$JOBCTLJ 


SY33-8555 


1C30A 


$JOBCTLJ 


SY33-8555 


1C33I 


$JCBCTLE 


SY33«8555 


ICUOI 


$$BATTNA 


SY33-8553 


ICfilOI 


$$BATTNE 


SY33-8553 


1C50I 


$$BATTNA 


SY33-8553 


1C50I 


$$BATTNE 


SY33-8553 


1C60D 


$$BATTNN 


SY33-85b3 


1C70D 


$JOBCTLA 


SY33-8555 
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1C80D 


$JOBCTLA 


SY33- 


-8555 


1C90D 


$JOBCTIF 


SY33- 


-8555 


IIOOA 


$JOBCTLA 


SY33- 


•8555 


IIOOA 


$JCBCTLG 


SY33- 


-8555 


IIIOI 


$JOBCTLF 


SY33- 


•8555 


1I30D 


$$BATTNC 


SY33- 


-8553 


1I32D 


$$ABERRZ 


SY33- 


-8551 


lIt*OD 


$$ABEHBZ 


SY33- 


-8551 


1I«*1D 


$$BATTN1 


SY33- 


-8553 


1I41D 


$$BATTNU 


SY33- 


-8553 


im2E 


$$BATTNT 


SY33- 


•8553 


im3D 


$$BATTNV 


SY33- 


-8553 


1I44I 


$$BATTNX 


SY33- 


•8553 


1I45D 


$$BATTKT 


SY33- 


•8553 


11^60 


$$BATTNT 


SY33- 


•8553 


1I46D 


$$BATTNW 


SY33- 


•8553 


1IU7I 


$$BATTN'I 


SY33- 


•8553 


nasi 


$$BATTKU 


SY33- 


-8553 


1I50I 


$JOBCTLA 


SY33- 


-8555 


1I60A 


$$BATTKA 


SY33- 


-8553 


1I70I 


$JOBCTLA 


SY33- 


•8555 


1I82I 


$JCBCTLM 


SY33- 


-8555 


lie3A 


$JOBCTLM 


SY33- 


•8555 


1I84A 


$JCBCTLK 


SY33- 


-8555 


1I86A 


$JOBCTLM 


SY33- 


-8555 


1I89A 


$JCBCTLK 


SY33- 


-8555 


1I90A 


$JOBCTLM 


SY33- 


•8555 


1L91A 


$JOBCTLM 


SY33- 


-8555 


1I92I 


$JOBCTLM 


SY33- 


-8555 


1I93I 


$JOBCTLM 


SY33- 


•8555 


1I95A 


$JOBCTLM 


SY33- 


-8555 


1L96A 


$JOBCTLM 


SY33- 


•8555 


1L97I 


$JCBCTLM 


SY33- 


•8555 


1L981 


$JOBCTLJ 


SY33- 


-8555 


1I99A 


$JOBCTLM 


SY33- 


-8555 


ILOND 


$JOBCTLK 


SY33- 


•8555 


ILIND 


$JOBCTLE 


SY33- 


-8555 


ILIND 


$JCBCTLG 


SY33- 


-8555 


ILlND 


$JOBCTLK 


SY33- 


-8555 


IMIOA 


$JCBCTLA 


SY33- 


■8555 


IMIOA 


$J0BCTL6 


SY33- 


-8555 


1M20D 


$JOBCTLA 


SY33- 


-8555 


1M3NE 


$JOBCTLA 


SY33- 


-8555 


1M4ND 


$JCBCTLG 


SY33- 


-8555 


1M5ND 


$JOBCTLE 


SY33- 


-8555 


1M5ND 


$JCBCTLF 


SY33- 


•8555 


1M6WD 


$JOBCTLE 


SY33- 


■8555 


liyi7ND 


$JCBCTLE 


SY33- 


-8555 


1M8ND 


$JOBCTLE 


SY33- 


-8555 


1M9ND 


$JCBCTLE 


SY33- 


-8555 


INOOI 


$JOBCTLA 


SY33- 


•8555 


INIOD 


$JCBCTLE 


SY33- 


-8555 


1N2ND 


$JOBCTL,E 


SY33- 


-8555 


1N30D 


$JOBCTLE 


SY33- 


-8555 


INUOD 


$JOBCTLE 


SY33- 


-8555 


1N50D 


$JCBCTLE 


SY33- 


-8555 


1.^600 


$JOBCTLE 


SY33- 


^8555 


1N7ND 


$JOBCTLG 


SY33- 


-8555 


1N80I 


$JOBCTLG 


SY33- 


-8555 


1N90I 


$JCBCTLG 


SY33- 


-8555 


IPOND 


$JOBCTLJ 


SY33- 


-8555 


IPOOD 


$$BATTNE 


SY33- 


-8553 


IPOOD 


$$BATTNF 


SY33- 


-8553 


IPIND 


$JOBCTIJ 


SY33' 


-8555 


IPIOE 


$$BATTiNG 


SY33- 


-8553 


1P20D 


$JCBCTLE 


SY33 


-8555 



32 8 DOS/VS Error Recovery and Recording Transients 



Message Phase 
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1Q62I 


$$ABERRZ 


SY33- 


■8551 


1R79I 


$$BATTNC 


SY33- 


■8553 


ISOND 


$JOBCTLE 


SY33- 


-8555 


ISOOD 


$$BATTNE 


SY33- 


-8553 


ISOOD 


$$BATTNC 


SY3 3- 


-8553 


ISOOD 


$$BATTNE 


SY33- 


-8553 


ISOOD 


$$BATTNF 


SY33- 


-8553 


ISOOD 


$$BATTKG 


SY33- 


-8553 


ISOOD 


$$BATTNH 


SY33- 


-8553 


ISOOD 


$$BATTKN 


SY33- 


-8553 


ISOOD 


$$BATTNQ 


SY33- 


■"8553 


ISOOD 


$$BATTNS 


SY33- 


-8553 


ISOOD 


$$BATTN'I 


SY33- 


-8553 


ISOOD 


$$BATTNU 


SY33- 


-8553 


ISOOD 


$$BATTNY 


SY33- 


-8553 


ISOOD 


$$BATTNZ 


SY33- 


-8553 


ISOOD 


$$BATTN2 


SY33- 


-8553 


ISOID 


$$ABERRZ 


SY33- 


-8551 


ISO 2D 


$$ABERRZ 


SY33- 


-8551 


ISIND 


$JCBCTLG 


SY33- 


-8555 


ISIND 


$JOBCTLJ 


SY33- 


-8555 


iSlND 


$JOBCTLK 


SY33- 


-8555 


ISINI 


$JOBCTIA 


SY33- 


-8555 


ISINI 


$JCBCTIE 


SY33- 


-8555 


ISINI 


$JOBCTLD 


SY33- 


-8555 


ISINI 


$JOBCTIE 


SY33- 


-8555 


ISINI 


$JOBCTLF 


SY33- 


-8555 


ISINI 


$JOBCTIG 


SY33- 


-8555 


ISINI 


$JOBCTLJ 


SY3 3- 


-8555 


ISINI 


$JOBCTIK 


SY33- 


-8555 


ISINI 


$JOBeTLM 


SY33- 


■8555 


ITOOA 


$JCBCTIA 


SY33- 


-8555 


ITIOI 


$JOBCTLA 


SY33- 


-8555 


1T20I 


$JOBCTLD 


SY33- 


-8555 


1T50A 


$JOBCTLD 


SY33- 


-8555 


1T60A 


$JCBCTID 


SY33- 


-8555 


iTlQPi 


$JOBCTLD 


SY33- 


-8555 


21001 


$IiNKEDT 


SY33- 


-8556 


21011 


$LNKED1 


SY33- 


-8556 


21021 


$LNKEDT 


SY33- 


-8556 


21101 


$LNKEDT 


SY33- 


-8556 


21111 


$LNKEDI 


SY33- 


-8556 


21121 


$LNKEDI 


SY33- 


-8556 


21131 


$LNKEDT 


SY33- 


-8556 


21141 


$LNKEDT 


SY33- 


-8556 


21161 


$LNKEDT 


SY33- 


-8556 


21201 


$LNKEDT 


SY33- 


-8556 


21211 


$LNKEDT 


SY33- 


-8556 


21221 


$LNKEDT 


SY33- 


-8556 


21231 


$LNKEDT 


SY33- 


-8556 


21241 


$LNKEDT 


SY33- 


-8556 


21251 


$LNKEDT 


SY33- 


-8556 


21301 


$LNKED'I 


SY33- 


-8556 


21311 


$LNKEDT 


SY33- 


-8556 


21321 


$LNKED1 


SY33- 


-8556 


21331 


$LNKED'I 


SY33- 


-8556 


21351 


$LNKEDT 


SY33- 


•8556 


21361 


$LNKEDT 


SY33- 


-8556 


21401 


$LNKED1 


SY33- 


-8556 


21411 


$LNKEDT 


SY33- 


-8556 


21421 


$LNKEDT 


SY33- 


■8556 


21431 


$LNKEDT 


SY33- 


-8556 


21441 


$LNKED'I 


SY33- 


•8556 


21451 


$LNKEDT 


SY33- 


•8556 


21461 


$LNKEDT 


SY33- 


•8556 


21471 


$LNKEDT 


SY33- 


-8556 
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21501 


$LNKED'I 


SY33- 


•8556 


21511 


$LNKEDT 


SY33- 


•8556 


21551 


$LNKEDT 


SY33- 


•8556 


21561 


$LNKEDT 


SY33- 


-8556 


21581 


$LNKEDT 


SY33- 


•8556 


21701 


$LNKED'I 


SY33- 


•8556 


21811 


$LNKEDT 


SY33- 


•8556 


21821 


$LNKEDT 


SY33- 


•8556 


21841 


$LNKEDT 


SY33- 


•8556 


21851 


$LNKEDT 


SY33- 


•8556 


21911 


$LNKEDT 


SY33- 


•8556 


21921 


$LNKEDT 


SY33- 


-8556 


21931 


$LNKED'I 


SY33- 


•8556 


21941 


$LNKEDT 


SY33- 


-8556 


21951 


$LNKEDT 


SY33- 


■8556 


21971 


$LNKEDT 


SY33- 


•8556 


21991 


$LNKED'I 


SY33- 


■8556 


3C30I 


CORGZ 


SY3 3- 


•8557 


3C30I 


CORGZl 


SY33- 


■8557 


3C66I 


CORGZ 


SY33- 


•8557 


3C66I 


CORGZ 4 


SY33- 


•8557 


3C66I 


CORGZ 5 


SY3 3- 


■8557 


3C66I 


C0RGZ6 


SY33- 


•8557 


3C66I 


C0RGZ7 


SY33- 


•8557 


3C67I 


CORGZ 


SY33- 


•8557 


3C67I 


CORGZ 5 


SY33- 


■8557 


3C67I 


CCRGZ6 


SY33- 


-8557 


3C67I 


C0RGZ7 


SY33- 


■8557 


3E01I 


3REPMNTR 


SY33- 


-8554 


3E02I 


EREPMNTR 


SY33- 


-8554 


3E04I 


EREPMNTR 


SY33- 


-8554 


3E06I 


EREPMNTR 


SY33- 


•8554 


3E07D 


EREPESV^K 


SY33- 


-8554 


3E07D 


EREPTES 


SY33- 


-8554 


3E08A 


EREPES^K 


SY33- 


-8554 


3E09A 


EREPESTR 


SY33- 


-8554 


3E10I 


EREPEDIT 


SY33- 


-8554 


3E10I 


EREPSMCP 


SY33- 


■8554 


3E11D 


EREPMNTR 


SY33- 


-8554 


3E12D 


EREPMNTR 


SY33- 


-8554 


3E14A 


EREPMNTR 


SY33- 


-8554 


3E15A 


EREPESTR 


SY33- 


-8554 


3E15A 


EREPHIST 


SY33- 


-8554 


3E15A 


EREPTES 


SY3 3- 


-8554 


3E18A 


EREPHIST 


SY33- 


-8554 


3E20I 


EREPESV^K 


SY33- 


-8554 


3E21I 


EREPEDIT 


SY33- 


-8554 


3E22I 


EREPEDIT 


SY33- 


-8554 


3E25I 


EREPESTR 


SY33- 


-8554 


3E25I 


EREPHIST 


SY3 3- 


-8554 


3E25I 


EREPMNTR 


SY33- 


-8554 


3E25I 


EREPTES 


SY33- 


-8554 


3E26I 


EREPMNTR 


SY33- 


-8554 


3E27I 


EREPMNTR 


SY33- 


-8554 


3E28I 


EREPMNTR 


SY33- 


-8554 


3E29I 


EREPMNTR 


SY3 3- 


-8554 


3E30A 


EREPHIST 


SY33- 


-8554 


3E31A 


EREPESTR 


SY33- 


-8554 


3E31A 


EREPHIST 


SY33- 


-8554 


3E31A 


EREPTES 


SY33- 


-8554 


3E32A 


EREPRDE 


SY33- 


-8554 


3E33A 


EREPRDE 


SY33- 


-8554 


3E34I 


EREPRDE 


SY33- 


-8554 


3E3SI 


EREPRDE 


SY33- 


-8554 


3E36i 


EREPRDE 


SY33- 


-8554 


3E37I 


EREPRDE 


SY33- 


-8554 
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3E38I 


EREPRDE 


SY33- 


-8554 


3E40I 


EREPRDE 


SY33- 


•8554 


3E41I 


EREPRDE 


SY33- 


-8554 


3Ea2l 


EREPRDE 


SY33- 


-8554 


3E43I 


EREPRDE 


SY33- 


-8554 


3E67I 


C0RGZ6 


SY33- 


-8557 


3H30I 


MAINTF2 


SY33- 


-8557 


3M00I 


PSERV 


SY33- 


-8557 


3M09I 


PSERV 


SY33- 


-8557 


3M10I 


CORGZ 


SY33- 


-8557 


3M10I 


CORGZl 


SY33- 


-8557 


3M10I 


DSERV 


SY33- 


-8557 


3M10I 


MMNT 


SY33- 


-8557 


3M10I 


MAINTA 


SY33- 


-8557 


3M10I 


PSERV 


SY33- 


-8557 


3M10I 


RSERV 


SY33- 


-8557 


3M10I 


SSERV 


SY33- 


-8557 


3M11I 


MAINTR2 


SY33- 


■8557 


3M20I 


PSERV 


SY33- 


-8557 


3M21I 


CORGZ 


SY33- 


-8557 


3M21I 


CORGZl 


SY33- 


-8557 


3M21I 


C0RGZ3 


SY33- 


-8557 


3M21I 


CORGZ 4 


SY33- 


■8557 


3M21I 


C0RGZ5 


SY33- 


■8557 


3M21I 


CORGZ 6 


SY33- 


-8557 


3M21I 


C0RGZ7 


SY33- 


-8557 


3M21I 


CORGZ 8 


SY33- 


•8557 


3M21I 


DSERV 


SY33- 


-8557 


3M21I 


MAINRTN 


SY33- 


•8557 


3M21I 


MMNTCL 


SY33- 


-8557 


3M21I 


MAINTCN 


SY33- 


-8557 


3M21I 


MAINTDR 


SY33- 


-8557 


3M21I 


MAINTR2 


SY33- 


•8557 


3M21I 


PSERV 


SY33- 


-8557 


3M21I 


RSERV 


SY33- 


-8557 


3M21I 


SSERV 


SY33- 


-8557 


3M23I 


MAINTS2 


SY33- 


•8557 


3M24I 


MAI NTS 2 


SY33- 


■8557 


3M25r 


MAINTS2 


SY33- 


•8557 


3M26I 


MAI NTS 2 


SY33- 


-8557 


3M27I 


MAINTP2 


SY33- 


-8557 


3M27I 


MAINTB2 


SY33- 


•8557 


3M27I 


MAINTS2 


SY33- 


•8557 


3M28I 


MAI NTS 2 


SY33- 


•8557 


3M29I 


MAINTF2 


SY33- 


-8557 


3^532I 


MAI NT F 2 


SY33- 


■8557 


3M33I 


$MAINDIR 


SY3 3- 


-8557 


3M33I 


CORGZ 3 




8557 


3M31I 


MAINRTN 


SY33- 


•8557 


3M33I 


MAINTUF 


SY33- 


•8557 


3M33I 


PSERV 


SY33- 


■8557 


3M33I 


RSERV 


SY33- 


-8557 


3M33I 


SSERV 


SY33- 


•8557 


3M3ai 


MAI NT 


SY33- 


-8557 


3M34I 


MAINTP2 


SY33- 


•8557 


3M35I 


DSERV 


SY33- 


-8557 


3M37I 


MAINT 


SY33- 


-8557 


3M37I 


MAI NT A 


SY33- 


■8557 


3M37I 


MAINTCL 


SY33- 


-8557 


3M37I 


MAINTCN 


SY33- 


-8557 


3M37I 


MAINTCR 


SY33- 


-8557 


3M38I 


MAI NT F 2 


SY33- 


-8557 


3M«43I 


CORGZl 


SY33- 


-8557 


3M43I 


CCRGZ3 


SY33- 


-8557 


3MU3I 


CORGZ a 


SY33- 


-8557 


3Mtt3I 


DSERV 


SY33- 


-8557 
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3M43I 


MAINT 


SY33- 


-8557 


3M43I 


MAINTCL 


SY33- 


-8557 


3M43I 


MAINTDR 


SY33- 


-8557 


3M43I 


MAINTF2 


SY33- 


-8557 


3M43I 


MAINTB2 


SY33- 


-8557 


3M43I 


MAI NTS 2 


SY33- 


-8557 


3M43I 


MAINTUF 


SY33- 


-8557 


3M43I 


PSERV 


SY33- 


-8557 


3M43I 


RSERV 


SY33- 


-8557 


3M43I 


SSERV 


SY33- 


-8557 


3M44I 


CCRGZ6 


SY33- 


-8557 


3M441 


MAINT 


SY33- 


-8557 


3M44I 


MAINTCN 


SY33- 


-8557 


3M45I 


DSERV 


SY33- 


•8557 


3M52I 


$MAINDIR 


SY33- 


-8557 


3M52I 


CORGZ 3 


SY33- 


-8557 


3M52I 


MAI NT F 2 


SY33- 


-8557 


3M52I 


MAINTR2 


SY3 3- 


-8557 


3M52I 


MAI NTS 2 


SY33- 


-8557 


3M52I 


MAINTUP 


SY33- 


-8557 


3M53I 


C0RGZ3 


SY33- 


-8557 


3M53I 


MAINTF2 


SY33- 


-8557 


3M53I 


MAINTR2 


SY33- 


-8557 


3M53I 


MAINTS2 


SY33- 


-8557 


3M53I 


MAINTUF 


SY33- 


-8557 


3M53I 


MAINTUP 


SY33- 


•8557 


3M54I 


$MAINDIR 


SY33- 


•8557 


3M54I 


MAINTDR 


SY33- 


•8557 


3M54I 


MAINTUF 


SY33- 


-8557 


3M55I 


MAINTR2 


SY33- 


•8557 


3M62I 


C0RGZ7 


SY33- 


-8557 


3M62I 


MAINTA 


SY33- 


•8557 


3M63I 


CORGZl 


SY33- 


-8557 


3M63I 


C0RGZ7 


SY33- 


-8557 


3M63I 


MAINTA 


SY33- 


= 8557 


3M64I 


MAINTA 


SY33- 


•8557 


3M65I 


CORGZ 


SY33- 


-8557 


3M65I 


C0RGZ7 


SY33- 


•8557 


3M65I 


MAINTA 


SY33- 


-8557 


3M66I 


C0RGZ7 


SY33- 


•8557 


3M67I 


CORGZ 7 


SY33- 


-8557 


3M68I 


MAINTA 


SY33- 


•8557 


3M68I 


MAINTCN 


SY33- 


•8557 


3M70A 


MAINTA 


SY33- 


•8557 


3M70I 


MAINTCN 


SY33- 


•8557 


3M75I 


MAINTCN 


SY33- 


■8557 


3M80I 


MAINTA 


SY33- 


-8557 


3M80I 


MAINTCN 


SY33- 


•8557 


3M81I 


MAINTCK 


SY33- 


-8557 


3M90I 


$MAINDIR 


SY33- 


•8557 


3M92I 


$MAINDIR 


SY33- 


•8557 


3M93I 


$MAINCIR 


SY33- 


•8557 


3N43I 


DSERV 


SY33- 


-8557 


3U10I 


MAINTUP 


SY33- 


-8557 


3U11I 


MAINTUF 


SY33- 


■8557 


3U20I 


MAINTUP 


SY33- 


•8557 


3U21I 


MAINTUF 


SY33- 


•8557 


3U30I 


MAINTUP 


SY33- 


-8557 


3U31I 


MAINTUF 


SY33- 


-8557 


3U32I 


MAINTUF 


SY33- 


•8557 


3U33I 


MAINTUP 


SY33- 


•8557 


4C10D 


PDAID 


SY33- 


■8554 


4C11D 


PDAID 


SY33- 


•8554 


4C12D 


PDAID 


SY33- 


•8554 


4C13D 


PDAID 


SY33- 


•8554 


4C14D 


PDAID 


SY33- 


•8554 
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4C15D 


PDAID 


SY3 3- 


•8554 


14C16D 


PDAID 


SY33- 


■8554 


UC17D 


PDAID 


SY33- 


-8554 


aci7D 


SDAIDl 


SY33- 


-8554 


4C17D 


SDPAR 


SY33- 


-8554 


ac20D 


PDAID 


SY33- 


-8554 


ac2iA. 


PDAID 


SY33- 


-8554 


UC22A 


PDAID 


SY33- 


-8554 


4C23C 


PDAID 


SY33- 


-8554 


ac24A 


$SBPDAID 


SY33- 


•8554 


HC2l^P. 


PDAIDFTl 


SY33- 


-8554 


ac24A 


PDAIDGTF 


SY33- 


-8554 


4C24/^ 


PDAIDGII 


SY3 3- 


-8554 


t*C24A 


PDAIDITP 


SY33- 


-8554 


4C24A 


PDAIDITI 


SY33- 


-8554 


4C24A 


PDAIDTCT 


SY33- 


-8554 


ac26i 


PDLIST 


SY33- 


-8554 


UC27D 


PDAID 


SY33- 


-8554 


ac28D 


PDAID 


SY3 3- 


-8554 


ac<42A 


DUMPGEN 


SY33- 


-8554 


4Ca3A 


DUMPGEN 


SY33- 


-8554 


aca^A 


DUMPGEK 


SY33- 


-8554 
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4C46A 


DUMPGEN 


SY33- 


-8554 


4C50E 


PDAID 


SY33- 


-8554 


4C51E 


PDAID 


SY33- 


-8554 


4C52E 


PDAID 


SY33- 


-8554 


4C53I 


SDAIDl 


SY33- 


-8554 


4C54I 


SDAIDl 


SY33- 


--8554 


4C55D 


SDAIDl 


SY33- 


-8554 


4C56E 


SDAIDl 


SY33- 


-8554 


4C57E 


SDAID2 


SY33- 


-8554 


4C58D 


SDPAR 


SY33- 


-8554 


4C59C 


SDPAR 


SY3 3- 


-8554 


4C60D 


SDPAR 


SY33- 


■8554 


4C61D 


SDPAR 


SY33- 
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